问题描述
我正在创建一个由 crosstalk
包中的 SharedData 支持的 flexdashboard(不是闪亮的,通过降价编织来创建静态 HTML)。我有两种类型的数据:data_wide
用于显示有关 key
变量的信息的数据表和用于显示 data_long
折线图的绘图图中的 score
对于每个 year
变量的每个 key
。
但是,我的数据表和绘图图似乎没有交互作用。换句话说,当我在数据表中选择一行时,绘图图似乎没有突出显示表示 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))
解决方法
暂无找到可以解决该程序问题的有效方法,小编努力寻找整理中!
如果你已经找到好的解决方法,欢迎将解决方案带上本链接一起发送给小编。
小编邮箱:dio#foxmail.com (将#修改为@)