如何在R Shiny应用中关联dataTableOutput与plot实现点选表格行更新图表

• DT表格选中功能配置逻辑：你需要在renderDT()函数中显式开启行选中配置，示例参数为selection = list(mode = "single", target = "row")，如果需要支持多选可以将mode改为"multiple"，需要选中单元格则把target改为"cell"。
• 选中状态监听逻辑：DT组件会自动生成对应选中状态的输入变量，格式为input$<你的DT输出ID>_rows_selected（行选中场景），如果是单元格选中则为input$<你的DT输出ID>_cells_selected，你需要在服务端逻辑中调用该变量获取选中行/单元格的索引。
• 选中维度值提取逻辑：拿到索引后，从你构造的节目原始数据表中提取对应行的筛选字段，比如日期、时段、频道值，示例代码：

  selected_info <- reactive({
    idx <- input$program_table_rows_selected
    if(length(idx)) {
      program_df[idx, c("日期", "时段", "频道")]
    } else {
      NULL
    }
  })
  

• 绘图数据响应式筛选逻辑：在柱状图的绘图数据生成逻辑中新增判断，当存在选中行时，用上面提取的日期、时段等字段过滤你的用户行为数据集，统计对应分组下的UniqueID数量；无选中行时保留原有的全量汇总逻辑作为默认展示。
• 绘图逻辑的响应绑定：确保你的renderPlot()函数内部直接引用了上面的选中状态变量或者封装好的selected_info()响应式变量，这样选中状态变化时才会触发绘图逻辑重新执行。
• 额外注意：如果你的DT开启了服务端渲染（即renderDT()中server = TRUE），需要额外处理索引映射逻辑，避免分页、排序后选中行索引和原始数据集错位。

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