Écrit la liste de data.frames pour séparer les fichiers CSV avec lapply

Question

La question dit tout - je veux prendre un objet liste complète de data.frames et écrire chaque data.frame dans un fichier .csv séparé où le nom de la Le fichier .csv correspond au nom de l'objet liste.

Voici un exemple reproductible et le code que j'ai écrit jusqu'ici.

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

Et voici le haut du message d'erreur R recrache

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'est-ce que je manque ici?

Answer 1

Essayez ceci:

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

Vous devriez voir les noms ("1", "2", "3") cracher un par un, mais les valeurs NULL sont la preuve que le côté -effect de l'écriture sur les fichiers du disque a été fait. (Edit: changé [] pour [[]].)

Answer 2

Quelques choses:

laply effectue des opérations sur une liste. Ce que vous cherchez est d_ply. Et vous ne devez pas le casser par jour, vous pouvez laisser plyr le faire pour vous. De plus, je n'utiliserais pas de noms (x) car cela retourne tous les noms de colonnes d'un data.frame.

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

Answer 3

Vous pouvez utiliser mapply:

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

Il est thread about similar problem on plyr mailing list.