如何在R Shiny中实现基于子字符串的数据框过滤？

你的contains_substring函数当前的问题是，它会对整个Dog Breed列返回单个布尔值（判断整列是否存在匹配的子串），而不是为每行返回对应的匹配结果，所以无法直接用于filter的行级过滤。下面提供两种可行的实现方案：

方案一：修正自定义函数并应用 #

先修改函数，让它能对单个狗狗品种字符串进行判断，再通过向量化处理适配整列：

# 修正后的函数：接收单个品种字符串和子串列表，返回该品种是否包含任意子串
contains_substring <- function(dog_breed, substrings) {
  any(sapply(substrings, function(sub) grepl(sub, dog_breed, ignore.case = TRUE)))
}

然后在server的过滤逻辑中，用sapply对Dog Breed列的每一行应用该函数：

# fdf是已过滤的数据框
if (!is.null(input$select_dog_breed)) {
  fdf <- fdf %>%
    filter(sapply(`Dog Breed`, contains_substring, substrings = input$select_dog_breed))
}

方案二：无需自定义函数，直接用正则表达式拼接 #

这种方式更简洁高效，直接将选中的子串拼接成正则表达式（用|分隔表示“或”逻辑），再通过grepl匹配：

# fdf是已过滤的数据框
if (!is.null(input$select_dog_breed)) {
  # 拼接子串为正则表达式
  match_pattern <- paste(input$select_dog_breed, collapse = "|")
  fdf <- fdf %>%
    filter(grepl(match_pattern, `Dog Breed`, ignore.case = TRUE))
}

两种方案都能实现“保留包含至少一个选中子串的行”的需求，方案二更适合简单的子串匹配场景，代码更简洁；方案一适合后续需要扩展复杂匹配逻辑的情况。

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