R语言：基于birthdate列值批量修改指定列为NA的实现方法

需求说明 #

现有数据框中，用'1753-01-01'标识未知出生日期，该日期被用于计算currentage和duestatus列。需要实现：当birthdate等于'1753-01-01'时，将该行的birthdate、currentage、duestatus设为NA，其余列保持不变。

示例数据：

ID <- c("001", "002")
birthdate <- c("1753-01-01", "2019-01-10")
currentage <- c("98659", "1682")
duestatus <- c("due", "due")
gender <- c("F", "F")

df1 <- data.frame(ID, birthdate, currentage, duestatus, gender)

解决方案 #

使用dplyr的mutate结合across可以简洁实现批量列处理，避免重复写判断逻辑：

library(dplyr)

# 处理目标列
df_processed <- df1 %>%
  mutate(
    across(
      # 指定需要处理的列
      c(birthdate, currentage, duestatus),
      # 匿名函数：当birthdate为指定值时设为NA，否则保留原值
      ~case_when(birthdate == '1753-01-01' ~ NA_character_, TRUE ~ .x)
    )
  )

代码说明 #

• across(c(col1, col2, col3))：批量选择需要处理的列，减少重复代码
• case_when()：按条件赋值，这里判断当前行的birthdate是否为'1753-01-01'，满足则赋值NA_character_（因原列是字符类型），不满足则保留原列值.x

验证结果 #

运行上述代码后，df_processed的输出如下：

ID  birthdate currentage duestatus gender
1 001       <NA>       <NA>      <NA>      F
2 002 2019-01-10       1682       due      F

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