2

我正在创建一个由crosstalk包中的 SharedData 支持的 flexdashboard（不是闪亮的，而是通过 markdown 编织来创建静态 HTML）。我有两种类型的数据：data_wide用于显示有关key变量信息的数据表中，以及用于显示每个变量data_long的折线图的绘图图中。scoreyearkey

但是，我的数据表和绘图图似乎没有交互。换句话说，当我在数据表中选择一行时，绘图图似乎没有突出显示代表key.

这是一个模拟代码：

data_wide <- SharedData$new(data_wide, key = ~key)
data_long <- SharedData$new(data_long, key = ~key)

data_long %>% 
  plot_ly(x = ~year, y = ~score, split = ~key, color = ~key, type = "scatter", mode = "lines") %>% 
  highlight()

wide_data  %>% 
  datatable(style="bootstrap", class="compact", width="100%", rownames = F, escape = F, 
    options=list(deferRender=TRUE, scrollX = T))
4

0 回答 0