求助：在R中导入合并多Excel文件（取第2个sheet）并添加源文件名列

你可以通过在读取每个文件时直接添加来源文件名列来实现需求，以下是几种实用的方法：

Base R 实现（无需额外包） #

先获取目标路径下的所有.xls文件，然后遍历读取每个文件的第2个sheet，同时添加文件名列，最后合并：

# 获取文件列表（仅保留文件名，不包含完整路径）
file_list <- dir(path, pattern = "\\.xls$", full.names = FALSE)

# 遍历读取并添加来源列
df_list <- lapply(file_list, function(file_name) {
  # 读取第2个sheet
  current_df <- read_excel(file_name, sheet = 2)
  # 添加来源文件名列
  current_df$source_file <- file_name
  return(current_df)
})

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

dplyr + purrr 实现（更简洁） #

如果习惯用tidyverse工具链，可以用map_dfr直接在读取后添加列并自动合并：

library(readxl)
library(purrr)
library(dplyr)

file_list <- dir(path, pattern = "\\.xls$")

# 常规写法
combined_df <- map_dfr(file_list, function(file) {
  read_excel(file, sheet = 2) %>%
    mutate(source_file = file)
})

# 更简洁的公式写法
combined_df <- map_dfr(file_list, ~read_excel(.x, sheet = 2) %>% mutate(source_file = .x))

注意点 #

• 正则表达式\\.xls$确保只匹配后缀为.xls的文件，避免误匹配.xlsx或其他带xls的文件名
• 如果需要保留完整文件路径，把full.names参数设为TRUE即可

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