highcharter：突出显示组中的点

使用时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）也突出显示。

^{Created on 2022-03-11 by the reprex package https://reprex.tidyverse.org (v2.0.1)}

sessioninfo::session_info()
#> ─ Session info ───────────────────────────────────────────────────────────────
#>  setting  value
#>  version  R version 4.1.0 (2021-05-18)
#>  os       Ubuntu 20.04.4 LTS
#>  system   x86_64, linux-gnu
#>  ui       X11
#>  language en_GB:en
#>  collate  en_GB.UTF-8
#>  ctype    en_GB.UTF-8
#>  tz       Europe/Stockholm
#>  date     2022-03-11
#>  pandoc   2.14.0.3 @ /usr/lib/rstudio/bin/pandoc/ (via rmarkdown)
#> 
#> ─ Packages ───────────────────────────────────────────────────────────────────
#>  package     * version date (UTC) lib source
#>  assertthat    0.2.1   2019-03-21 [1] CRAN (R 4.1.0)
#>  backports     1.4.1   2021-12-13 [1] CRAN (R 4.1.0)
#>  broom         0.7.11  2022-01-03 [1] CRAN (R 4.1.0)
#>  callr         3.7.0   2021-04-20 [1] CRAN (R 4.1.0)
#>  cli           3.1.0   2021-10-27 [1] CRAN (R 4.1.0)
#>  crayon        1.4.2   2021-10-29 [1] CRAN (R 4.1.0)
#>  curl          4.3.2   2021-06-23 [1] CRAN (R 4.1.0)
#>  data.table    1.14.2  2021-09-27 [1] CRAN (R 4.1.0)
#>  DBI           1.1.2   2021-12-20 [1] CRAN (R 4.1.0)
#>  digest        0.6.29  2021-12-01 [1] CRAN (R 4.1.0)
#>  dplyr       * 1.0.7   2021-06-18 [1] CRAN (R 4.1.0)
#>  ellipsis      0.3.2   2021-04-29 [1] CRAN (R 4.1.0)
#>  evaluate      0.14    2019-05-28 [1] CRAN (R 4.1.0)
#>  fansi         1.0.2   2022-01-14 [1] CRAN (R 4.1.0)
#>  fastmap       1.1.0   2021-01-25 [1] CRAN (R 4.1.0)
#>  fs            1.5.2   2021-12-08 [1] CRAN (R 4.1.0)
#>  generics      0.1.1   2021-10-25 [1] CRAN (R 4.1.0)
#>  glue          1.6.0   2021-12-17 [1] CRAN (R 4.1.0)
#>  highcharter * 0.9.4   2022-01-03 [1] CRAN (R 4.1.0)
#>  highr         0.9     2021-04-16 [1] CRAN (R 4.1.0)
#>  htmltools     0.5.2   2021-08-25 [1] CRAN (R 4.1.0)
#>  htmlwidgets   1.5.4   2021-09-08 [1] CRAN (R 4.1.0)
#>  httr          1.4.2   2020-07-20 [1] CRAN (R 4.1.0)
#>  igraph        1.2.11  2022-01-04 [1] CRAN (R 4.1.0)
#>  jsonlite      1.7.3   2022-01-17 [1] CRAN (R 4.1.0)
#>  knitr         1.37    2021-12-16 [1] CRAN (R 4.1.0)
#>  lattice       0.20-45 2021-09-22 [1] CRAN (R 4.1.0)
#>  lifecycle     1.0.1   2021-09-24 [1] CRAN (R 4.1.0)
#>  lubridate     1.8.0   2021-10-07 [1] CRAN (R 4.1.0)
#>  magrittr      2.0.1   2020-11-17 [1] CRAN (R 4.1.0)
#>  mime          0.12    2021-09-28 [1] CRAN (R 4.1.0)
#>  pillar        1.6.4   2021-10-18 [1] CRAN (R 4.1.0)
#>  pkgconfig     2.0.3   2019-09-22 [1] CRAN (R 4.1.0)
#>  processx      3.5.2   2021-04-30 [1] CRAN (R 4.1.0)
#>  ps            1.6.0   2021-02-28 [1] CRAN (R 4.1.0)
#>  purrr         0.3.4   2020-04-17 [1] CRAN (R 4.1.0)
#>  quantmod      0.4.18  2020-12-09 [1] CRAN (R 4.1.0)
#>  R.cache       0.15.0  2021-04-30 [1] CRAN (R 4.1.0)
#>  R.methodsS3   1.8.1   2020-08-26 [1] CRAN (R 4.1.0)
#>  R.oo          1.24.0  2020-08-26 [1] CRAN (R 4.1.0)
#>  R.utils       2.11.0  2021-09-26 [1] CRAN (R 4.1.0)
#>  R6            2.5.1   2021-08-19 [1] CRAN (R 4.1.0)
#>  reprex        2.0.1   2021-08-05 [1] CRAN (R 4.1.0)
#>  rlang         0.4.12  2021-10-18 [1] CRAN (R 4.1.0)
#>  rlist         0.4.6.2 2021-09-03 [1] CRAN (R 4.1.0)
#>  rmarkdown     2.11    2021-09-14 [1] CRAN (R 4.1.0)
#>  rstudioapi    0.13    2020-11-12 [1] CRAN (R 4.1.0)
#>  sessioninfo   1.2.2   2021-12-06 [1] CRAN (R 4.1.0)
#>  stringi       1.7.6   2021-11-29 [1] CRAN (R 4.1.0)
#>  stringr       1.4.0   2019-02-10 [1] CRAN (R 4.1.0)
#>  styler        1.6.2   2021-09-23 [1] CRAN (R 4.1.0)
#>  tibble        3.1.6   2021-11-07 [1] CRAN (R 4.1.0)
#>  tidyr       * 1.1.4   2021-09-27 [1] CRAN (R 4.1.0)
#>  tidyselect    1.1.1   2021-04-30 [1] CRAN (R 4.1.0)
#>  TTR           0.24.3  2021-12-12 [1] CRAN (R 4.1.0)
#>  utf8          1.2.2   2021-07-24 [1] CRAN (R 4.1.0)
#>  vctrs         0.3.8   2021-04-29 [1] CRAN (R 4.1.0)
#>  webshot       0.5.2   2019-11-22 [1] CRAN (R 4.1.0)
#>  withr         2.4.3   2021-11-30 [1] CRAN (R 4.1.0)
#>  xfun          0.29    2021-12-14 [1] CRAN (R 4.1.0)
#>  xml2          1.3.3   2021-11-30 [1] CRAN (R 4.1.0)
#>  xts           0.12.1  2020-09-09 [1] CRAN (R 4.1.0)
#>  yaml          2.2.1   2020-02-01 [1] CRAN (R 4.1.0)
#>  zoo           1.8-9   2021-03-09 [1] CRAN (R 4.1.0)
#> 
#>  [1] /home/user/miniconda3/envs/r-4.1/lib/R/library
#> 
#> ──────────────────────────────────────────────────────────────────────────────

我知道已经过去很多时间了，但万一还有人对此感兴趣……

有另一种解决方案 https://stackoverflow.com/a/24178041/3460670这建议使用共享工具提示的格式化程序。我认为这可以在这里进行调整。

当鼠标悬停在组内的一个点上时，同一组中的所有点都会突出显示。

library(highcharter)
library(tidyverse)

dfr <- data.frame(sample=c("A","B","C","D"),part=c(2,3,4,6),cat=c(5,7,3,3))
dfr1 <- dfr %>% pivot_longer(cols = -sample, names_to = "metric")
dfr1

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(args){
      var this_point_index = this.series.data.indexOf(this.point);
      var this_series_index = this.series.index;
      var that_series_index = this.series.index == 0 ? 1 : 0;
      var that_series = args.chart.series[that_series_index];
      var that_point = that_series.data[this_point_index];
      return ('<b>Sample: </b>'+this.point.sample+'</br>');
    }"
  ))

会话信息：

R version 4.1.3 (2022-03-10)
Platform: x86_64-apple-darwin17.0 (64-bit)
Running under: macOS Monterey 12.2.1

Matrix products: default
LAPACK: /Library/Frameworks/R.framework/Versions/4.1/Resources/lib/libRlapack.dylib

locale:
[1] en_US.UTF-8/en_US.UTF-8/en_US.UTF-8/C/en_US.UTF-8/en_US.UTF-8

attached base packages:
[1] stats     graphics  grDevices utils     datasets  methods   base     

other attached packages:
 [1] forcats_0.5.1     stringr_1.4.0     dplyr_1.0.7       purrr_0.3.4      
 [5] readr_2.1.0       tidyr_1.1.4       tibble_3.1.4      ggplot2_3.3.5    
 [9] tidyverse_1.3.1   highcharter_0.9.4

loaded via a namespace (and not attached):
 [1] httr_1.4.2         jsonlite_1.8.0     viridisLite_0.4.0 
 [4] modelr_0.1.8       shiny_1.7.1        assertthat_0.2.1  
 [7] TTR_0.24.2         cellranger_1.1.0   yaml_2.2.1        
[10] pillar_1.6.2       backports_1.2.1    lattice_0.20-45   
[13] glue_1.6.0         rlist_0.4.6.1      digest_0.6.29     
[16] RColorBrewer_1.1-2 promises_1.2.0.1   rvest_1.0.1       
[19] colorspace_2.0-2   htmltools_0.5.2    httpuv_1.6.4      
[22] plyr_1.8.6         pkgconfig_2.0.3    broom_0.7.9       
[25] haven_2.4.3        xtable_1.8-4       scales_1.1.1      
[28] openxlsx_4.2.4     later_1.3.0        tzdb_0.1.2        
[31] generics_0.1.0     ellipsis_0.3.2     withr_2.4.3       
[34] lazyeval_0.2.2     cli_3.0.1          quantmod_0.4.18   
[37] magrittr_2.0.2     crayon_1.4.2       readxl_1.3.1      
[40] mime_0.12          evaluate_0.14      GGally_2.1.2      
[43] fs_1.5.2           fansi_0.5.0        xml2_1.3.2        
[46] xts_0.12.1         tools_4.1.3        data.table_1.14.2 
[49] hms_1.1.0          lifecycle_1.0.1    plotly_4.9.4.1    
[52] reprex_2.0.1       munsell_0.5.0      zip_2.2.0         
[55] formattable_0.2.1  compiler_4.1.3     rlang_0.4.12      
[58] grid_4.1.3         rstudioapi_0.13    htmlwidgets_1.5.4 
[61] igraph_1.2.6       rmarkdown_2.10     gtable_0.3.0      
[64] DBI_1.1.2          reshape_0.8.8      curl_4.3.2        
[67] R6_2.5.1           zoo_1.8-9          lubridate_1.7.10  
[70] knitr_1.34         fastmap_1.1.0      utf8_1.2.2        
[73] stringi_1.7.4      Rcpp_1.0.8         vctrs_0.3.8       
[76] dbplyr_2.1.1       tidyselect_1.1.1   xfun_0.26  

Plot