点击dt::datatable后按行号而非值筛选DataFrame的修复方案

方案1：点击Owner列单元格按值筛选 #

当前问题源于你获取的是点击行的行号，而非Owner列单元格的具体值。通过监听单元格点击事件，提取对应列的内容即可实现按值筛选：

library(shiny)
library(DT)

ui <- fluidPage(
  DTOutput("top_table"),
  br(),
  DTOutput("bottom_table")
)

server <- function(input, output, session) {
  # 模拟业务数据
  data <- data.frame(
    Owner = c("Alice", "Bob", "Alice", "Charlie", "Bob"),
    Item = c("Laptop", "Phone", "Tablet", "Desktop", "Headphones"),
    Value = c(1000, 800, 300, 1500, 200)
  )
  
  output$top_table <- renderDT({
    datatable(
      data,
      selection = "none", # 关闭行选择，避免干扰单元格点击
      options = list(
        columnDefs = list(list(targets = 0, className = "dt-center")) # 可选：设置Owner列居中
      )
    )
  })
  
  # 根据点击的Owner单元格筛选数据
  filtered_data <- reactive({
    clicked_cell <- input$top_table_cell_clicked
    if (!is.null(clicked_cell)) {
      # DT列索引从0开始，判断是否点击的是Owner列（第一列）
      if (clicked_cell$col == 0) {
        data[data$Owner == clicked_cell$value, ]
      } else {
        data # 点击其他列不触发筛选
      }
    } else {
      data # 初始状态显示全部数据
    }
  })
  
  output$bottom_table <- renderDT({
    datatable(filtered_data())
  })
}

shinyApp(ui, server)

核心要点：

• 用input$[表格ID]_cell_clicked获取点击单元格的col（列索引）和value（单元格内容）
• 仅当点击Owner列（索引0）时，才用对应的值筛选下方表格

方案2：整行选择后按Owner值筛选 #

如果改为整行选择模式，可通过DT的行选择功能实现：

library(shiny)
library(DT)

ui <- fluidPage(
  DTOutput("top_table"),
  br(),
  DTOutput("bottom_table")
)

server <- function(input, output, session) {
  data <- data.frame(
    Owner = c("Alice", "Bob", "Alice", "Charlie", "Bob"),
    Item = c("Laptop", "Phone", "Tablet", "Desktop", "Headphones"),
    Value = c(1000, 800, 300, 1500, 200)
  )
  
  output$top_table <- renderDT({
    datatable(
      data,
      selection = "single", # 启用单行选择，若需多选可改为"multiple"
      options = list(
        rowCallback = JS(
          "function(row, data) {",
          "  $(row).css('cursor', 'pointer');",
          "}"
        ) # 可选：鼠标移至行上显示指针样式
      )
    )
  })
  
  filtered_data <- reactive({
    selected_row <- input$top_table_rows_selected
    if (!is.null(selected_row)) {
      # 提取选中行的Owner值
      target_owner <- data$Owner[selected_row]
      # 筛选所有同Owner的数据
      data[data$Owner == target_owner, ]
    } else {
      data
    }
  })
  
  output$bottom_table <- renderDT({
    datatable(filtered_data())
  })
}

shinyApp(ui, server)

核心要点：

• 设置selection = "single"启用单行选择，多选则用"multiple"（此时筛选需改为data$Owner %in% target_owner）
• 用input$[表格ID]_rows_selected获取选中行的索引（R数据框行号从1开始），提取对应Owner值后筛选

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