forループで.csvを書いてください。

Question

forループでcsvファイルを書きたいと思います。変数xをシンプルにするために、3行のデータフレームdataがあるとします。結局のところ、私の出力は200個の.csvファイルになり、それぞれに1行のデータが含まれています。データの最初の列は、私の変数のID（ "ID"）です。

さらに、私のデータは、次のように説明されています

data: 

    ID x 
[1] a 1 
[2] b 2 
[3] c 3 

for (i in nrow(data)){ 
    write.csv(data[i,2], file = paste0("Directory/", "data[i,1], ".csv")) 
} 

私はこのコードとcsvファイルが作成される実行します。しかし、最後の行だけが作成されます。つまり、1つのファイルc.csvで見つけられます。

私が間違っていることを知っていますか？すべてのアーカイブを自動的に作成すると思った。結果をリストに保存してからエクスポートする必要がありますか？

Answer 1

ループを使用する必要はありません。 data.tableアプローチを使用すると、より効率的で高速になります。グループではなく、行

によって dataframeのサブセットを保存：はるかに高速ループ

# in case you still want to use a loop, this will do the work for you: 

for (i in 1:nrow(dt)){ 
         write.csv(dt[i,], file = paste0("loop_", i, ".csv")) 
         } 

エクストラを使用して

# Now in case you're working with a large dataset and you want 
# to make things much faster, you can use `fwrite {data.table}`* 

dt[, fwrite(.SD, paste0("output_", rowpos ,".csv")), 
       by = rowpos, .SDcols=names(dt) ] 

ものを作る

library(data.table) 

# create a column with row positions 
setDT(dt)[, rowpos := .I] 

# save each line of your dataset into a separate .csv file 
dt[, write.csv(.SD, paste0("output_", rowpos,".csv")), 
        by = rowpos, .SDcols=names(dt) ] 

# This line of code will save a separate `.csv` file for every ID # and name the file according to the ID setDT(dt)[, fwrite(.SD, paste0("output_", ID,".csv")), by = ID, .SDcols=names(dt) ] 

* ps。 fwriteはまだ開発版data.table 1.9.7にあります。インストール手順については、hereにアクセスしてください。