Напишите список data.frames для разделения файлов CSV с помощью lapply

Question

Вопрос гласит все: я хочу взять объект списка, полный data.frames, и записать каждый файл data.frame в отдельный файл .csv, где имя CSV-файл соответствует имени объекта списка.

Вот пример воспроизводимости и код, который я написал до сих пор.

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

А вот верх сообщение об ошибке, что R выплевывает

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 

Что я здесь отсутствует?

Answer 1

Попробуйте это:

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

Вы должны увидеть имена ("1", "2", "3") выплюнуть один за другим, но Нуль- доказательства того, что сторона -эффект записи в файлы на диске. (Edit: изменен [] на [[]].)

Answer 2

Пара вещей:

laply выполняет операции по списку. То, что вы ищете, это d_ply. И вам не нужно ломать их день за днем, вы можете позволить plyr сделать это за вас. Кроме того, я бы не использовал имена (x), поскольку возвращает все имена столбцов data.frame.

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

Answer 3

Вы можете использовать mapply:

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

Существует thread about similar problem on plyr mailing list.