如何在R中基于另一DataFrame的日期区间自动生成多个DataFrame

思路说明 #

你的需求是基于原始DataFrame生成滑动窗口式的日期区间子数据集，每个区间长度固定（示例中为4天），按1天步长滑动。针对大规模且持续增长的数据，用自动化方式批量生成可避免手动硬编码，提升效率。

方法1：Base R实现 #

# 示例数据
df <- data.frame(Date = as.Date(c("2022-01-01", "2022-01-01", 
                                  "2022-01-02", "2022-01-02", "2022-01-02", 
                                  "2022-01-03", 
                                  "2022-01-04", "2022-01-04", 
                                  "2022-01-05", "2022-01-05", "2022-01-05")),
                 Name = c(LETTERS[1:11]),
                 Value = c(1:11))

# 1. 定义参数：窗口长度（天）、要生成的子数据集数量
window_days <- 4
num_dfs <- 3

# 2. 获取原始数据的最小日期，生成每个子数据集的起始日期
start_dates <- min(df$Date) + 0:(num_dfs - 1)

# 3. 循环生成每个子DataFrame并命名为df1、df2...
for (i in seq_along(start_dates)) {
  start <- start_dates[i]
  end <- start + window_days - 1
  assign(paste0("df", i), subset(df, Date >= start & Date <= end))
}

执行后，全局环境中会自动生成df1、df2、df3，完全匹配预期输出。

方法2：Tidyverse（dplyr + purrr）实现 #

如果习惯用tidyverse生态，这种方式更简洁，且适合大规模数据处理：

library(dplyr)
library(purrr)

# 示例数据（同上）
df <- data.frame(Date = as.Date(c("2022-01-01", "2022-01-01", 
                                  "2022-01-02", "2022-01-02", "2022-01-02", 
                                  "2022-01-03", 
                                  "2022-01-04", "2022-01-04", 
                                  "2022-01-05", "2022-01-05", "2022-01-05")),
                 Name = c(LETTERS[1:11]),
                 Value = c(1:11))

# 1. 定义参数
window_days <- 4
num_dfs <- 3

# 2. 生成日期区间列表
date_ranges <- map(0:(num_dfs - 1), ~{
  start <- min(df$Date) + .x
  end <- start + window_days - 1
  list(start = start, end = end)
})

# 3. 批量生成子数据集，存入列表（推荐保留列表，避免污染全局环境）
df_list <- map(date_ranges, ~{
  df %>% filter(Date >= .x$start & Date <= .x$end)
})

# 可选：将列表中的数据集命名为df1、df2...并加载到全局环境
names(df_list) <- paste0("df", 1:num_dfs)
list2env(df_list, envir = .GlobalEnv)

针对持续增长数据的优化建议 #

• 每次新增数据后，重新运行代码即可自动更新所有子数据集，无需修改区间逻辑。
• 若无需将子数据集单独存入全局环境，保留df_list列表更便于后续批量操作（如批量分析、导出）。
• 调整窗口长度或滑动步长时，仅修改window_days和num_dfs两个参数即可。

内容的提问来源于stack exchange，提问作者Artur Vidaurre de Almeida