带rcpproll的滚动平均值

我有数据帧：

email    date_ts   total   duration

email1 2017-02-15  98.80    31990
email1 2017-02-16  59.52    60622
email1 2017-02-17  72.93    98105
email2 2017-02-18  54.45    29293
email2 2017-02-19  36.86    20157
email2 2017-02-25  18.66     7815
email2 2017-03-03   4.61     2407
email2 2017-03-04 180.91   182524
email3 2017-03-05  16.13     7121
email3 2017-03-24  25.65     2412

等等

我需要用库RcppRoll计算移动平均值。我尝试：

df <- df%>%group_by(email)%>%mutate(avg = roll_mean(total, 2, na.rm=TRUE, align="right", normalize = TRUE))%>%ungroup()

df%group\u by（email）%%>%mutate（平均值=滚动平均值（总计，2，na.rm=TRUE，align=“right”，normalize=TRUE））%%>%ungroup（）

但有一个错误：mutate_impl（.data，dots）中的错误：

---

不兼容的大小（12），预期为13（组大小）或1，请找到解决方案。如果您有相同的问题，请使用以下方法：

library(dplyr)
library(RcppRoll)

df <- df%>%
  group_by(email)%>%
  mutate(avg = roll_mean(total, 2, na.rm=TRUE, align="right", fill = NA))%>%
  ungroup()

库（dplyr）
图书馆（RcppRoll）
df%
分组人（电子邮件）%>%
变异（平均值=滚动平均值（总计，2，不适用。rm=TRUE，align=“right”，fill=na））%>%
解组（）