R如何将日期区间数据展开为逐行连续单日数据并解决by参数报错问题

报错原因 #

wrong sign in 'by' argument 报错的核心触发条件是：你的数据集中存在**from日期晚于to日期**的异常行。seq.Date函数默认正序生成日期序列时要求起始日期 ≤ 结束日期，遇到from > to的行就会抛出该错误。

另外你原有代码还存在一个问题：mutate(id= 1:nrow(.))会直接覆盖原始数据里的id字段，导致最终输出丢失原有id、deg字段信息。

解决步骤 #

步骤1：预处理数据 #

首先确保起止字段为日期类型，同时处理异常的起止顺序：

library(dplyr)
library(tidyr)
library(lubridate)

df1_clean <- df1 %>%
  # 将起止字段转成标准日期格式，避免字符型比较错误
  mutate(
    from = ymd(from),
    to = ymd(to),
    # 自动校正起止顺序，确保每行的开始日期≤结束日期
    start = pmin(from, to),
    end = pmax(from, to)
  )

如果不想保留异常行，可以直接过滤掉from > to的记录：

df1_clean <- df1 %>%
  mutate(from = ymd(from), to = ymd(to)) %>%
  filter(from <= to)

步骤2：展开日期区间为单日记录 #

推荐用rowwise+unnest的写法，比do语法效率更高、可读性更强：

df2 <- df1_clean %>%
  rowwise() %>%
  # 为每行生成连续日期的列表
  mutate(date = list(seq.Date(start, end, by = "day"))) %>%
  # 将日期列表展开为多行
  unnest(date) %>%
  # 筛选保留需要的字段
  select(id, deg, date)

运行上述代码得到的df2就和你期望的输出结构完全一致。

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