Analysieren Datenrahmen CSV-Erstellung mit Lapply

Question

Ich versuche, einen Datenrahmen zu nehmen und an .csv Datei (en) zu senden. Hier ist mein Beispieldaten dput(df):

df <- structure(list(ident = 1:35, code = structure(c(1L, 1L, 1L, 1L, 
1L, 1L, 2L, 2L, 2L, 2L, 2L, 3L, 3L, 3L, 3L, 3L, 3L, 4L, 4L, 4L, 
4L, 4L, 4L, 5L, 5L, 5L, 5L, 5L, 5L, 5L, 6L, 6L, 6L, 6L, 6L), .Label = c("A", 
"B", "C", "D", "E", "F"), class = "factor"), Desc = structure(c(3L, 
1L, 2L, 3L, 1L, 2L, 3L, 1L, 2L, 3L, 1L, 2L, 3L, 1L, 2L, 3L, 1L, 
2L, 3L, 1L, 2L, 3L, 1L, 2L, 3L, 1L, 2L, 3L, 1L, 2L, 3L, 1L, 2L, 
3L, 1L), .Label = c("lax", "mia", "nyc"), class = "factor")), .Names = c("ident", 
"code", "Desc"), class = "data.frame", row.names = c(NA, -35L 
)) 

ich eine Schleife durch meine Daten ich versucht, und wählen Sie nur A und Ausgabe in Datei.

filename <- levels(df$code) 

filename2 <- paste0(filename, "_file.csv") 

Würde ich lapply verwenden, um eine Datei für jeden Code zu schreiben? Jede Hilfe wäre willkommen! Hier

Answer 1

ist eine tidyverse Lösung:

Da Sie einfach eine Funktion für die Nebenwirkungen verwenden möchten (Schreiben in eine Datei), und keine Werte zurückkommen müssen, die zu Fuß Funktion aus dem purrr Paket ist hier angebracht:

library(tidyverse) 

walk(unique(df$code), function(x) {write_csv(df %>% filter(code == x), paste0(x, "_file.csv"))})