合并XLS文件至R数据框时，添加文件名作为合法列失败

嘿，我来帮你搞定这个问题！你现在遇到的麻烦是把文件名当成无表头的行加进去了，而不是给每一行数据都配上对应的文件名作为有效列。我给你整理了两种靠谱的解决方案，保证后续导出Excel时这列也不会丢失：

问题原因分析 #

你之前的操作应该是把文件名直接作为一行和数据框绑定了，导致它变成了无表头的“额外行”，而不是属于每一行的标识列。正确的做法是：给每个文件读取出来的数据框单独新增一列，把文件名赋值给这一列的所有行，再合并所有数据框。

解决方案（两种方式可选） #

方式一：用purrr+dplyr批量处理（简洁高效） #

这种方式适合批量处理文件，代码更简洁，是R中批量数据处理的常用方式：

首先加载必要的包，获取所有XLS文件路径：

# 加载所需包
library(readxl)  # 读取Excel文件
library(dplyr)   # 数据处理
library(purrr)   # 批量迭代处理

# 获取目标文件夹下所有XLS文件的完整路径
xls_files <- list.files(
  path = "你的文件夹路径",  # 替换成你的实际文件夹路径
  pattern = "\\.xls$",      # 只匹配XLS格式文件
  full.names = TRUE         # 返回完整路径，方便后续读取
)

然后批量读取并合并，同时添加文件名列：

# 批量处理每个文件，读取指定工作表并新增文件名列
combined_data <- map_dfr(xls_files, function(file) {
  # 读取指定工作表，替换成你需要的工作表名或索引（比如sheet = 1）
  df <- read_excel(file, sheet = "你的目标工作表名")
  
  # 新增filename列，用basename()只保留文件名（去掉路径）
  df %>% mutate(filename = basename(file))
})

方式二：用for循环处理（更直观，适合新手） #

如果你对purrr不太熟悉，用for循环也能达到同样效果，逻辑更易懂：

library(readxl)
library(dplyr)

# 同样先获取所有XLS文件路径
xls_files <- list.files(
  path = "你的文件夹路径",
  pattern = "\\.xls$",
  full.names = TRUE
)

# 初始化一个空数据框用来存储合并结果
combined_data <- data.frame()

# 循环处理每个文件
for (file in xls_files) {
  # 读取指定工作表
  df <- read_excel(file, sheet = "你的目标工作表名")
  
  # 给当前数据框新增filename列，赋值为当前文件名
  df$filename <- basename(file)
  
  # 合并到总数据框中
  combined_data <- bind_rows(combined_data, df)
}

验证与后续导出 #

处理完后，你可以用head(combined_data)查看前几行，确认filename列存在且每一行都对应正确的文件名。后续导出Excel时，比如用writexl包：

# 安装并加载writexl包（如果没安装的话）
# install.packages("writexl")
library(writexl)

# 导出合并后的数据到Excel文件
write_xlsx(combined_data, path = "合并结果带文件名.xlsx")

这样导出的文件里，filename列会正常保留，不会出现缺失的情况。

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