在R中按周汇总

Question

在RI中,经常zoo按月汇总每日数据(a ),使用以下内容:

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

我有办法在一周之内完成这项工作吗？

Answer 1

最简单的方法是使用apply.weeklyfrom中的函数xts.

> 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