1.如果文件是csv格式:
##先将当前文件夹下的所有以csv结尾的文件名读进来
filelist <- list.files(pattern=".*.csv")
##文件个数
m<-length(filelist)
##按照文件名逐个读入数据,得到数据列表
datalist <- lapply(filelist, function(x) read.csv(x,header=F,stringsAsFactors=F))
**
2.如果文件是txt格式:
**
##先将当前文件夹下的所有以txt结尾的文件名读进来
filelist <- list.files(pattern=".*.txt")
##文件个数
m<-length(filelist)
##按照文件名逐个读入数据,得到数据列表
datalist <- lapply(filelist, function(x) read.table(x,header=F,stringsAsFactors=F))
如图就批量成功导入数据啦!