1.加载rio包
rio可以读取和导出大多数常用的数据格式文件
library(rio)
2.锁定文件夹
files = list.files(“C:/Users/Administrator/Desktop/result”,pattern="*.xlsx")
3.合并文件
myfiles=do.call(rbind,lapply(paste(“C:/Users/Administrator/Desktop/result/”,files,sep=""),function(x) import(x)))
4. 导出合并的文件
export(myfiles,‘C:/Users/Administrator/Desktop/合并文件.xlsx’)