在 R 中按周聚合

Question

在 RI 中，经常按月汇总每日数据（在 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