R-highcharter 组合工具提示

Question

我正在使用highcharter，但遇到以下问题。在末尾的https://jkunst.com/highcharter/articles/stock.html 中，您已经堆叠了图表，并且同时显示了每个系列的工具提示：

假设我有一个由

创建的图表

require(highcharter)

pd1 <- data.frame(x=1:10,y=rnorm(10))

plt <- highchart() %>% 
  hc_add_series(pd1, "scatter", hcaes(x = x, y = y), color = "#7cb4ed",
                tooltip = list(headerFormat="<b> data1 <b> <br/>", 
                               pointFormat = "x1: {point.x} <br/> y1: {point.y}"), 
                name = "data1")

pd2 <- data.frame(x=1:10,y=rnorm(10))

plt <- plt %>% 
  hc_add_series(pd2, "line", hcaes(x = x, y = y), color = "red",
                tooltip = list(headerFormat="<b> data2 <b> <br/>", 
                               pointFormat = "x2: {point.x} <br/> y2: {point.y}"), 
                name = "data2")

plt

我怎样才能实现与图片中相同的效果，即在移过一个点时会显示所有工具提示？ 我查看了hc_tooltip-function，发现shared，但是plt %>% hc_tooltip(shared=TRUE)不起作用。

Answer 1

问题是共享工具提示根本不应该在分散系列上工作，因为它们没有按 X 递增顺序排序和布局：https://github.com/highcharts/highcharts/issues/1431

您可以在此处找到建议的解决方法： Scatter tooltip of highchart is not being displaying

library('highcharter')
highchart() %>%
  hc_tooltip(shared=TRUE) %>%
  hc_add_series(
    type = "line",
    data = list(5, 4, 3, 5)
  ) %>%
  hc_add_series(
    type = "line",
    lineWidth = 0,
    data = list(15, 14, 13, 15)
  )