R语言判断dataframe逗号分隔列是否含指定值并新增标记列

基础R实现（无需安装额外包） #

不要直接用简单字符串匹配，避免把1475、4750这类包含目标子串但不是独立值的内容误判。最稳妥的无依赖方案是先给每个字符串首尾补逗号，再匹配固定格式的目标子串，实现100%精确匹配独立值：

# 构造示例数据
data <- data.frame(a = 1:5, b = c("123", "6475,320", "475", "905,1204,543", "567,475"))

# 新增判断列
data$has_475 <- grepl(",475,", paste0(",", data$b, ","))

运行后得到的结果和预期完全一致：

> data
  a            b has_475
1 1          123   FALSE
2 2     6475,320   FALSE
3 3          475    TRUE
4 4 905,1204,543   FALSE
5 5      567,475    TRUE

tidyverse 简洁实现 #

如果日常用tidyverse生态处理数据，可以用stringr包的正则边界匹配，写法更直观：

library(tidyverse)

data <- data %>% 
  mutate(has_475 = str_detect(b, "\\b475\\b"))

代码里的\\b是正则单词边界符，同样可以保证只匹配独立的475值，不会出现误匹配。

特殊情况适配 #

如果你的逗号分隔字符串里逗号前后存在多余空格（比如"567, 475"格式），可以先去除所有空格再做匹配，避免漏判：

# 基础R适配带空格的场景
data$has_475 <- grepl(",475,", paste0(",", gsub("\\s", "", data$b), ","))

# tidyverse适配带空格的场景
data <- data %>% 
  mutate(has_475 = str_detect(gsub("\\s", "", b), "\\b475\\b"))

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