如何在R中将指定日期替换为缺失值，其余保留原日期

针对你需要将日期列中1900-01-01替换为缺失值NA的需求，这里提供两种常用的R实现方式，对应你给出的SAS逻辑：

示例数据 #

df <- data.frame(
  id = c(1,2,3),
  date = as.Date(c("1900-01-01", "1984-01-01", "1900-01-01"))
)

方法1：基础R（对应SAS的条件逻辑写法） #

可以直接用ifelse函数实现，既可以修改原日期列，也可以生成新的清洗后列：

# 直接修改原date列
df$date <- ifelse(df$date == as.Date("1900-01-01"), NA, df$date)

# 或者生成新的cleandate列（和SAS代码逻辑完全对应）
df$cleandate <- ifelse(df$date == as.Date("1900-01-01"), NA, df$date)

方法2：tidyverse风格（dplyr包） #

如果习惯用tidyverse工具链，推荐用case_when，同时用NA_Date_保证日期类型一致性：

library(dplyr)

df <- df %>%
  mutate(date = case_when(
    date == as.Date("1900-01-01") ~ NA_Date_,
    TRUE ~ date
  ))

处理后结果 #

注：R中的NA表示缺失值，会自动排除在后续统计计算之外。

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