为什么不从动物园中使用 rollapply ？

Why not use rollapply from zoo?:

library(dplyr)

library(zoo)
df %>% group_by(a) %>%
       mutate(var = rollapply(x, 3, var, fill = NA, align = "right"))