R Shiny交互图点击选点后如何保留已选点的颜色标记？

核心思路 #

通过维护一个响应式的已选点数据集，在绘图时叠加标记已选点，实现点击"Add selection"后永久保留选中状态的可视化。

1. 用响应式变量存储已选点 #

在Shiny的server函数中，使用reactiveVal或reactiveValues来持久化存储已选点的完整数据（含颜色分组信息），确保每次点击都能累加或更新：

server <- function(input, output, session) {
  # 初始化已选点的响应式存储
  selected_points <- reactiveVal(data.frame())
  
  # 处理"Add selection"按钮点击事件
  observeEvent(input$add_selection, {
    # 获取当前交互图选中的点（以plotly为例，对应input$<plot_id>_selected）
    current_selected <- event_data("plotly_selected")
    if (!is.null(current_selected)) {
      # 匹配原始数据中的对应点，带上颜色分组
      matched <- original_data[original_data$x %in% current_selected$x & original_data$y %in% current_selected$y, ]
      # 合并并去重，避免重复添加
      updated <- unique(rbind(selected_points(), matched))
      # 更新已选点数据
      selected_points(updated)
    }
  })
}

2. 绘图时叠加已选点标记 #

绘图时同时渲染原始点和已选点，用差异化的样式（如更大尺寸、空心边框）区分已选状态，以plotly为例：

output$interactive_plot <- renderPlotly({
  # 绘制原始数据点
  base_plot <- plot_ly(original_data, x = ~x, y = ~y, color = ~color_group,
                       type = "scatter", mode = "markers", name = "原始点")
  
  # 叠加已选点标记
  if (nrow(selected_points()) > 0) {
    base_plot <- base_plot %>%
      add_trace(data = selected_points(), x = ~x, y = ~y, color = ~color_group,
                type = "scatter", mode = "markers",
                marker = list(size = 12, symbol = "circle-open", line = list(width = 2)),
                name = "已选点")
  }
  
  base_plot %>% layout(showlegend = TRUE)
})

3. 基于ggplot2+ggiraph的实现（可选） #

如果使用ggiraph实现交互，可在原始数据中添加is_selected标记列，通过响应式变量更新状态，绘图时根据该列设置样式：

server <- function(input, output, session) {
  # 初始化带选中状态的数据集
  data_with_status <- reactiveVal(transform(original_data, is_selected = FALSE))
  
  observeEvent(input$add_selection, {
    # 获取ggiraph选中的点ID
    selected_ids <- input$interactive_plot_selected$selected
    if (!is.null(selected_ids)) {
      current_data <- data_with_status()
      current_data$is_selected[selected_ids] <- TRUE
      data_with_status(current_data)
    }
  })
  
  output$interactive_plot <- renderggiraph({
    p <- ggplot(data_with_status(), aes(x = x, y = y, color = color_group,
                                        shape = is_selected, size = is_selected)) +
      geom_point_interactive(aes(tooltip = paste("x:", x, "y:", y))) +
      scale_shape_manual(values = c(FALSE = 19, TRUE = 21)) +
      scale_size_manual(values = c(FALSE = 3, TRUE = 5))
    
    ggiraph(code = print(p), selection_type = "multiple")
  })
}

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