Schreiben Sie .csv in eine for-Schleife

Question

Ich möchte csv-Dateien in eine for-Schleife schreiben. Angenommen, ich habe einen Datenrahmen data mit 3 Zeilen, um es einfach zu machen, von einer Variablen x. Am Ende möchte ich, dass meine Ausgabe 200 CSV-Dateien sind, von denen jede eine Zeile mit den Daten enthält. Die erste Spalte der Daten ist die Identifikation ("ID") meiner Variablen.

Darüber hinaus werden meine Daten wie folgt beschrieben:

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")) 
} 

ich diesen Code ausführen und eine CSV-Datei erstellt wird. Allerdings wird nur die letzte Zeile erstellt, was bedeutet, dass ich mit nur einer Datei c.csv gefunden habe.

Wissen Sie, was ich falsch mache? Ich dachte, dass es automatisch alle Archive erstellen würde. Soll ich zuerst die Ergebnisse in einer Liste speichern und dann exportieren?

Answer 1

Keine Notwendigkeit, eine Schleife zu verwenden. Sie können einen data.table Ansatz verwenden, der effizienter und schneller ist.

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) ] 

Geheimniskrämerei viel schneller

# 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) ] 

Mit einer Schleife

# 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")) 
         } 

Extra: Speichern von Untergruppen von dataframe von Gruppen statt durch Reihen

# 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. Beachten Sie, dass fwrite immer noch in der Entwicklungsversion von data.table 1.9.7 ist. Go here für Installationsanweisungen.