如何在Shiny应用中同步Plotly图表的用户与服务器端选中点？

方案1：重新绘图后保留选中状态 #

适用于你实际应用中仅修改着色参数、不会出现点映射混乱的场景。核心思路是用reactiveVal记录当前选中点的索引，重新生成图表时将这些点标记为选中状态：

library(shiny)
library(ggplot2)
library(plotly)

ui <- fluidPage(
  plotlyOutput("po"),
  selectInput("x", "x axis", names(iris)[1:4]),
  selectInput("y", "y axis", names(iris)[1:4]),
  verbatimTextOutput("vo")
)

server <- function(input, output, session) {
  # 存储选中点的索引
  selected_points <- reactiveVal(NULL)
  
  # 监听选中事件，更新存储的选中点
  observe({
    sel_data <- event_data("plotly_selected", source = "iris")
    selected_points(if (!is.null(sel_data)) sel_data$pointNumber else NULL)
  })
  
  output$po <- renderPlotly({
    p <- ggplot(iris) + geom_point(aes(.data[[input$x]], .data[[input$y]], color=Species))
    p <- ggplotly(p, source = "iris") %>% layout(dragmode = "lasso")
    
    # 恢复之前的选中状态
    if (!is.null(selected_points())) {
      p <- style(p, selectedpoints = selected_points(), selected = TRUE)
    }
    
    p
  })
  
  output$vo <- renderPrint({
    event_data("plotly_selected", source = "iris")
  })
}

shinyApp(ui, server)

方案2：更新图表时清空服务器端选中状态 #

如果不需要保留选中状态，这是最简单的实现方式：在坐标轴选择变化时，直接清空plotly_selected的服务器端缓存，确保前后端状态一致：

library(shiny)
library(ggplot2)
library(plotly)

ui <- fluidPage(
  plotlyOutput("po"),
  selectInput("x", "x axis", names(iris)[1:4]),
  selectInput("y", "y axis", names(iris)[1:4]),
  verbatimTextOutput("vo")
)

server <- function(input, output, session) {
  # 监听坐标轴变化，清空选中状态缓存
  observeEvent(c(input$x, input$y), {
    event_data("plotly_selected", source = "iris", clear = TRUE)
  })
  
  output$po <- renderPlotly({
    p <- ggplot(iris) + geom_point(aes(.data[[input$x]], .data[[input$y]], color=Species))
    ggplotly(p, source = "iris") %>% layout(dragmode = "lasso")
  })
  
  output$vo <- renderPrint({
    event_data("plotly_selected", source = "iris")
  })
}

shinyApp(ui, server)

附加问题：重置选中状态需多次点击的问题 #

这个是Plotly.js的已知行为，不少开发者都遇到过。默认情况下，lasso选择的重置需要在图表空白区域点击多次（双击通常无效），这是因为Plotly的事件处理逻辑对空白点击的识别不够灵敏。

你可以添加自定义按钮来解决这个问题，点击按钮时直接清空前后端的选中状态：

library(shiny)
library(ggplot2)
library(plotly)

ui <- tagList(
  fluidPage(
    plotlyOutput("po"),
    selectInput("x", "x axis", names(iris)[1:4]),
    selectInput("y", "y axis", names(iris)[1:4]),
    actionButton("reset_sel", "重置选中状态"),
    verbatimTextOutput("vo")
  ),
  # 前端清空选中状态的JS代码
  tags$script(HTML("
    Shiny.addCustomMessageHandler('clear_plotly_selection', function(message) {
      var plot = Plotly.getPlot('po');
      if (plot) {
        Plotly.restyle(plot, {selectedpoints: []});
      }
    });
  "))
)

server <- function(input, output, session) {
  observeEvent(input$reset_sel, {
    # 清空服务器端缓存
    event_data("plotly_selected", source = "iris", clear = TRUE)
    # 通知前端清空选中标记
    session$sendCustomMessage(type = "clear_plotly_selection", message = list())
  })
  
  output$po <- renderPlotly({
    p <- ggplot(iris) + geom_point(aes(.data[[input$x]], .data[[input$y]], color=Species))
    ggplotly(p, source = "iris") %>% layout(dragmode = "lasso")
  })
  
  output$vo <- renderPrint({
    event_data("plotly_selected", source = "iris")
  })
}

shinyApp(ui, server)

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