R中按周分配日期到月份时seq函数报错的问题排查

错误根源 #

• 你的weeks_frame数据中，部分行的start_week实际日期晚于end_week。比如第一行start_week="02-01-2023"（2023年1月2日），end_week="01-01-2023"（2023年1月1日），转换成Date类型后，起始日期大于结束日期。
• seq()函数生成序列时，默认要求起始值≤结束值，当你使用by='days'（正步长）但起始日期晚于结束日期时，就会触发wrong sign in "by" argument错误。
• 部分年份能正常运行，是因为那些年份的start_week和end_week顺序完全正确（起始≤结束），没有出现日期倒置的行。

解决方案 #

方案1：临时修正日期顺序（不修改原数据） #

在生成日期序列前，先确保起始日期≤结束日期，用pmin()和pmax()自动取最小、最大日期作为起止：

lapply(1:nrow(weeks_frame), function(x) {
  start_date <- as.Date(weeks_frame$start_week[x], format="%d-%m-%Y")
  end_date <- as.Date(weeks_frame$end_week[x], format="%d-%m-%Y")
  # 确保起始日期早于或等于结束日期
  correct_start <- pmin(start_date, end_date)
  correct_end <- pmax(start_date, end_date)
  format(seq(correct_start, correct_end, by='days'), "%b")
})

方案2：从源头修正数据 #

直接调整weeks_frame中日期倒置的行，后续代码可正常运行：

# 先将字符型日期转换为Date类型
weeks_frame$start_week <- as.Date(weeks_frame$start_week, format="%d-%m-%Y")
weeks_frame$end_week <- as.Date(weeks_frame$end_week, format="%d-%m-%Y")

# 找出起始日期晚于结束日期的行，交换两列值
swap_idx <- weeks_frame$start_week > weeks_frame$end_week
weeks_frame[swap_idx, c("start_week", "end_week")] <- weeks_frame[swap_idx, c("end_week", "start_week")]

# 运行原逻辑即可正常生成月份列表
lapply(1:nrow(weeks_frame), function(x) {
  format(seq(weeks_frame$start_week[x], weeks_frame$end_week[x], by='days'), "%b")
})

内容的提问来源于stack exchange，提问作者Nadiine El Nino