r-r用一个xts替换一个空的xts

Question

我有一个名为Portfolio的xts对象(单行(，看起来像这样：

A      B      C       D       E
2010-01-04 61006.1 61628.5 62072.1 60068.66 60088.47

对于for循环的每一次迭代，"Portfolio"都会发生变化，我想创建一个名为Portfolio.Table的xts表，保存"Portfolio"的历史记录。

我在做Portfolio.Table <- xts()，在for循环中的每个迭代结束时我都在做：Portfolio.Table <- rbind(Portfolio.Table,Portfolio)，但我得到了一个错误：data must have same number of columns to bind by row

如何创建一个列数设置为空的xts对象？有更优雅的方法吗？

Answer 1

使用rbind.fill:

library(plyr)
rbind.fill(data,data2)

Answer 2

假设p在结尾的注释中可重复显示，则从NULL开始，而不是xts()，如下所示。运行以下代码后，p.table等于p。

p.table <- NULL
p.table <- rbind(p.table, p)

备注

我们假设我们有一个xts对象

library(xts)
v <- c(A = 61006.1, B = 61628.5, C = 62072.1, D = 60068.66, E = 60088.47)
p <- xts(t(v), as.Date("2010-01-04"))