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