r - 编写data.frames列表以使用lapply分隔CSV文件

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”)一个接一个地吐出，但是NULL表示写入磁盘文件已产生副作用。 (编辑:将[]更改为[[]]。)