如何在R中合并仅ID和Date匹配的Excel工作表与主表并新增行？

你可以用readxl读取Excel文件，结合dplyr的全连接（full join）实现匹配+新增行，再手动调整列顺序来满足插入位置的需求。具体步骤如下：

1. 加载所需包 #

先安装并加载必要的工具包：

# 首次运行需安装包
install.packages(c("readxl", "dplyr"))

# 加载包
library(readxl)
library(dplyr)

2. 读取两个Excel表格 #

假设主表文件名为main_table.xlsx，待合并的工作簿文件名为new_data.xlsx：

# 读取主表
main_df <- read_excel("main_table.xlsx")

# 读取待合并的工作簿数据
new_df <- read_excel("new_data.xlsx")

3. 全连接匹配数据 #

用full_join基于ID和Date两列合并，既会匹配已有ID+Date的行，也会把新ID的行添加进来：

merged_df <- full_join(main_df, new_df, by = c("ID", "Date"))

注意：如果两个表中除ID、Date、Data_1/2/3外还有其他同名列，需调整by参数或重命名列避免冲突。

4. 调整列的顺序 #

要把Data_1、Data_2、Data_3插到Wave和Data_4之间，按以下方式构造新列顺序：

# 获取主表的列名列表
main_cols <- colnames(main_df)

# 定位Wave列的位置
wave_pos <- which(main_cols == "Wave")
# 定位Data_4列的位置
data4_pos <- which(main_cols == "Data_4")

# 构造新的列顺序
new_col_order <- c(
  main_cols[1:wave_pos],          # Wave及之前的列
  c("Data_1", "Data_2", "Data_3"),# 要插入的列
  main_cols[(wave_pos+1):(data4_pos-1)], # Wave之后到Data_4之前的列
  main_cols[data4_pos:length(main_cols)] # Data_4及之后的列
)

# 重新排列合并后的表格
final_df <- merged_df %>% select(all_of(new_col_order))

5. 保存结果（可选） #

把处理好的表格保存回Excel：

# 需先安装openxlsx包
install.packages("openxlsx")
library(openxlsx)
write.xlsx(final_df, "merged_main_table.xlsx")

补充说明 #

• full_join会保留两个表的所有行：主表有但新数据没有的行，Data_1/2/3会显示为NA；新数据有但主表没有的ID+Date组合，会作为新行添加，主表原有列若无对应数据则显示为NA。
• 如果待合并工作簿包含多个工作表，可先用purrr::map_dfr合并所有工作表为一个new_df，再按上述步骤处理：

library(purrr)
new_df <- excel_sheets("new_data.xlsx") %>% 
  map_dfr(~read_excel("new_data.xlsx", sheet = .x))

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