rollapplyr的替代品

Question

您好我的数据框如下

DF1
rid     date      A     B      C
1      2014      34    66     12
2      2014      55    NA     NA
3      2014      53    77     12
4      2014      66    12     12
5      2014      77    12     11
6      2014      22    10     NA
7      2014      11    13     11
.
600000 2015      3     34     15

我试图在新的'D'中按col'C'分组col'B'    这是我的下面的代码，它需要花费大量的时间来处理，任何以最快的方式计算的替代方案

df2=df1 %>%
    group_by(C) %>%
    mutate(D=rollapplyr(B, 600000, mean, partial = TRUE, na.rm = TRUE) )

提前致谢。