使用dplyr按组计算每个块？

场210

如何使用dplyr软件包获得预期的计算？

row value   group   expected
1   2       1       =NA
2   4       1       =4-2
3   5       1       =5-4
4   6       2       =NA
5   11      2       =11-6
6   12      1       =NA
7   15      1       =15-12

我试过了

df=read.table(header=1, text='    row    value  group
1   2   1
2   4   1
3   5   1
4   6   2
5   11  2
6   12  1
7   15  1')

df %>% group_by(group) %>% mutate(expected=value-lag(value))

尽管行1-3和6-7被标记为相同的组号，我如何为每个块（行1-3、4-5、6-7）计算？

爵士乐

这是一种类似的方法。我使用创建了一个新的组变量cumsum。每当in中两个数字之间的差group不为0时，R就会分配一个新的组号。如果您有更多数据，此方法可能会有所帮助。

library(dplyr)

mutate(df, foo = cumsum(c(T, diff(group) != 0))) %>%
group_by(foo) %>%
mutate(out = value - lag(value))

#  row value group foo out
#1   1     2     1   1  NA
#2   2     4     1   1   2
#3   3     5     1   1   1
#4   4     6     2   2  NA
#5   5    11     2   2   5
#6   6    12     1   3  NA
#7   7    15     1   3   3

本文收集自互联网，转载请注明来源。

如有侵权，请联系 [email protected] 删除。