R语言按ID分组计算会员首次服务记录对应年龄（按年展示）

你可以使用dplyr+lubridate的tidyverse生态方案实现需求，核心逻辑是按ID分组后计算组内首次服务日期与出生日期的差值，再转换为年单位：

步骤1：加载依赖包 #

library(dplyr)
library(lubridate)

步骤2：执行计算 #

d <- d %>%
  # 按ID分组，后续聚合操作会按分组独立计算
  group_by(ID) %>%
  mutate(
    # 取当前ID的最小服务日期减出生日期，转换为年单位
    age_first_record = as.numeric(time_length(min(service_date) - dob, unit = "year"))
  ) %>%
  # 取消分组，避免后续操作受分组影响
  ungroup()

如果不想额外安装lubridate，也可以用基础R的日期运算实现，除以365.25兼顾闰年误差：

d <- d %>%
  group_by(ID) %>%
  mutate(
    age_first_record = as.numeric(min(service_date) - dob) / 365.25
  ) %>%
  ungroup()

错误原因说明 #

你之前代码的核心问题有两个：

• 没有添加group_by(ID)语句，min()函数会直接取整个数据集的最小差值，无法按ID独立计算
• 代码中使用了d$service_date、d$dob的写法，会直接调用整个数据集的原始列，无视dplyr的分组逻辑，要去掉数据集前缀直接写列名

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