R|批量循环处理同一格式文件-csv,txt,excel

#setwd(D:\\..\\data\\)a = list.files()    a 

#命令构建路径变量dir（方便更改），也可以不构建，后面示例                               dir = paste("./",a,sep="")                
#读取dir长度，也就是文件夹下的文件个数
n = length(dir)                                      
#读入第一个文件内容
merge.data = read.csv(file = dir[1],header=T,sep=",")  

#循环从第二个文件开始读入所有文件，并组合到merge.data变量中
for (i in 2:n){
   new.data = read.csv(file = dir[i], header=T, sep=",")
   merge.data = rbind(merge.data,new.data)
}

#输出组合后的文件merge.csv到input文件
write.csv(merge.data,file = "./merge_all.csv",row.names=FALSE)  

list.files()

#提出目录下的所有csv文件，后面介绍另一种方式
a = list.files(pattern = ".csv")                                    
#不构建路径变量，直接读入第一个文件内容
merge.data = read.csv(a[1],header=T,sep=",")  

#循环从第二个文件开始读入所有文件，并组合到merge.data变量中
for (i in 2:n){
   new.data = read.csv(a[i], header=T, sep=",")
   merge.data = rbind(merge.data,new.data)
}
#输出组合后的文件merge.csv到input文件
write.csv(merge.data,file = "./merge_only_csv.csv",row.names=FALSE)  

#install.packages("readxl")
library(readxl)
#另一种方式提出目录下的所有excel文件
list <- list.files()
a <- grep('\\.xlsx', list, value = TRUE)

n = length(a)
merge.data = read_excel(a[1])  
#循环从第二个文件开始读入所有文件，并组合到merge.data变量中
for (i in 2:n){
   new.data = read_excel(a[i])
   merge.data = rbind(merge.data,new.data)
}
#输出组合后的文件merge.csv到input文件
write.csv(merge.data,file = "./merge_only_excel.csv",row.names=FALSE)