При использовании highcharter для интерактивных графиков, как я могу указать, что точки данных в группе должны выделяться вместе?
library(highcharter)
library(dplyr)
library(tidyr)
dfr <- data.frame(sample=c("A","B","C","D"),part=c(2,3,4,6),cat=c(5,7,3,3))
dfr1 <- dfr %>% tidyr::gather(key=metric,value=value,-sample)
dfr1
sample metric value
1 A part 2
2 B part 3
3 C part 4
4 D part 6
5 A cat 5
6 B cat 7
7 C cat 3
8 D cat 3
dfr1 %>%
hchart(.,"scatter",hcaes(x=metric,y=value,group=factor(sample))) %>%
hc_xAxis(type="category",title=list(text="Metrics"),crosshair=TRUE) %>%
hc_yAxis(type="linear",title=list(text="Counts"),crosshair=TRUE) %>%
hc_chart(zoomType="xy",inverted=T) %>%
hc_tooltip(useHTML=TRUE,formatter = JS("function(){
return('<b>Sample: </b>'+this.point.sample+'</br>')}"))
В этом примере, когда я наводил курсор на синюю точку (образец A), я хотел бы, чтобы все другие синие точки (образец A) также были выделены.
