当零存在时，Rollmean返回不正确的值

Question

我使用 trying to get something 来计算rollmean天滚动平均值。当某个天数据为零时，它返回一个非常错误的值。

例如

28

这是我用来生成date OdometerTotal Chronic 08/04 0 -0.000000000406 07/04 7697 5173 07/04 0 -0.00000000000000649 变量

的一行

Chronic

知道为什么会这样吗？ 感谢

编辑：这有帮助吗？

library(dplyr)
library(zoo)

Test2 <- Test2 %>% 
group_by(Player.Name) %>% 
mutate('Chronic' = rollmean(OdometerTotal, 28, align="right", na.pad=TRUE, 
na.rm=TRUE))

Answer 1

更好的选择是使用支持rollapply数据的partial。

library(zoo)

Test2 %>% 
  group_by(Player.Name) %>% 
  mutate(Chronic_cal = rollapply(OdometerTotal, 28, mean, align='right',
         partial = TRUE))