方法1
setwd("文件目录")
fileName <- dir()

read.file <- function(File){
    read.table(File,header=TRUE)
} # 定义读取数据的函数

datalist <- lapply(fileName,read.file)

方法2
setwd("文件目录")
fileName <- dir()
N=length(fileName)

datalist <- vector("list", N) # 建立一个空表

for(i in 1:N){
    datalist[[i]]=read.table(fileName[i],header=TRUE)
}