【发布时间】:2020-02-18 21:58:05
【问题描述】:
我试图在特定系列中的图表上获取点以在系列中的任何点悬停时更改颜色。即,将鼠标悬停在系列 1 中的一个点上会使系列 1 中的所有点改变颜色(并因此突出显示)。
这有点困难,因为我最初根据点的值对点进行着色。
我尝试调整来自 highcharter change highlight color on hover 的答案,但它似乎不适用于已着色的点,因为它们不会在悬停时发生变化。
library(highcharter)
library(data.table)
library(dplyr)
# generate data
data = data.table(
CJ(x = seq(as.Date("2019-01-01"), as.Date("2019-01-10"), by = "day"),
group = seq(1,2))
)
data[, value := round(runif(n=20, -5,5),4)]
# color points based on value
data = data.table(data %>% mutate(cat=cut(value, breaks=quantile(data[value!=0]$value, seq(0,1,0.1)), labels=seq(1,10))))
colf = colorRampPalette(colors = c("red","yellow", "green"))
cols = colf(10)
data[, color := as.factor(cols[cat])]
# get point position
data$x = datetime_to_timestamp(data$x)
data = data.table(data %>% group_by(x) %>% mutate(y = order(order(value))-sum(value<0,na.rm=T)))
# plot data
highchart() %>%
hc_xAxis(type = "datetime", dateTimeLabelFormats = list(day = '%d of %b')) %>%
hc_add_series(data[group==1], name = "group 1", marker = list(symbol = fa_icon("circle"))) %>%
hc_add_series(data[group==2], name = "group 2", marker = list(symbol = fa_icon("circle"))) %>%
hc_chart(type = "scatter") %>%
hc_tooltip(pointFormat = "Performance = <b>{point.value}</b> <br> Group = <b>{point.name}</b>") %>%
# hover over part
hc_plotOptions(
series = list(
stickyTracking = FALSE,
events = list(
mouseOver = JS("function() { if(this.options.color !== 'red') {this.update({color: 'red'})} }"),
mouseOut = JS("function() { if(this.options.color === 'red') {this.update({color: '#ddd'})} }")
),
states = list(
hover = list(
enabled = TRUE,
lineWidth = 10
)
)
))
图表:
【问题讨论】:
-
嗨。您如何看待 Highcharts 中的新非活动状态?我不确定它现在是否在 Highcharter 中可用,但作者可以为您分享一个开发分支,以便您可以拉取最新的处于非活动状态的 Highcharts。在这里你有一个例子:jsfiddle.net/BlackLabel/2wu3jrmt 让我知道这对你来说是否足够。如果您想尝试不同的方法(根据您的问题),请告诉我,我会检查它。
-
这正是我要找的!!
highcharter似乎默认没有启用它,现在可用吗?谢谢 -
它在开发版本中可用 (github.com/jbkunst/highcharter)
-
太好了,我会回答的。
标签: r highcharts r-highcharter