在R中批量导入数据文件

方法一：

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)