r - 在R中按组应用滚动均值

Question

我是R新手，在做一些很简单的事情时遇到很多麻烦。我有一个按国家/地区代码分为大组的大型数据集，我想按国家/地区获取价格指数的3个月滚动平均值，然后将其放入一个与相应月份相匹配的新列中。我一直在尝试像这样使用rollmean，但没有成功(下面的代码和错误消息):

> leader$last3<-tapply(leader, leader$ccode, 
    function(x) rollmean(leader$GI_delta, 3, na.pad=T))
Error in tapply(leader, leader$ccode, function(x) rollmean(leader$GI_delta,  : 
  arguments must have same length

> leader$last3<-ddply(leader, .(ccode), 
    rollmean(GI_delta, 3, na.pad=T))

Error in llply(.data = .data, .fun = .fun, ..., .progress = .progress,  : 
  .fun is not a function.

任何帮助将非常感激!

Answer 1

如果要创建新列，请尝试使用ave。它类似于tapply，但返回一个与第一个参数长度相同的向量。我的经验是，它比ddply快得多:

require(zoo)
leader$last3<-ave(leader$GI_delta, leader$ccode, 
                         FUN= function(x) rollmean(x, k=3, na.pad=T) )