library(readxl)
library(writexl)
library(dplyr)
library(purrr)
file_list <- list.files(path = "E:/帮忙/王桂瑶师兄/20231215论文补充/对接/详细作用力", pattern = "*.xlsx", full.names = TRUE)
# 读取这些文件并将它们合并到一个数据框中
data <- file_list %>%
map(~ read_excel(.x) %>% mutate(across(everything(), as.character))) %>%
bind_rows()
# 将合并后的数据框写入到一个新的Excel文件中
write_xlsx(data, "E:/帮忙/王桂瑶师兄/20231215论文补充/对接/整理结果.xlsx")