2

「TEST AIS Florent/test division/division2014/testexport/testloop」というフォルダーがあり、その中に 4 つの csv ファイルがあります。testexport_2; testexport_3 と testexport_4。

各ファイルをフィルタリングして、別の csv にエクスポートしたいと思います。1 つは testexport_1 用、もう 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 を 1 つだけ作成し、このファイルを何度も書き込んでいることです。

testexport_1 --> 出力 data_1 および testexport_2 --> 出力 data_2 などに使用したいと思います。

ありがとうございました！

4

1 に答える 1

4

文字列の主要部分を「データ」に置き換えることにより、その場でファイル文字列を構築します。

...
write.csv(data2014,   file = gsub("testexport", "data", file),sep = ";", quote= F, col.names=T, row.names=F)
...
于 2015-06-03T12:55:57.177 に答える