如何在R中通过循环批量导入合并CSV生成多份week系列数据框？

批量合并CSV生成对应周数据框的实现方案 #

你可以通过循环动态处理不同周的文件，以下是两种实用方法：

方法1：直接生成独立数据框（DF_week1 ~ DF_week5）

这种方式会直接在全局环境中创建你需要的DF_week1、DF_week2等独立变量：

# 加载依赖包
library(tidyverse)

# 定义要处理的周数范围
week_range <- 1:5
# 目标文件夹路径
target_path <- 'x:/full/file/path'

# 循环处理每个周
for (week in week_range) {
  # 动态生成匹配当前周文件的正则规则
  file_pattern <- paste0("^Dai15E_ABC_10mbin_20211201_fullwatercolumn_evening_BNR*.*_week", week, ".csv")
  
  # 匹配文件并合并为数据框
  merged_data <- list.files(path = target_path, pattern = file_pattern, full.names = TRUE) %>%
    map_dfr(read_csv)
  
  # 将合并结果赋值给对应名称的变量
  assign(paste0("DF_week", week), merged_data)
}

方法2：生成命名列表（更推荐，便于批量操作）

如果后续需要对所有周的数据做统一处理（比如统一筛选、导出），用命名列表管理会更整洁，同时也可以按需转成独立变量：

library(tidyverse)

week_range <- 1:5
target_path <- 'x:/full/file/path'

# 创建命名列表存储所有周的数据框
week_data_list <- map(week_range, function(week) {
  file_pattern <- paste0("^Dai15E_ABC_10mbin_20211201_fullwatercolumn_evening_BNR*.*_week", week, ".csv")
  list.files(path = target_path, pattern = file_pattern, full.names = TRUE) %>%
    map_dfr(read_csv)
}) %>%
  set_names(paste0("DF_week", week_range))

# 访问单个周的数据（示例：获取week2的数据）
week_data_list$DF_week2

# 可选：将列表中的数据框转为全局环境的独立变量
walk2(names(week_data_list), week_data_list, ~assign(.x, .y, envir = .GlobalEnv))

关键细节说明 #

• paste0用于动态拼接文件名规则，确保每次循环精准匹配对应周的文件。
• assign()函数是生成DF_weekN这类变量的核心，它能将数据框赋值给指定名称的变量。
• 命名列表的方式更适合批量操作，避免全局环境中出现大量零散变量，提升代码可维护性。

内容的提问来源于stack exchange，提问作者Jackson A Swan