小编jos*_*emz的帖子

我有一些组的数据,我想在这些组中计算固定数量的句点的摘要(总和或平均值).我正在尝试使用group_by,然后使用mutate,然后使用变量及其dplyr :: lag进行操作.这是一个例子:

library(tidyverse)
df <- data.frame(group = rep(c("A", "B"), 5), 
                  x = c(1, 3, 4, 7, 9, 10, 17, 29, 30, 55))
df %>% 
    group_by(group) %>% 
    mutate(cs = x + lag(x, 1, 0) + lag(x, 2, 0) + lag(x, 3, 0)) %>% 
    ungroup()

这产生了预期的结果:

# A tibble: 10 x 3
    group     x    cs
   <fctr> <dbl> <dbl>
 1      A     1     1
 2      B     3     3
 3      A     4     5
 4      B     7    10
 5      A     9    14
 6      B    10 …