使用R获取列表中前五个连续日期的第一个日期

# 假设日期列表为dates
dates <- c("2022-01-01", "2022-01-02", "2022-01-03", "2022-01-05", "2022-01-06", "2022-01-07", "2022-01-08")

# 将日期列表按照升序排列
sorted_dates <- sort(dates)

# 初始化计数器和结果变量
count <- 0
result <- NULL

# 遍历日期列表，找到前五个连续日期的第一个日期
for (i in 1:length(sorted_dates)) {
  if (count == 5) {
    break
  }
  
  # 检查当前日期与下一个日期是否连续
  current_date <- as.Date(sorted_dates[i])
  next_date <- as.Date(sorted_dates[i+1])
  
  if (next_date - current_date == 1) {
    # 连续日期，更新计数器
    count <- count + 1
    
    if (is.null(result)) {
      # 第一个连续日期，保存为结果
      result <- current_date
    }
  } else {
    # 非连续日期，重置计数器
    count <- 0
    result <- NULL
  }
}

# 输出结果
print(result)