有个办法这个想法是添加一个新的列

c("setosa", "", "", ..., "virginica", "", "", ..., "versicolor", "", "", ...)

到dataframe，然后单击按钮在此列中搜索setosa，virginica或versicolor。当然，此列对用户是隐藏的。

library(DT)
library(shiny)

dat <- iris
column <- "Species"
groups <- split(as.character(dat[[column]]), dat[[column]]) # use as.character 
                                                            # because it's factor
for(g in names(groups)) {
  group <- groups[[g]]
  groups[[g]][tail(seq_along(group), -1L)] <- ""
}

newColumn <- unsplit(groups, dat[[column]])
dat <- cbind(dat, newColumn)
index <- ncol(dat) # index of newColumn; subtract 1 if you don't show 
                   # row names in the DT table

levels <- names(groups)
regex <- paste0("(", paste0(levels, collapse = "|"), ")")
callback <- c(
  "var flag = true;",
  sprintf("var regex = '%s';", regex),
  sprintf("var j = %d;", index),
  "$('#btn').on('click', function() {",
  "  if(flag) {",
  "    table.columns(j).search(regex, true, false).draw();",
  "  } else {",
  "    table.columns(j).search('').draw();",
  "  }",
  "  flag = !flag;",
  "});"
)

dtable <- datatable(
  dat, 
  callback = JS(callback),
  options = list(
    columnDefs = list(
      list(targets = index, visible = FALSE)
    )
  )
)

ui <- fluidPage(
  br(),
  actionButton("btn", "Hide/show"),
  br(),
  DTOutput("tbl")
)

server <- function(input, output, session) {
  output[["tbl"]] <- renderDT(
    dtable
  )
}

shinyApp(ui, server)