在 highcharter 工具提示中显示数据表

Question

使用此中的第一个代码块，我想创建一个工具提示，显示在特定 day.I 上就诊的医生列表，尝试了以下代码，但没有显示任何内容

library(DT)    
tltp = DT:: datatable(data.frame(Doctors = x[x$Clinic=="{point.series}"&x$VisitDate == "{point.x}",2]))
hc%>%hc_tooltip(pointFormat = tltp)

我也试过使用 tooltip_table ，它给出了错误

tltp = tooltip_table(x = NULL, y = x[x$Clinic=="{point.series}"&x$VisitDate == "{point.x}",2]
hc%>%hc_tooltip(pointFormat = tltp)

Error: unexpected symbol in:
"tltp = tooltip_table(x = NULL, y = x[x$Clinic=="{point.series}"&x$VisitDate == "{point.x}",2]
tltp"

抱歉我写作不流利javascript。

Answer 1

正如官方页面所推荐的那样，使用 highcharter 是一个很好的替代方法，请阅读 highchartsjs 的工作原理。因此，请参阅带有简单自定义工具提示的示例。

hc <- hchart(visits, "column", x = as.Date(VisitDate), y = freq, group = Clinic) %>% 
  hc_plotOptions(column = list(
    dataLabels = list(enabled = FALSE),
    stacking = "normal",
    enableMouseTracking = TRUE)
  )

使用列名称添加简单工具提示：Clinic 和 freq

hc %>% 
  hc_tooltip(pointFormat = "this is and clinic {point.Clinic} and freq {point.freq}")

tooltip_table功能是在工具提示中制作表格：

tt <- tooltip_table(c("Clinic", "Freq"), c("{point.series.name}", "{point.y}"))

hc %>% 
   hc_tooltip(pointFormat = tt, useHTML = TRUE)

如果您需要在工具提示中显示其他数据，您可以创建列：

visits$doctors <- sample(letters, size = nrow(visits))

然后再次创建图表（使用新数据）并在工具提示中使用此列：

hchart(visits, "column", x = as.Date(VisitDate), y = freq, group = Clinic) %>% 
  hc_plotOptions(column = list(
    dataLabels = list(enabled = FALSE),
    stacking = "normal",
    enableMouseTracking = TRUE)
  ) %>% 
  hc_tooltip(pointFormat = "Here is the doctor {point.doctors}")

在 highcharter 工具提示中显示数据表

Displaying datatable in highcharter tooltip

r

highcharts

dt