方法一:
setwd("D:/data")
fileName <- dir()
N=length(fileName)
datalist <- vector("list", N) # 建立一个空表
for(i in 1:N){
datalist[[i]]=read.table(fileName[i],header=TRUE)
}
方法二:
setwd("D:/data")
fileName <- dir()
read.file <- function(File){
read.table(File,header=TRUE)
} # 定义读取数据的函数
datalist <- lapply(fileName,read.file)