如何在R Shiny渲染的表格中实现Excel式列下拉筛选列表？

你当前代码里用了filter = 'top'但没得到下拉列表，核心原因是当DT开启server = TRUE（服务器端渲染）时，默认的顶部筛选控件是文本输入框。要改成Excel式的下拉筛选，只需调整DT的筛选配置，以下是具体修改方案：

修改后的完整代码 #

Server.R #

library(shiny)
library(DT)

shinyServer(function(input, output, session) {

  mtcars2 = data.frame(
    name = rownames(mtcars), mtcars[, c('mpg', 'hp')],
    stringsAsFactors = FALSE
  )
 
  output$tbl = DT::renderDataTable({
    DT::datatable(
      mtcars2,
      # 配置顶部筛选，为每列指定下拉类型
      filter = list(
        position = 'top',
        clear = TRUE,
        columns = list(
          list(type = "select"),  # 第一列（name）用下拉筛选
          list(type = "select"),  # 第二列（mpg）用下拉筛选
          list(type = "select")   # 第三列（hp）用下拉筛选
        )
      ),
      server = TRUE, 
      rownames = FALSE,
      options = list(
        autoWidth = TRUE
      )
    )
  })
})

UI.R #

（UI部分无需修改，保持原代码即可）

library(shiny)

shinyUI(fluidPage(
  title = 'Column Filters on the Server Side',
  fluidRow(
    DT::dataTableOutput('tbl')
  )
))

关键修改点说明 #

1. 显式使用DT::datatable()构造表格：
   不再直接将数据传给renderDataTable，而是先通过datatable()函数配置筛选规则，这样能更精准控制每列的筛选类型。

2. 配置filter参数指定下拉筛选：
   在filter列表中，通过columns项为每一列设置type = "select"，强制该列使用下拉列表作为筛选控件。clear = TRUE还会添加筛选清除按钮，更贴近Excel的操作体验。

3. 保留server = TRUE的优势：
   如果你是因为数据量较大才用服务器端渲染，修改后依然能保留这一特性，下拉选项会自动基于当前服务器端返回的数据集生成去重后的唯一值。

额外优化（可选） #

如果希望某列的下拉选项固定为预设值（而非自动提取），可以在columns配置中添加values参数，比如针对mpg列：

list(type = "select", values = sort(unique(mtcars2$mpg)))

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