在对很多数据处理时,通常要循环读取文件夹中的文件,这个时候需要批量读取和写入文件,在R语言中,批量读取和写入文件夹中文件的方法如下所示。
批量读取文件
##读取同一目录下的所有文件
path <- "E:/实验数据/UseData/2013"
fileNames <- dir(path)
filePath <- sapply(fileNames, function(x){
paste(path,x,sep='/')})
data <- lapply(filePath, function(x){
read.csv(x, header=T)})
批量输出文件
对结果批量输出csv文件,其中data为list格式
outPath <- "E:/实验数据/UseData/2013" ##输出路径
out_fileName <- sapply(names(data),function(x){
paste(x, ".csv", sep='')}) ##csv格式
out_filePath <- sapply(out_fileName, function(x){
paste(outPath ,x,sep='/')}) ##输出路径名
##输出文件
for(i in 1:length(data)){
write.csv(data[[i]], file=out_filePath[i], row.name=F)
}