如何用R语言按ID计算首个与第二个dates的天数差值

要实现按ID计算第一个和第二个日期的天数差，并将差值赋值给对应ID的所有行（日期不足2个的ID填NA），可以通过以下步骤完成：

解决方案代码 #

set.seed(5)
MRE <- data.frame(ID = c(1,1,1,2,3,4,4,4,5,5),
                  dates = sample(seq(as.Date('1999/01/01'), as.Date('2000/01/01'), by="day"), 10)) 

library(dplyr)

# 直接在原数据中生成差值列
MRE <- MRE %>%
  group_by(ID) %>%
  arrange(dates) %>%  # 对每个ID内的日期按升序排序
  mutate(
    diff_days = if(n() >= 2) {
      # 计算第二个日期与第一个日期的整数天数差
      as.integer(dates[2] - dates[1])
    } else {
      NA  # 日期不足2个的ID返回NA
    }
  ) %>%
  ungroup()

# 验证结果
MRE$diff_days
# 输出结果：[1] 137 137 137  NA  NA   9   9   9 223 223，与期望完全一致

关键说明 #

1. 分组排序：先按ID分组，对每组内的dates升序排序，确保我们取到的是该ID下最早的两个日期。
2. 差值计算：用n()判断组内日期数量是否≥2，满足条件时计算dates[2] - dates[1]，通过as.integer()将difftime类型转为整数天数；不足2个日期时返回NA。
3. 原错误代码问题：你之前尝试的difftime(units = "weeks")缺少必要的两个日期参数，difftime必须传入两个日期对象才能计算差值，因此代码无效。

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