连接具有不同数量元素的嵌套列表

Question

我是 R 的新手，有一个我无法解决的串联问题。

我有一个巨大的数据框，其形式为：

station POSIX date.str forec.time Lead.timemean.ens obs

6019 2011-08-06 06:00 20110806 00 006 45 67

6019 2011-08-06 07:00 20110806 00 007 69 72

6031 2011-08-06 12:00 20110806 06 006 87 95

6031 2011-08-06 13:00 20110806 06 007 88 97

我用过“ply”像这样分割数据框

mydata.split <- dlply(mydataframe, .(datestr), dlply, .(forec.time), dlply, .(lead.time), Identity, .drop = FALSE)

我做了一些用数据进行计算，这需要将数据以这种方式拆分。我将这个新列表称为 mynewlist af 计算。我想连接这些数据，但由于列表元素的数量不同，我遇到了问题。

<代码>>长度（mynewlist[[1]][[1]]）

<代码>[1] 34

<代码>>长度（mynewlist[[1]][[2]]）

<代码>[1] 38

我尝试使用 do.call( rbind, do.call( rbind, do .call( rbind, mynewlist) ) ) 将列表连接到数据框中，但我收到以下消息：

In function (..., deparse.level = 1) ： 结果的列数不是向量长度（arg 1）的倍数

有没有办法连接具有不同数量元素的嵌套列表？

我很高兴获得帮助或指明方向。 看待 西塞

Answer 1

只需使用 ldply 即可将所有这些列表重新拼接在一起。

使用 plyr 中的 baseball 数据，按照问题中的方式使用 dlply 吐出数据：

library(plyr)
x <- dlply(baseball, .(year), transform, mean_rbi = mean(rbi)) 

现在使用 ldply 来将列表合并到一个 data.frame 中：

y <- ldply(x)

结果：

str(y)
'data.frame':   21699 obs. of  23 variables:
 $ id      : chr  "ansonca01" "forceda01" "mathebo01" "startjo01" ...
 $ year    : int  1871 1871 1871 1871 1871 1871 1871 1872 1872 1872 ...
 $ stint   : int  1 1 1 1 1 1 1 1 1 1 ...
 $ team    : chr  "RC1" "WS3" "FW1" "NY2" ...
 $ lg      : chr  "" "" "" "" ...
 $ g       : int  25 32 19 33 29 29 29 46 37 25 ...
 ...
 $ rbi     : int  16 29 10 34 23 21 23 50 15 16 ...
 ...
 $ gidp    : int  NA NA NA NA NA NA NA NA NA NA ...
 $ mean_rbi: num  22.3 22.3 22.3 22.3 22.3 ...