Shiny中selectInput开启multiple=TRUE时如何获取全部选中值

这个问题我之前也碰到过！当selectInput开启multiple=TRUE后，input$levels返回的是字符向量，不是单个字符串——直接把它丢到绘图标题里，R会默认取向量的第一个元素，所以标题只显示第一个选中项，但绘图逻辑里你应该是遍历了整个向量做筛选，所以内容是正常的。

要获取全部选中值并拼成合适的标题，只需要把这个字符向量拼接成单个字符串就行，这里有两种常用方法：

方法1：用Base R的paste()函数 #

paste()的collapse参数可以帮你把向量元素用指定分隔符连起来，比如用逗号加空格分隔：

paste(input$levels, collapse = ", ")

方法2：用stringr包的str_c()函数（更简洁） #

如果你习惯用tidyverse工具链，stringr::str_c()的语法更直观，效果一样：

library(stringr)
str_c(input$levels, collapse = " & ")

完整示例代码 #

下面是一个可直接运行的Shiny示例，包含了多选标题处理，还加了空选中的容错逻辑：

library(shiny)
library(ggplot2)

ui <- fluidPage(
  selectInput(
    inputId = "levels",
    label = "选择要展示的类别",
    choices = c("苹果", "香蕉", "橙子", "葡萄"),
    multiple = TRUE,
    selected = "苹果"
  ),
  plotOutput("fruit_plot")
)

server <- function(input, output) {
  output$fruit_plot <- renderPlot({
    # 处理空选中的情况，避免标题为空
    plot_title <- if (length(input$levels) > 0) {
      paste("选中的水果：", paste(input$levels, collapse = "、"))
    } else {
      "未选择任何水果"
    }
    
    # 模拟数据
    set.seed(123)
    fruit_data <- data.frame(
      水果 = rep(c("苹果", "香蕉", "橙子", "葡萄"), each = 15),
      销量 = rnorm(60, mean = 50, sd = 10)
    )
    
    # 筛选选中的类别
    filtered_data <- fruit_data[fruit_data$水果 %in% input$levels, ]
    
    ggplot(filtered_data, aes(x = 水果, y = 销量, fill = 水果)) +
      geom_boxplot(show.legend = FALSE) +
      labs(title = plot_title, y = "销量") +
      theme_minimal()
  })
}

shinyApp(ui, server)

你可以根据需求调整分隔符（比如把、改成&或者, ），也可以给标题加前缀，让显示更友好。

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