如何在实时更新的Plotly图表中保持缩放状态

要解决Shiny中Plotly图表更新后重置缩放的问题，核心是记录当前图表的缩放状态，更新图表时复用这些状态，具体实现如下：

关键实现思路 #

• 监听Plotly的relayout事件，捕获用户缩放/平移操作对应的轴范围
• 将捕获到的轴范围存入reactiveValues作为状态缓存
• 每次生成新图表时，从缓存读取轴范围并应用到布局中

修改后的完整代码 #

library(shiny)
library(plotly)

generate_data <- function() {
  data.frame(
    timestamp = seq(as.POSIXct(Sys.time() - 3600), Sys.time(), by = "min"),
    value = runif(61, min = 100, max = 200) 
  )
}

ui <- fluidPage(
  plotlyOutput("trend_chart")
)

server <- function(input, output, session) {
  # 存储图表的缩放状态
  plot_ui_state <- reactiveValues(x_range = NULL, y_range = NULL)
  
  # 监听Plotly的relayout事件，捕获轴范围变化
  observeEvent(input$trend_chart_relayout, {
    relayout_data <- input$trend_chart_relayout
    # 提取x轴范围
    if (!is.null(relayout_data[["xaxis.range[0]"]])) {
      plot_ui_state$x_range <- c(relayout_data[["xaxis.range[0]"]], relayout_data[["xaxis.range[1]"]])
    }
    # 提取y轴范围
    if (!is.null(relayout_data[["yaxis.range[0]"]])) {
      plot_ui_state$y_range <- c(relayout_data[["yaxis.range[0]"]], relayout_data[["yaxis.range[1]"]])
    }
  })
  
  # 生成并更新图表
  output$trend_chart <- renderPlotly({
    invalidateLater(10000, session) # 每10秒更新一次
    data <- generate_data()
    
    p <- plot_ly(data, x = ~timestamp, y = ~value, type = 'scatter', mode = 'lines') %>%
      layout(
        title = "Random Data Over Time",
        # 应用缓存的轴范围（如果存在）
        xaxis = if (!is.null(plot_ui_state$x_range)) list(range = plot_ui_state$x_range),
        yaxis = if (!is.null(plot_ui_state$y_range)) list(range = plot_ui_state$y_range)
      )
    p
  })
}

# 运行应用
shinyApp(ui = ui, server = server)

代码说明 #

1. 状态存储：用reactiveValues创建x_range和y_range变量，专门保存用户调整后的轴范围。
2. 事件监听：通过input$trend_chart_relayout捕获用户的缩放、平移操作，从返回数据中提取轴范围并更新状态变量。
3. 状态复用：每次生成新图表时，在layout中检查缓存的轴范围，若存在则设置到对应轴的range参数，实现缩放状态的维持。

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