使用matches函数选列并替换选中列NA值的问题排查与修正

我有一个包含多列以ID开头的数据框，示例如下：

id_row  ID df_1 wsts (xc) ... ID df_2 ... ID df_3 ...
1   tc  2937.5 ... tc ... xk
2   tc  3048      xk     xk
3   NA 1323       ck     NA
4   xk  4245      NA     NA

其中...代表ID列之间的数值列。我想要仅选择列名以"ID"开头的列，并将这些列中的NA值替换为字符串"NULL"，但当前代码执行后未实现预期效果，返回的数据集未替换NA值，代码如下：

df_2 %>%
     select(matches("^ID")) %>%
     replace_na(list(. = "NULL"))

请问：

1. 当前方法存在什么问题？
2. 需要如何修改才能达成目标？

1. 当前方法的问题 #

• replace_na()的参数写法错误：list(. = "NULL")不是合法用法，replace_na()要求传入的列表是列名-替换值的键值对，用.无法指代所有选中的列，函数无法识别需要处理的目标列，因此不会执行NA替换操作。
• 额外说明：如果这些ID列原本是数值类型，替换成字符串"NULL"会将列类型转为字符型，这是合理的，但原代码的核心问题是参数格式错误。

2. 修改方案 #

有两种实用的修改方式：

方式一：用mutate(across(...))批量处理 #

利用dplyr的across()函数指定所有选中的列，再调用replace_na完成替换：

df_2 %>%
  select(matches("^ID")) %>%
  mutate(across(everything(), ~replace_na(.x, "NULL")))

这里everything()指代所有已选中的列，~replace_na(.x, "NULL")对每一列执行NA替换逻辑。

方式二：手动指定列名（适合列数较少的场景） #

如果明确知道所有以ID开头的列名，可以直接在replace_na的列表里列出：

df_2 %>%
  select(matches("^ID")) %>%
  replace_na(list(`ID df_1` = "NULL", `ID df_2` = "NULL", `ID df_3` = "NULL"))

注意列名包含空格时，需要用反引号`包裹。

补充：保留原数据框其他列的写法 #

如果不需要筛选列，只想修改原数据框中所有以ID开头的列，可去掉select()，直接在across()里指定匹配规则：

df_2 %>%
  mutate(across(starts_with("ID"), ~replace_na(.x, "NULL")))

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