R批量读取本地文件

步骤一、list.files()函数列出本地文件

source_dir<-"~"

files=list.files(path = source_dir, pattern = "*.csv", all.files = FALSE,
                        full.names = FALSE, recursive = FALSE,
                        ignore.case = FALSE, include.dirs = FALSE, no.. = FALSE)

步骤二、lapply函数批量读取并合并

allframes = lapply(files,function(x)read.csv(paste(x,'csv',sep='.')))
#return list
sapply(allframes,nrow)
#combine list
answer = do.call(rbind,allframes)

或者for循环

setwd(source_dir)
normal<-data.frame()
for (i in files){
  item_i<-read.csv(i,sep=",",header = T)
  normal<-rbind(normal,result_i)
}