r - 从 xts 对象列表的最后一行生成一个表

Question

我有一个 xts 对象列表。我想要一个 data.frame，其中包含列表中每个级别的最后一行。

我的列表是这样的:

a <- xts(matrix(1:4,2),as.Date("2012-01-01")+0:1)
b <-list(a,a*5)
> b
[[1]]
           [,1] [,2]
2012-01-01    1    3
2012-01-02    2    4

[[2]]
           [,1] [,2]
2012-01-01    5   15
2012-01-02   10   20

我想得到:

[,1] [,2]
2    4
10   20

列名在列表的每个级别中都是相同的。

Answer 1

除了@Henrik 的 answer ，您还可以组合使用 lapply、do.call 和 last:

do.call(rbind,lapply(b,last))