在条件之后重置的移动平均线（面板数据集）

Question

我有一个面板数据集，可以分解为4个“事件”。对于每个赛事我都希望有48个平均值。但是，我需要移动平均线在下一个事件中重置。

我有以下移动平均代码让我获得MA：

MAV <- function(x,n=48) {filter(data.crunch$THI.lag,rep(1/n,n), sides=1)} #Need to set sides=1
data.crunch$MAV <- MAV(data.crunch$THI.lag)

但是，我需要添加一些内容才能重置。我已经尝试了by语句，但它不起作用：

MAV <- function(x,n=48) {filter(data.crunch$THI.lag,rep(1/n,n), sides=1)} #Need to set sides=1
data.crunch$MAV <- MAV(data.crunch$THI.lag, by=c('event_name'))

非常感谢任何帮助！