Question

我正在尝试改写Carson Sievert的plotly book的示例，在该示例中，他将传单地图链接到数据框，以便它可用于绘图表

 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

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

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

1 个答案: