在R语言中基于出生日期列计算年龄列遇报错的求助

现有数据集 #

需求 #

为数据集添加age列，将出生日期转换为年龄。

尝试代码与报错 #

执行以下代码：

data$age <- age_calc(as.Date(data$dob, "%Y/%m/%d"), units = "years")

出现错误：

Error in if (any(enddate < dob)) { : 
  missing value where TRUE/FALSE needed

问题原因与解决方法 #

核心问题 #

报错根源是代码中读取的出生日期列不存在、日期格式不匹配，导致生成了NA值，触发age_calc函数的逻辑判断错误。

修正步骤与代码 #

1. 匹配列名：数据集里的出生日期列是Date，代码里误用了dob，需修正为data$Date。
2. 匹配日期格式：数据集日期是YYYY-MM-DD格式，代码里写的是%Y/%m/%d（斜杠分隔），需改为%Y-%m-%d，或省略格式参数（as.Date可自动识别标准日期格式）。
3. 显式指定结束日期：age_calc（来自eeptools包）建议显式传入enddate参数，避免因默认值逻辑引发的NA判断错误。

修正后的完整代码：

# 先加载依赖包
library(eeptools)

# 计算年龄
data$age <- age_calc(
  dob = as.Date(data$Date, "%Y-%m-%d"),
  enddate = Sys.Date(),
  units = "years"
)

无依赖替代方案 #

如果不想额外安装eeptools包，可用基础R代码计算年龄：

data$age <- floor(as.numeric(difftime(Sys.Date(), as.Date(data$Date), units = "weeks")) / 52.25)

内容的提问来源于stack exchange，提问作者Ahmed Abd El-Samie