R Shiny中如何通过点击绘图替换或添加新的响应式绘图？

先修正你原代码里的几个关键问题：

• Shiny中输出绘图要用renderPlot()，不是reactive()
• 代码里dt、dx是未定义变量，得基于过滤后的响应式数据操作
• 点击事件里生成的ggplot没有绑定到输出，所以不会显示到UI上

下面分两种场景给出完整实现：

场景1：点击点后替换原绘图 #

通过一个响应式值存储选中的模型，在绘图输出里根据这个值切换显示内容：

library(shiny)
library(ggplot2)
library(dplyr)

ui <- fluidPage(
  # 过滤控件（模拟你的自由过滤需求）
  selectInput("manufacturer", "选择厂商", choices = unique(mpg$manufacturer)),
  selectInput("year", "选择年份", choices = unique(mpg$year)),
  # 绘图输出，绑定点击事件
  plotOutput("p1", click = "plot_click")
)

server <- function(input, output, session) {
  # 过滤后的响应式数据
  filtered_data <- reactive({
    mpg %>%
      filter(manufacturer == input$manufacturer,
             year == input$year)
  })
  
  # 响应式值：存储选中的模型
  selected_model <- reactiveVal(NULL)
  
  # 监听绘图点击事件
  observeEvent(input$plot_click, {
    # 从过滤后的数据中获取点击的点对应的model
    clicked_point <- nearPoints(filtered_data(), input$plot_click, 
                               threshold = 10, maxpoints = 1)
    if(nrow(clicked_point) > 0) {
      selected_model(clicked_point$model)
    } else {
      selected_model(NULL) # 点击空白处重置
    }
  })
  
  # 生成绘图：根据是否选中模型切换内容
  output$p1 <- renderPlot({
    if(!is.null(selected_model())) {
      # 选中模型时，生成新绘图
      df <- filtered_data() %>%
        filter(model == selected_model()) %>%
        select(model, displ)
      
      ggplot(df, aes(x = model, y = displ, group = 1)) +
        geom_point(size = 5, color = "#2E8B57") +
        ggtitle(paste("模型", selected_model(), "的排量分布"))
    } else {
      # 未选中时，生成原绘图
      ggplot(filtered_data(), aes(x = displ, y = cty)) +
        geom_point(size = 7, colour = "#EF783D", shape = 17) +
        geom_line(color = "#EF783D") +
        ggtitle(paste("Insights : ", input$manufacturer, input$year, sep = ", "))
    }
  })
}

shinyApp(ui, server)

场景2：点击点后在原绘图下方添加新绘图 #

新增一个绘图输出，只有点击后才显示：

library(shiny)
library(ggplot2)
library(dplyr)

ui <- fluidPage(
  # 过滤控件
  selectInput("manufacturer", "选择厂商", choices = unique(mpg$manufacturer)),
  selectInput("year", "选择年份", choices = unique(mpg$year)),
  # 原绘图，绑定点击事件
  plotOutput("p1", click = "plot_click"),
  # 新增的绘图（默认隐藏，点击后显示）
  plotOutput("p2")
)

server <- function(input, output, session) {
  # 过滤后的响应式数据
  filtered_data <- reactive({
    mpg %>%
      filter(manufacturer == input$manufacturer,
             year == input$year)
  })
  
  # 响应式值：存储选中点的对应数据
  selected_data <- reactiveVal(NULL)
  
  # 监听点击事件
  observeEvent(input$plot_click, {
    clicked_point <- nearPoints(filtered_data(), input$plot_click, 
                               threshold = 10, maxpoints = 1)
    if(nrow(clicked_point) > 0) {
      # 获取该模型的所有数据
      df <- filtered_data() %>%
        filter(model == clicked_point$model) %>%
        select(model, displ)
      selected_data(df)
    } else {
      selected_data(NULL)
    }
  })
  
  # 原绘图
  output$p1 <- renderPlot({
    ggplot(filtered_data(), aes(x = displ, y = cty)) +
      geom_point(size = 7, colour = "#EF783D", shape = 17) +
      geom_line(color = "#EF783D") +
      ggtitle(paste("Insights : ", input$manufacturer, input$year, sep = ", "))
  })
  
  # 新增绘图：只有选中数据时才渲染
  output$p2 <- renderPlot({
    req(selected_data()) # 确保有数据才执行
    ggplot(selected_data(), aes(x = model, y = displ, group = 1)) +
      geom_point(size = 5, color = "#2E8B57") +
      ggtitle(paste("模型", unique(selected_data()$model), "的排量分布"))
  })
}

shinyApp(ui, server)

关键说明 #

• 用reactiveVal()存储点击状态，保证响应式更新
• 所有数据操作都基于过滤后的响应式数据，和你的需求匹配
• nearPoints()直接使用过滤后的数据，确保点击的是当前显示的点
• 场景2中用req()控制新增绘图的显示，避免空数据报错

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