在R语言中为多个数据框批量添加以自身名称为值的新列

一、处理全局环境中已有的多个dataframe #

如果已经把96个dataframe加载到了全局环境，按以下步骤批量添加标识列并合并：

方法1：用tidyverse工具（更简洁） #

library(dplyr)
library(purrr)

# 1. 把全局环境中所有dataframe收集到列表里
df_list <- Filter(is.data.frame, mget(ls()))

# 2. 给每个dataframe添加`animal`列，值为对应dataframe的名称
df_list_with_id <- imap(df_list, ~ mutate(.x, animal = .y))

# 3. 合并所有dataframe为一个大表
combined_df <- bind_rows(df_list_with_id)

方法2：Base R实现（无需额外包） #

# 1. 筛选全局环境中的dataframe并存入列表
df_list <- Filter(is.data.frame, mget(ls()))

# 2. 批量添加标识列
df_list_with_id <- lapply(names(df_list), function(df_name) {
  df <- df_list[[df_name]]
  df$animal <- df_name
  df
})

# 3. 合并所有表
combined_df <- do.call(rbind, df_list_with_id)

二、更规范的Excel导入+合并方案（从根源避免全局环境混乱） #

直接批量导入Excel文件/工作表到列表，全程不把单个dataframe暴露在全局环境，更符合代码规范：

场景1：多个独立Excel文件（每个文件对应一个dataframe） #

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

# 设置Excel文件所在文件夹路径
folder_path <- "./你的Excel文件夹路径/"

# 获取所有Excel文件的完整路径（匹配.xlsx和.xls格式）
file_paths <- list.files(folder_path, pattern = "\\.xlsx?$", full.names = TRUE)

# 提取文件名（去掉后缀）作为标识列的值
file_names <- tools::file_path_sans_ext(basename(file_paths))

# 批量导入、加标识列、合并一步完成
combined_df <- map2_dfr(file_paths, file_names, function(path, name) {
  read_excel(path) %>% 
    mutate(animal = name)
})

场景2：单个Excel文件包含多个工作表（每个工作表对应一个dataframe） #

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

# 设置目标Excel文件路径
excel_path <- "./你的Excel文件路径.xlsx"

# 获取文件中所有工作表的名称
sheet_names <- excel_sheets(excel_path)

# 批量读取工作表、加标识列、合并
combined_df <- map2_dfr(excel_path, sheet_names, function(path, sheet) {
  read_excel(path, sheet = sheet) %>% 
    mutate(animal = sheet)
})

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