Question

我有文件夹＆＃34; TEST AIS Florent / test division / division2014 / testexport / testloop＆＃34;其中包含4个csv文件：testexport_1; testexport_2; testexport_3和testexport_4。

我想过滤每个文件并将它们导出到不同的csv：一个用于testexport_1，另一个用于testexport_2等。

目前，我的脚本是

rm(list = ls())
setwd("D:/TEST AIS Florent/test division/division2014/testexport/testloop")
fileList <- list.files(pattern="testexport_.*\\.csv", recursive=TRUE)
#lenghtlist<-as.numeric(length(fileList))

for (file in fileList) {

data2014<-read.table(file, header=F, fill=T, quote="\"", na.strings=c(""," ", "null", "NA"), sep=",") 

#########filtering the data here

write.csv(data2014,   file = "data.csv",sep = ";", quote= F, col.names=T, row.names=F)
}

问题是当我在工作目录中编写csv时，R只创建一个输出文件data.csv并且正在遍历此文件。

我想拥有 for testexport_1 - ＆gt;输出data_1 并为testexport_2 - ＆gt;输出数据_2，等

谢谢！

Answer 1

通过使用＆＃34; data＆＃34;替换字符串的主要部分来动态构造文件字符串。

...
write.csv(data2014,   file = gsub("testexport", "data", file),sep = ";", quote= F, col.names=T, row.names=F)
...

从目录中的csv列表创建文件

1 个答案: