循环生成带文件名列的DataFrame后如何合并为单个数据框？

嘿，我懂你现在的问题啦！你已经成功给每个CSV文件加上了对应的文件名作为首列，但用cbind合并完全没达到预期——这其实是因为你用错了合并方式哦！cbind是按列拼接数据，会把不同文件的列并排放在一起，而我们需要的是把所有文件的行堆叠起来，得用rbind系列的方法才行。

下面给你两种靠谱的解决方案，分别用基础R和tidyverse工具包实现：

方法一：基础R实现 #

这种方法不需要额外安装包，适合习惯基础语法的场景：

# 第一步：设置目标文件夹路径
folder_path <- "/Users/carlos/Desktop/TestCSVFilesToMerge/"

# 第二步：获取所有CSV文件的完整路径（full.names=TRUE能直接拿到带路径的文件名）
csv_files <- list.files(folder_path, pattern = "\\.csv$", full.names = TRUE)

# 第三步：循环处理每个文件，读取并添加文件名首列
processed_data <- lapply(csv_files, function(file) {
  # 读取CSV文件
  df <- read.csv(file, stringsAsFactors = FALSE)
  # 在首列添加文件名（basename()用来提取纯文件名，去掉前面的路径）
  df <- cbind(filename = basename(file), df)
  return(df)
})

# 第四步：把所有处理好的DataFrame按行合并
merged_data <- do.call(rbind, processed_data)

# 查看合并后的结果
head(merged_data)

方法二：tidyverse工具包实现（更简洁灵活） #

如果你平时用tidyverse系列包（比如dplyr、readr），这个方法会更高效，还能自动处理列名/列数不一致的情况（缺失列会填充NA）：

# 先加载需要的包（如果没安装过，先运行install.packages("tidyverse")）
library(tidyverse)

# 设置文件夹路径
folder_path <- "/Users/carlos/Desktop/TestCSVFilesToMerge/"

# 一站式完成：读取所有文件→添加文件名首列→合并
merged_data <- list.files(folder_path, pattern = "\\.csv$", full.names = TRUE) %>%
  map_dfr(function(file) {
    read_csv(file) %>%
      # .before = 1 表示把filename列放在第一列的位置
      mutate(filename = basename(file), .before = 1)
  })

# 查看结果
head(merged_data)

为什么cbind没用？ #

简单说：cbind是把多个数据框的列拼在一起，比如第一个文件有3列，第二个文件有3列，用cbind后会变成6列，这显然不是你要的效果。而我们需要的是把所有文件的行堆叠起来，所以必须用rbind（基础R）或者bind_rows（tidyverse）这类按行合并的函数。

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