技术问询：点击DT::datatable行时，如何仅显示ggplotly对应数据点

当然可以实现这种双向交互！咱已经搞定了图表到表格的联动，现在补上表格到图表的反向联动就行，用Shiny配合ggplotly和DT就能轻松实现。下面给你一个完整的可运行示例，包含你已有的「图表放大更新表格」功能，加上新增的「表格行点击筛选图表数据」功能：

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

# 示例数据用mtcars，你可以替换成自己的数据集
data <- mtcars
data$car <- rownames(data) # 给每行加个唯一标识，方便后续匹配

ui <- fluidPage(
  titlePanel("图表与表格双向交互"),
  fluidRow(
    column(6, plotlyOutput("my_plot")),
    column(6, DTOutput("my_table"))
  )
)

server <- function(input, output, session) {
  
  # 初始渲染图表
  output$my_plot <- renderPlotly({
    p <- ggplot(data, aes(x = wt, y = mpg, text = car)) +
      geom_point(size = 3) +
      labs(x = "车重", y = "油耗")
    ggplotly(p) %>% 
      layout(dragmode = "zoom") # 开启放大功能
  })
  
  # 初始渲染表格
  output$my_table <- renderDT({
    datatable(data[, c("car", "wt", "mpg")],
              selection = "single", # 允许单行选中，也可以设为"multiple"允许多选
              rownames = FALSE,
              options = list(pageLength = 10))
  })
  
  # ----------------------
  # 已有的：图表放大时更新表格
  # ----------------------
  filtered_table_data <- reactive({
    # 获取plotly的当前轴范围
    x_range <- input$my_plot_relayout$`xaxis.range[0]`
    y_range <- input$my_plot_relayout$`yaxis.range[0]`
    
    if (!is.null(x_range) && !is.null(y_range)) {
      data %>%
        filter(wt >= x_range[1], wt <= x_range[2],
               mpg >= y_range[1], mpg <= y_range[2])
    } else {
      data
    }
  })
  
  # 更新表格数据
  observe({
    replaceData(dataTableProxy("my_table"), filtered_table_data(), resetPaging = FALSE)
  })
  
  # ----------------------
  # 新增的：表格行点击时更新图表
  # ----------------------
  # 监听表格选中的行
  selected_row_data <- reactive({
    req(input$my_table_rows_selected)
    data[input$my_table_rows_selected, ]
  })
  
  # 更新图表：只显示选中行对应的数据点，或者恢复全部
  observe({
    plot_proxy <- plotlyProxy("my_plot", session)
    
    if (!is.null(input$my_table_rows_selected)) {
      # 筛选出选中行的数据，获取它们的索引（plotly索引从0开始）
      selected_indices <- which(data$car %in% selected_row_data()$car) - 1
      # 用restyle方法隐藏未选中的点，只显示选中的
      plot_proxy %>%
        plotlyProxyInvoke("restyle", "opacity", 0.1, list(0)) %>% # 先把所有点设为半透明
        plotlyProxyInvoke("restyle", "opacity", 1, list(selected_indices)) # 选中点恢复完全不透明
    } else {
      # 没有选中行时，恢复所有点的透明度
      plot_proxy %>%
        plotlyProxyInvoke("restyle", "opacity", 1, list(0))
    }
  })
  
  # 可选：点击表格行时，图表自动聚焦到该点
  observe({
    req(selected_row_data())
    plot_proxy <- plotlyProxy("my_plot", session)
    plot_proxy %>%
      plotlyProxyInvoke("relayout", list(
        xaxis = list(range = c(selected_row_data()$wt - 0.5, selected_row_data()$wt + 0.5)),
        yaxis = list(range = c(selected_row_data()$mpg - 2, selected_row_data()$mpg + 2))
      ))
  })
}

shinyApp(ui, server)

关键部分拆解： #

• 表格选中事件监听：通过input$my_table_rows_selected获取选中行的索引，再提取对应数据。这里用car列作为唯一标识，你可以换成自己数据里的主键列。
• 高效图表更新：用plotlyProxy局部更新图表，比重新渲染整个renderPlotly更流畅。通过修改点的opacity（透明度）实现筛选效果——未选中点设为半透明，选中点保持清晰；如果想直接隐藏未选中点，把opacity设为0即可。
• 双向联动兼容：保留了你原有的「图表放大更新表格」逻辑，两者互不冲突，同时生效。
• 可选聚焦功能：最后那段代码能让图表在点击表格行时自动放大到选中点附近，提升交互体验，不需要的话可以直接删掉。

如果需要支持多行选中，只需要把DT的selection参数改成"multiple"，再调整选中数据的匹配逻辑就行。

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