dt - 绘图图和 DT 表的客户端链接

Question

我正在尝试改编 Carson Sievert 的 plotly book 中的一个示例，他将传单 map 链接到数据框，以便它适用于绘图

 library(plotly)
 library(crosstalk)
 library(sf)

 nc <- sf::st_read(system.file("shape/nc.shp", package = "sf"), quiet = TRUE)
 df <- nc %>% 
     select(AREA,NAME) %>% 
     group_by(NAME)

 st_geometry(df) <- NULL

 hk <- highlight_key(df)

chart <-plot_ly(df, y= ~NAME,x= ~AREA, split = ~NAME) %>%
       highlight() %>%
       layout(showlegend = FALSE) 

  bscols(chart, DT::datatable(hk))

这会为每一行生成所需的图表和数据，但单击一个值 图表上不过滤数据表

Answer 1

您需要为绘图图和 dt 表提供 hk。另外，我建议添加 layout(barmode = "overlay") 条形图定义