R语言中带日期的条件滞后：日期相同时如何跳至下一个不同日期？

不需要使用for循环，用dplyr包即可简洁实现需求。以下是两种高效的解决方案：

方法一：基于唯一日期序列匹配 #

先提取分组内的唯一日期，生成其超前值后再匹配回原始数据：

library(dplyr)
library(tibble)

# 构造示例数据
have <- tibble(
  ID = c("a", "a", "a", "b", "b", "b", "b", "b"),
  Value = c(50, 52, 33, 10, 52, 45, 33, 40),
  Date = as.Date(c("1987-01-01", "1987-01-01", "1989-05-03", 
                   "1979-08-28", "1988-02-23", "1988-02-23", "1988-02-23", "1990-05-20"))
)

# 生成目标数据
want <- have %>%
  group_by(ID) %>%
  mutate(
    # 提取分组内的唯一日期列表
    unique_dates = list(unique(Date)),
    # 生成唯一日期的超前值（下一个不同日期）
    lead_unique = list(lead(unique(Date))),
    # 匹配当前日期对应的下一个不同日期
    Lead_date = lead_unique[[1]][match(Date, unique_dates[[1]])]
  ) %>%
  select(-unique_dates, -lead_unique) %>%
  ungroup()

方法二：基于日期组编号 #

先给同日期的行分配组号，再对日期组做超前处理：

want <- have %>%
  group_by(ID) %>%
  # 为相同日期的行生成统一组号
  mutate(date_group = cumsum(Date != lag(Date, default = first(Date)))) %>%
  # 按ID和日期组分组，获取每组的下一个日期
  group_by(ID, date_group) %>%
  mutate(Lead_date = lead(first(Date), n = 1)) %>%
  ungroup() %>%
  select(-date_group)

结果验证 #

运行上述代码后，want数据将与示例完全一致：

# A tibble: 8 × 4
  ID    Value Date       Lead_date 
  <chr> <dbl> <date>     <date>    
1 a        50 1987-01-01 1989-05-03
2 a        52 1987-01-01 1989-05-03
3 a        33 1989-05-03 NA        
4 b        10 1979-08-28 1988-02-23
5 b        52 1988-02-23 1990-05-20
6 b        45 1988-02-23 1990-05-20
7 b        33 1988-02-23 1990-05-20
8 b        40 1990-05-20 NA        

两种方法均避免了for循环，处理效率更高，适合大规模数据集。

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