В настоящее время я создаю приложение, и я хочу иметь всплывающие подсказки с дополнительной информацией в большом количестве.
#Data
df <- data.frame(time = seq(as.Date("2021-03-10"), length = 10, by = "days"),
values = 1:10,
additionalInfo1 = LETTERS[1:10],
additionalInfo2 = letters[1:10])
#Packages
library(highcharter) #plots
library(xts) #conversion for stock-highchart
library(dplyr) #piping-operator
Я знаю, как добавить дополнительную информацию во всплывающую подсказку при использовании type="line". Это можно сделать через
highchart_line <- hchart(df, "line", hcaes(x = time, y = values),
tooltip = list(headerFormat = "<b> Some Tooltipheader </b> <br/>",
pointFormat = paste0("index: {point.index} <br/>",
"time: {point.time} <br/>",
"additional1: {point.additionalInfo1} <br/>",
"additional2: {point.additionalInfo2}")))
и показывает все нормально. Приятно то, что можно предоставить все данные и, следовательно, получить доступ к именам столбцов.
При создании type="stock" мне нужно преобразовать данные в xts, используя только время и значения:
stockdata_xts <- xts(x = df$values, order.by = df$time)
highchart_stock <- highchart(type="stock") %>%
hc_add_series(stockdata_xts, name = "someData",
tooltip = list(pointFormat = paste0(
"point.x: {point.x} <br/>",
"point.y: {point.y} <br/>",
"point.index: {point.index} <br/>"
))) %>%
hc_rangeSelector(enabled = FALSE)
Есть ли способ поместить дополнительные данные для всплывающей подсказки в диаграмму с высоким запасом, чтобы всплывающая подсказка выглядела так же, как на линейной диаграмме выше? Может быть, какая-то функциональность xts-объекта, включая дополнительные атрибуты для него, которых я не знаю.
Причина, по которой я хочу использовать stock-highchart, - это панель навигации. Если есть способ включить панель навигации в line-highchart, я также был бы благодарен. Также есть функция highcharter::hc_navigator, но в документации написано, что она применима только к highstocks. (см. https://cloud.r-project.org/web/packages/highcharter/highcharter.pdf, стр. 50)
