У меня есть data.frame, который создается с помощью следующего кода.Переменная «Kreationen» содержит ссылки на разные видео.
df <- rawdata %>%
mutate(Euro = as.numeric(Euro)) %>%
group_by(Firma, Marke, Kreationen, Mediengruppe) %>%
summarize(Total = sum(Euro)) %>%
select(Firma, Marke, Mediengruppe, Kreationen, Total) %>%
head(5)
Теперь я хочу создать столбчатую диаграмму, которая отображает видео в div, который я создал ранее, и он пуст.
highchart() %>%
hc_chart(type = "column") %>%
hc_add_series(data = df$Total) %>%
hc_tooltip(formatter = JS(paste0('function() {var html = `<object width="1000" height="700" data="', df$Kreationen[1], '"></object>`; var x = document.getElementById("videos"); x.innerHTML = html}')))
Код работает абсолютно нормально для одного элемента data.frame, но я понятия не имею, как передать код динамически.Когда пользователь наводит курсор мыши на первую полосу, первое видео должно отображаться, когда он наводит курсор на второй строке, второе видео воспроизводится и т. Д.