examples - Visualización de datatable en la información sobre herramientas de Highcharter

highcharts demo

Question

Usando el primer bloque de código en esta publicación , quiero crear una información sobre herramientas que muestre la lista de doctores que visitan una clínica en un día en particular. Probé el siguiente código que no muestra nada

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

También traté de usar la tooltip_table que da error

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"

Disculpas, no soy fluido para escribir javascript.

Answer 1

Como recomienda la página oficial, utilizar Highcharter es una buena alternativa. Leer cómo funciona Highchartsjs. Por lo tanto, vea este ejemplo con una información sobre herramientas personalizada simple.

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

Agregar la información sobre herramientas simple usando los nombres de columna: Clinic y freq

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

La función tooltip_table consiste en crear tablas en la información sobre herramientas:

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

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

Si necesita otros datos para mostrar en la información sobre herramientas, puede crear la columna:

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

Y luego cree el gráfico nuevamente (usando los datos nuevos) y use esta columna en la información sobre herramientas:

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