代码之家 › 专栏 › 技术社区 › Chase

编写data.frames列表,用lapply分隔CSV文件

Chase · 技术社区 · 15 年前

这个问题说明了一切——我想把一个包含data.frames的列表对象写入一个单独的.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

我错过了什么?

3 回复 | 直到 9 年前

IRTFM 15 年前

试试这个:

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

您应该会看到名称(“1”、“2”、“3”)一个接一个地弹出,但空值是写入磁盘文件的副作用已经完成的证据。(编辑:将[]更改为[[]]。)

Marek 15 年前

你可以用 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 .

Brandon Bertelsen 15 年前

有几件事:

laply 对列表执行操作。你要找的是 d_ply . 你不必在白天分手,你可以 plyr 为你这么做。另外,我不使用names(x),因为它返回data.frame的所有列名。

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

推荐文章

Amp · 使用R ggplot2删除geom_radial中axis.line和panel.border之间的空格

1 年前

Hard_Course · 用另一列中的值替换行的最后一个非NA条目

1 年前

Mark R · 使用geom_sf()删除地球仪上不需要的网格线

1 年前

Joe · 根据对工作日和本周早些时候的日期的了解,找到一个日期

1 年前

Ben · 统计向量中的单词在字符串中出现的频率

1 年前

TheCodeNovice · R中符号格式的尾随零和其他问题[重复]

1 年前

katefull06 · 在R中使用terra修改范围时,会为单独的SpatRaster重写范围

1 年前

dez93_2000 · 在R管道子功能中引用管道对象的当前状态

1 年前

accibio · 在ggplot2中为同一变量创建两个连续的颜色渐变比例

1 年前

Mankka · 如何在Ggplot2中绘制均匀的径向图

1 年前