data(citytemp)
highchart() %>%
hc_xAxis(categories = citytemp$month) %>%
hc_add_series(name = "Tokyo", data = citytemp$tokyo) %>%
hc_add_series(name = "London", data = citytemp$london) %>%
hc_tooltip(crosshairs = TRUE, backgroundColor = "gray",
headerFormat = "This is a custom header<br>",
shared = TRUE, borderWidth = 5)
Run the code above in your browser using DataLab