r - XTS 应用系列和多列 XTS？

Question

我如何使用 apply 系列函数，比如 apply.daily到多元 XTS？

例如:

时间，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