Escribir lista de data.frames para separar archivos CSV con lapply

Question

La pregunta lo dice todo: quiero tomar un objeto list lleno de data.frames y escribir cada data.frame en un archivo .csv separado donde el nombre del El archivo .csv corresponde al nombre del objeto de la lista.

Aquí hay un ejemplo reproducible y el código que he escrito hasta ahora.

df <- data.frame(
    var1 = sample(1:10, 6, replace = TRUE) 
    , var2 = sample(LETTERS[1:2], 6, replace = TRUE) 
    , theday = c(1,1,2,2,3,3) 
) 

df.daily <- split(df, df$theday) #Split into separate days 

lapply(df.daily, function(x){write.table(x, file = paste(names(x), ".csv", sep = ""), row.names = FALSE, sep = ",")}) 

Y aquí es la parte superior del mensaje de error que R escupe

Error: Results must have one or more dimensions. 
In addition: Warning messages: 
1: In if (file == "") file <- stdout() else if (is.character(file)) { : 
    the condition has length > 1 and only the first element will be used 

Qué me estoy perdiendo aquí?

Answer 1

Prueba esto:

sapply(names(df.daily), 
function (x) write.table(df.daily[[x]], file=paste(x, "txt", sep=".")) ) 

debería ver los nombres ("1", "2", "3") escupir uno por uno, pero los nulos son la evidencia de que la parte El efecto de escribir en los archivos del disco estaba hecho. (Edit: se ha cambiado [] a [[]].)

Answer 2

Un par de cosas:

laply lleva a cabo operaciones en una lista. Lo que estás buscando es d_ply. Y no tiene que dividirlo durante el día, puede dejar que plyr lo haga por usted. Además, no usaría nombres (x) ya que devuelve todos los nombres de columna de un data.frame.

d_ply(df, .(theday), function(x) write.csv(x, file=paste(x$theday,".csv",sep=""),row.names=F)) 

Answer 3

Usted podría utilizar mapply:

mapply(
    write.table, 
    x=df.daily, file=paste(names(df.daily), "txt", sep="."), 
    MoreArgs=list(row.names=FALSE, sep=",") 
) 

No es thread about similar problem on plyr mailing list.