如何为每对日期生成月度序列并创建单独data frame？

首先需要明确：直接用month()提取月份数字生成序列会忽略年度差异（比如2019-01到2018-12会生成错误的序列），所以必须基于完整的日期对象生成月度序列。以下是两种可行方法：

方法一：基础循环实现 #

先加载lubridate包处理日期，然后通过循环逐行生成序列并保存为单独的data frame：

# 加载必要包
library(lubridate)

# 原始数据
df <- data.frame(date1 = c("2018-11-01", "2018-10-28", "2019-01-22", "2019-03-22", "2018-10-03", "2018-09-10","2020-07-01", "2018-03-02", "2018-11-09"), 
                date2 = c("2018-12-31","2018-12-31","2018-12-31","2019-12-31","2018-12-31","2018-12-31","2020-12-31","2018-12-31","2018-12-31"))

# 将字符型日期转换为日期对象
df$date1 <- ymd(df$date1)
df$date2 <- ymd(df$date2)

# 循环生成每个日期对的月度序列，并保存为df1到df9
for(i in 1:nrow(df)){
  # 取每个日期对应的当月第一天作为序列起始/结束
  start_month <- floor_date(df$date1[i], "month")
  end_month <- floor_date(df$date2[i], "month")
  # 生成月度序列
  month_sequence <- seq(start_month, end_month, by = "month")
  # 将序列转换为data frame并赋值到全局环境
  assign(paste0("df", i), data.frame(month = month_sequence))
}

方法二：tidyverse风格实现 #

用dplyr和purrr处理，更符合现代R代码习惯：

library(tidyverse)
library(lubridate)

# 预处理数据：转换日期格式，逐行生成月度序列列表
df_processed <- df %>%
  mutate(across(c(date1, date2), ymd)) %>%
  rowwise() %>%
  mutate(month_seq = list(seq(floor_date(date1, "month"), floor_date(date2, "month"), by = "month"))) %>%
  ungroup()

# 将每个序列列表元素保存为单独的data frame
walk2(df_processed$month_seq, paste0("df", 1:nrow(df_processed)), 
      ~assign(.y, data.frame(month = .x), envir = .GlobalEnv))

你之前代码的问题说明 #

• 你的rowwise代码仅做了行转data frame的操作，没有实际生成月度序列，也没有保存结果；
• 你的循环代码同样没有将生成的data frame赋值到变量中（仅调用as.data.frame但没存到df1这类对象里），所以运行后没有任何可见结果。

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