Shiny中R语言movies数据集plot_keywords不区分大小写筛选：else后用何函数

看起来你已经在搭建一个基于movies数据集的Shiny可视化应用了，针对plot_keywords的筛选需求，我来帮你梳理下解决方案：

首先明确你的核心需求：

• 支持不区分大小写的关键词匹配，比如输入Murder能匹配到包含murder的电影
• 筛选框为空时默认显示全部电影

先看你提供的代码片段，这里有几个需要调整的地方，尤其是filter函数里的else分支逻辑：

原代码片段 #

UI部分

ui <- fluidPage(
  fluidRow(
    column(3, wellPanel(
      textInput("plot", "I want to watch movie about...", NULL)
    )),
    # 这里应该还有你的输出部分，比如plotOutput等
  )
)

Server部分（原问题版本）

server <- function(input, output) {
  p <- input$plot
  m <- movies %>% filter(
    if(p != NULL) && (p != "") {plot_keywords == movies$plot_keywords} else
  )
}

修正后的解决方案 #

原代码的条件判断语法有误，而且==无法实现包含匹配和不区分大小写的需求。我们需要用dplyr结合stringr包的函数来实现：

完整修正后的Server核心代码

library(dplyr)
library(stringr)

server <- function(input, output) {
  # 假设你有一个输出对象，比如plotOutput("movie_plot")
  output$movie_plot <- renderPlot({
    # 先处理输入：去除前后空格，避免空白输入的干扰
    search_term <- trimws(input$plot)
    
    movies %>%
      filter(
        # 判断输入是否非空
        if(nzchar(search_term)) {
          # 不区分大小写的包含匹配
          str_detect(plot_keywords, regex(search_term, ignore_case = TRUE))
        } else {
          # 空输入时保留所有行
          TRUE
        }
      ) %>%
      # 这里添加你的可视化代码，比如：
      ggplot(aes(x = ...)) + geom_bar() + ...
  })
}

关键细节说明 #

1. trimws(input$plot)：去除输入文本的前后空格，防止用户不小心输入空格导致筛选异常。
2. nzchar(search_term)：比直接判断search_term != ""更可靠，它会识别空白字符串（比如全是空格的输入）为空，确保空输入时触发默认显示全部电影的逻辑。
3. str_detect + regex(ignore_case = TRUE)：实现不区分大小写的包含匹配——str_detect检查plot_keywords中是否存在目标关键词，regex(ignore_case = TRUE)让匹配忽略大小写。
4. else分支的TRUE：在dplyr::filter中，TRUE会保留所有行，完美满足空输入时显示全部电影的需求。

这样调整后，你的筛选功能就能正常工作了：输入任意关键词（不管大小写）都会匹配到包含该关键词的电影，清空输入框则回到显示全部电影的状态。

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