R语言Plotly中如何提取缩放操作后对应的数据框

缩放操作不会让Plotly自动生成新的数据集，你看到的缩放视图本质是调整了坐标轴显示范围，所有展示的点都来自你绘图时传入的原始数据，只要拿到当前视图的坐标轴范围，对原始数据做子集筛选就能得到对应的数据框。

具体实现步骤 #

• 提前把绘图用的源数据存为独立变量，方便后续筛选

library(gapminder)
library(plotly)
library(dplyr)

# 存好绘图用的原始数据
chile_pop <- gapminder %>% filter(country == "Chile")

# 生成和原来一致的交互式折线图
pop_plot <- ggplotly(
  ggplot(chile_pop) + 
    aes(x = year, y = pop) + 
    geom_line()
)
pop_plot

• 完成框选缩放操作后，直接运行以下代码提取轴范围，筛选得到目标数据框

# 获取当前视图的布局参数，包含缩放后的轴范围
zoom_status <- event_data("plotly_relayout")

# 提取x轴（年份）的上下限，转为和源数据一致的整数格式
year_min <- as.integer(zoom_status$`xaxis.range[0]`)
year_max <- as.integer(zoom_status$`xaxis.range[1]`)

# 筛选得到缩放视图对应的数据集
zoomed_data <- chile_pop %>%
  filter(between(year, year_min, year_max))

• 如果你缩放时同时调整了y轴范围，用同样逻辑提取yaxis.range[0]、yaxis.range[1]，给筛选条件加人口范围的判断即可
• 如果你用的是框选工具（不是拖动轴缩放），直接运行event_data("plotly_selected")就能拿到框内所有点的坐标，不需要手动匹配轴范围

Shiny环境下实时获取缩放数据 #

如果是在Shiny应用里要实时响应缩放操作、自动更新对应数据框，直接在server端监听重绘事件即可：

server <- function(input, output) {
  output$pop_plot <- renderPlotly({pop_plot})
  
  zoomed_df <- reactive({
    zoom_info <- event_data("plotly_relayout")
    # 初始未缩放状态不触发计算
    req(zoom_info$`xaxis.range[0]`)
    
    chile_pop %>%
      filter(
        between(year,
                as.integer(zoom_info$`xaxis.range[0]`),
                as.integer(zoom_info$`xaxis.range[1]`)
        )
      )
  })
}

不要尝试从渲染后的前端页面爬取图表点数据，这种方法不仅容易出精度问题，效率也远低于直接从本地源数据筛选。

内容的提问来源于stack exchange，提问作者Laura