如何在R语言dplyr中批量将包含特定字符的单元格值替换为NA？

我来帮你搞定这个批量替换包含特定子串为NA的需求！之前用na_if()只能做完全匹配确实不太够用，咱们可以结合dplyr的across()和stringr的str_detect()来实现批量、模糊匹配的替换，分两种常见场景给你演示：

场景1：多列统一替换包含某个子串的值为NA #

比如你最初的示例，要把所有包含"<"的单元格换成NA，用这种方法可以一次性处理多列：

library(tidyverse)

# 模拟你的原始数据
raw_data <- tibble(
  Column_A = c(3, 4, 8, "<5.6", 1, 3),
  Column_B = c(7, 4, "<6", 1, "<2.2", 8)
)

# 批量处理指定列，替换包含"<"的内容为NA
processed_data <- raw_data %>%
  mutate(across(c(Column_A, Column_B), ~ ifelse(str_detect(.x, "<"), NA, .x)))

# 查看结果
processed_data

运行后就能得到你想要的转换效果：Column_A里的<5.6和Column_B里的<6、<2.2都会被替换成NA。

场景2：不同列对应不同的子串替换规则 #

像你提到的starwars数据集，要给name列替换包含"sky"的值、eye_color列替换包含"unkn"的值，可以用下面两种方式实现：

方式1：直接为每列指定规则 #

library(tidyverse)

# 提取需要处理的列
starwars_sub <- starwars %>% select(name, eye_color)

# 针对性替换不同列的目标子串
starwars_edited <- starwars_sub %>%
  mutate(
    name = ifelse(str_detect(str_to_lower(name), "sky"), NA, name),
    eye_color = ifelse(str_detect(eye_color, "unkn"), NA, eye_color)
  )

# 验证结果（查看被替换成NA的行）
starwars_edited %>% filter(is.na(name) | is.na(eye_color))

这里用str_to_lower()是为了忽略大小写，确保像"Luke Skywalker"里的"Sky"也能被匹配到；如果不需要忽略大小写，直接用str_detect(name, "sky")就行。

方式2：用规则映射表批量处理（适合列数多的情况） #

如果要处理的列和规则很多，推荐用命名列表来维护规则，更清晰：

# 定义列名和对应要检测的子串
replace_rules <- list(
  name = "sky",
  eye_color = "unkn"
)

starwars_edited <- starwars_sub %>%
  mutate(across(all_of(names(replace_rules)), 
                ~ ifelse(str_detect(str_to_lower(.x), replace_rules[[cur_column()]]), NA, .x)))

cur_column()会自动获取当前正在处理的列名，然后从replace_rules里匹配对应的子串，这样后续新增规则只需要修改列表就行，不用改mutate里的代码。

关键知识点说明 #

• str_detect()：来自stringr包，用于检测字符串是否包含指定子串，返回TRUE/FALSE；
• across()：dplyr的工具，用于批量对多列应用同一个或不同的函数；
• 忽略大小写：如果不需要区分大小写，除了用str_to_lower()，也可以给str_detect()加参数ignore.case = TRUE，比如str_detect(name, "sky", ignore.case = TRUE)。

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