Question

使用此post中的第一个代码块我想创建一个工具提示，显示在某一天访问诊所的医生列表。我尝试了以下代码，但没有显示任何内容

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)

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

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工具提示中显示数据表

1 个答案: