dplyr的na_if函数是否支持传入多个值批量替换为缺失值？

问题原因 #

na_if() 仅支持单次替换单个指定值，第二个参数要求是长度为1的标量或者和待处理向量等长的向量，直接传入多值匹配列表会触发长度不匹配的警告，无法实现批量替换。

可行实现方案 #

方案1：用replace() + %in% 实现（最直观，性能最优）

直接判断元素是否在待替换的取值列表中，匹配的位置替换为NA即可：

df2 <- df %>%
  mutate(across(where(is.character), 
                ~replace(., . %in% c("97", "98", "99"), NA)))

方案2：用purrr::reduce()迭代调用na_if()（需要保留na_if调用逻辑时用）

如果你希望仍然基于na_if()实现，可以用迭代器逐个执行替换操作：

library(purrr)
df2 <- df %>%
  mutate(across(where(is.character), 
                ~reduce(c("97", "98", "99"), na_if, .init = .x)))

方案3：用if_else()实现

逻辑和方案1一致，写法更灵活可扩展其他判断条件：

df2 <- df %>%
  mutate(across(where(is.character), 
                ~if_else(. %in% c("97", "98", "99"), NA_character_, .)))

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