在highcharter工具提示中顯示數據表

Question

使用這篇文章中的第一個代碼塊，我想創建一個工具提示，顯示在某一天訪問診所的醫生列表。我嘗試了以下代碼，它沒有顯示任何內容

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}")