r - उच्चचर्च टूलटिप में आंकड़े प्रदर्शित करना



highcharts dt (1)

इस पोस्ट में कोड के पहले ब्लॉक का उपयोग करना मैं एक टूलटिप बनाना चाहता हूँ जो एक विशेष दिन पर एक क्लिनिक पर जा रहे डॉक्टरों की सूची प्रदर्शित करेगी। मैंने निम्नलिखित कोड की कोशिश की जो कुछ भी प्रदर्शित नहीं करती

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"

माफी मैं जावास्क्रिप्ट लिखित रूप में धाराप्रवाह नहीं हूँ।


जैसा कि आधिकारिक पृष्ठ सुझाता है, हाईचर्टर का उपयोग करने के लिए अच्छा विकल्प पढ़ा जाता है कि कैसे उच्चचरर्जेज काम करता है तो, यह उदाहरण एक साधारण कस्टम टूलटिप के साथ देखें।

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




dt