HighcharterR，来自工具提示中的R DataFrame的变量

Question

我有一个使用以下代码创建的data.frame。变量＆＃34; Kreationen＆＃34;包含指向不同视频的链接。

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)

现在我想创建一个Columnchart，它在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的一个元素非常好，但我不知道如何动态传递代码。当用户将鼠标悬停在第一个条形图上时，第一个视频将被渲染，当他悬停第二个条形图时，第二个视频将被渲染，等等。