R Studio | 快速合并Excel文件

工作中经常遇到一种情况：从网页端系统下载数据，只能一个月一个月的导出数据，下载无数个Excel文档，合并时要一个一个文档复制粘贴，花费时间，也容易错漏。

这里用rstudio偷个小懒，只要把需合并的文档放到一个文件夹里，改好代码，就可以快速合并： 

# 安装并加载必要的包
install.packages("readxl")
install.packages("dplyr")
library(readxl)
library(dplyr)

# 设置工作目录，包含所有Excel文件的文件夹路径
setwd("your/directory/path")

# 获取所有Excel文件的文件名列表
file_list <- list.files(pattern = "\\.xlsx$")

# 创建一个空数据框来存储所有数据
combined_data <- data.frame()

# 循环读取每个Excel文件，并将数据合并到combined_data中
for (file in file_list) {
  data <- read_excel(file) # 读取Excel文件
  combined_data <- bind_rows(combined_data, data) # 合并数据
}

# 输出合并后的数据
print(combined_data)

# 将合并后的数据写入新的Excel文件
write.xlsx(combined_data, "combined_data.xlsx", row.names = FALSE)