在R中，使用Plotly如何提取与Zoom-In工具相关的数据框架？

Question

这是我的代码：

library(gapminder)

ggplotly(ggplot(gapminder %>% filter(country == "Chile")) + aes(x = year, y = pop) + geom_line())

然后我在工具中使用Zoom：

​

​“>

我的问题是：我如何访问/访问/提取与此输出相关的数据帧？

有帮助吗？

Answer 1

我想您需要这个：我们可以使用crosstalk：

library(DT)
library(plotly)
library(crosstalk)
library(gapminder)

options(persistent = FALSE)

my_data <- SharedData$new(gapminder %>% filter(country == "Chile"))

my_plot <- plot_ly(my_data, x = ~ year, y = ~ pop, type = 'scatter', mode = 'lines') %>%
  add_markers(alpha = 0.5) %>%
  highlight(on = "plotly_selected", off = "plotly_deselect", dynamic = TRUE)

my_table <- datatable(my_data)

bscols(widths = c(6, 4), my_plot, my_table)