如何用R Studio编写for循环读取CSV文件并合并为新数据框？

原代码存在的问题 #

• 参数错误：dir(path_cwd.full.names = TRUE) 写法错误，dir 函数没有该参数，正确参数为 full.names
• 语法错误：read.csv 中 sep = ", " 和 header = TRUE 之间缺少逗号；且若你的CSV是标准逗号分隔，sep = ", " 会导致读取异常（它会把逗号+空格作为分隔符）
• 数据丢失：每次循环都用新数据覆盖变量 b，最终仅保留最后一个文件的数据

完善后的代码 #

# 替换为你的CSV文件所在文件夹路径
setwd("你的文件路径")

# 获取所有CSV文件的完整路径
data_files <- dir(full.names = TRUE, pattern = "csv$")

# 创建空列表存储每个文件的数据
data_list <- list()

# 循环读取并处理每个文件
for (i in seq_along(data_files)) {
  # 读取CSV文件（若确为逗号+空格分隔，可添加 sep = ", "）
  df <- read.csv(data_files[i], header = TRUE)
  # 添加列标记数据来源的学生文件
  df$student_id <- gsub(".csv", "", basename(data_files[i]))
  # 将当前文件数据存入列表，避免覆盖
  data_list[[i]] <- df
}

# 合并所有数据框为一个大表
combined_data <- do.call(rbind, data_list)

# 查看合并结果前6行
head(combined_data)

代码逐行解释 #

1. 设置工作目录：setwd() 指定CSV文件所在文件夹，确保R能定位到目标文件（若已通过其他方式设置可跳过）
2. 获取文件路径：dir(full.names = TRUE, pattern = "csv$") 返回当前目录下所有.csv文件的完整路径，pattern = "csv$" 精准匹配CSV文件，full.names = TRUE 确保返回完整路径而非仅文件名
3. 创建空列表：用list()创建data_list，用来存储每个文件读取后的数据框（列表适合存储结构一致的多个数据对象）
4. 循环读取逻辑：
   • seq_along(data_files) 生成从1到文件总数的序列，用于遍历每个文件
   • read.csv() 读取指定文件，header = TRUE 表示文件第一行是列名（符合你的文件结构）
   • df$student_id <- ... 新增一列标记数据来源的学生ID，用basename()提取文件名、gsub()去掉.csv后缀，便于后续区分不同学生的数据
   • data_list[[i]] <- df 将处理好的数据框存入列表对应位置，避免数据被覆盖
5. 合并数据：do.call(rbind, data_list) 将列表中所有数据框按行合并为一个大的数据框，适用于结构一致的多个数据框
6. 查看结果：head(combined_data) 快速验证合并后的数据是否符合预期

简洁替代方案（无需for循环） #

如果习惯用tidyverse工具链，可借助purrr和dplyr实现更简洁的代码：

library(purrr)
library(dplyr)

setwd("你的文件路径")
data_files <- dir(full.names = TRUE, pattern = "csv$")

combined_data <- map_dfr(data_files, function(file) {
  read.csv(file, header = TRUE) %>%
    mutate(student_id = gsub(".csv", "", basename(file)))
})

map_dfr会自动将所有读取的数据框按行合并，mutate用于新增学生ID列，代码更紧凑。

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