Napisz listę data.frames, aby oddzielić pliki CSV z lapply

Question

Pytanie to wszystko - chcę wziąć obiekt listy pełen data.frames i zapisać każdy plik data.frame w osobnym pliku .csv, gdzie nazwa Plik .csv odpowiada nazwie obiektu listy.

Oto powtarzalny przykład i kod, który napisałem do tej pory.

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

A oto top komunikatu o błędzie, że R wypluje

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 

Co ja tu brakuje?

Answer 1

Spróbuj tego:

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

Powinieneś zobaczyć nazwy ("1", "2", "3") wypluć jeden po drugim, ale null są dowody, że strona -efekt zapisu na pliki dyskowe został zakończony. (Edit: zmieniona [] do [[]]).

Answer 2

Kilka rzeczy:

laply wykonuje operacje na liście. To, czego szukasz, to d_ply. I nie musisz tego robić dzień po dniu, możesz pozwolić, aby plyr zrobił to za Ciebie. Ponadto nie użyłbym nazw (x), ponieważ zwraca wszystkie nazwy kolumn elementu data.frame.

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

Answer 3

Można użyć mapply:

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

Jest thread about similar problem on plyr mailing list.