在 R 中按周聚合

Question

在 R 中，我经常按月汇总每日数据（在 zoo 中），使用如下方式：

result <- aggregate(x, as.yearmon, "mean", na.rm=TRUE)

有什么方法可以让我按周做到这一点吗？

Answer 1

最简单的做法是使用xts 中的apply.weekly 函数。

> apply.weekly(zoo(1:10, as.Date("2010-01-01") + 1:10), mean)
2010-01-03 2010-01-10 2010-01-11 
         3         42         10