XTS 应用系列和多列 XTS？

Question

如何将 apply 系列函数（例如 apply.daily）用于多元 XTS？

例如：

Time,a,b
...
2012-02-11 16:21:24 4.7258 7.7258
2012-02-11 16:26:25 4.9096 12.3796
2012-02-11 16:31:25 4.7904 2.2204
...

我如何按列对整个矩阵使用 apply.daily 和 mean 。因此，结果将是当天的单个时间戳、下一列的 a 平均值以及之后一列的 b 平均值。

我想对任意数量的列执行此操作（列的数量和名称未知 - 当然都是数字）。

Answer 1

您可以简单地使用 colMeans 来获取每列的平均值：

library(quantmod)
getSymbols("SPY")
spy1 <- apply.weekly(SPY, colMeans)

您还可以定义一个在对象的列上使用 apply 的任意函数：

spy2 <- apply.weekly(SPY, function(x) apply(x,2,mean))
identical(spy1,spy2)
# [1] TRUE