Shiny绘图brush在数据变更时消失，如何保留？

当你切换绘图的y轴数据时，Shiny会重新渲染整个图表，默认会清除之前的brush状态。要实现数据变化时仍保留brush，需要手动存储并恢复brush的位置参数，具体修改如下：

library(shiny)
library(ggplot2)

ui <- fluidPage(
  plotOutput("po1", brush = brushOpts(
    "br",
    direction = "x"
  )),
  textInput("ti", "Title")
)

server <- function(input, output, session) {
  # 用reactiveVal存储brush状态，初始为NULL
  brush_state <- reactiveVal(NULL)
  
  # 监听brush变化，更新存储的状态
  observeEvent(input$br, {
    brush_state(input$br)
    print(input$br$xmin)
    print(input$br$xmax)
    print("")
  }, ignoreNULL = FALSE)
  
  output$po1 <- renderPlot({
    p <- if (input$ti != "") {
      ggplot(iris) + 
        geom_point(aes(x = Sepal.Width, y = Petal.Length)) + 
        ggtitle(input$ti)
    } else {
      ggplot(iris) + 
        geom_point(aes(x = Sepal.Width, y = Petal.Width))
    }
    
    p + theme(plot.title = element_text(hjust = 0.5))
  }, brush = brushOpts("br", direction = "x", initial = brush_state()))
}

shinyApp(ui, server)

关键改动说明： #

• 新增brush_state <- reactiveVal(NULL)：创建响应式变量持久化存储brush的位置信息
• 监听input$br的变化：每次brush被调整时，将最新状态存入brush_state
• 在renderPlot的brush参数中添加initial = brush_state()：让每次渲染绘图时自动加载之前保存的brush状态，确保数据切换后brush依然显示在原位置

注意：当前场景下x轴始终为Sepal.Width，所以brush的x范围在数据切换后依然有效。如果后续需要切换x轴，需额外处理brush范围的兼容性。

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