如何按指定data frame表头重排列后rbind合并多个表头不同的data frame

我们可以使用R的tidyverse系列包完成该需求，具体操作如下：

前置准备 #

首先确认所有非基准数据表的列名和基准表（data frame A）列名的对应关系，根据你给出的示例，对应规则为：

• data frame B的butter列 → 基准表bed列
• data frame B的bay列 → 基准表bake列
• data frame B的BEARD列 → 基准表sea列
• data frame B的pass列 → 基准表tea列
  如果有其他表头的文件，按照这个规则补充对应关系即可。

运行代码 #

# 依赖包未安装的话先运行 install.packages("tidyverse")
library(tidyverse)

# 1. 定义列名映射规则：左侧为其他文件的列名，右侧为基准表对应的列名
col_mapping <- c(
  "butter" = "bed",
  "bay" = "bake",
  "BEARD" = "sea",
  "pass" = "tea"
  # 其他自定义对应关系在此处补充
)

# 2. 读取基准表，获取目标列顺序
# 替换为你自己的基准表文件路径
df_benchmark <- read_csv("data_frame_A.csv")
target_col_order <- colnames(df_benchmark)

# 3. 批量读取文件夹内所有数据表并处理合并
# 替换为你存放所有数据表的文件夹路径
all_file_path <- list.files(path = "你的文件夹路径", pattern = "*.csv", full.names = TRUE)

merged_result <- map_dfr(all_file_path, function(file) {
  # 读取单个文件
  temp_df <- read_csv(file, show_col_types = FALSE)
  # 按照映射规则重命名列
  temp_df <- temp_df %>% rename(any_of(col_mapping))
  # 调整列顺序为基准表顺序，缺失列自动填充NA
  temp_df <- temp_df %>% select(all_of(target_col_order))
  return(temp_df)
})

# 4. 导出合并结果
write_csv(merged_result, "合并完成的文件.csv")

注意事项 #

• 如果你的文件是xlsx格式，将read_csv替换为read_xlsx、write_csv替换为write_xlsx即可，需要提前安装加载openxlsx包。
• 如果运行时提示有列名不存在，检查是否把所有非基准表的列名都补充到了col_mapping映射规则中。

内容的提问来源于stack exchange，提问作者Yomi.blaze93