如果在 2 行中满足某些条件，如何在 R 数据框中添加新列，显示当前行和前一行中的值的总和？

akr*_*run 5

由于我们对相邻值相等感兴趣，因此使用rleid(from data.table) 创建分组索引，然后通过添加 'b' 和 'b' 来创建 'c'并将( )lag的默认第一个值替换为0lagNA

library(dplyr)
library(data.table)
library(tidyr)
df %>% 
   group_by(grp = rleid(a)) %>% 
   mutate(c = replace_na(b + lag(b), 0)) %>%
   ungroup %>%
   select(-grp)

-输出

# A tibble: 6 × 3
      a     b     c
  <dbl> <dbl> <dbl>
1     0     1     0
2     1     2     0
3     2     3     0
4     2     4     7
5     2     5     9
6     3     6     0

或者使用base R- 类似的方法是rle创建“grp”，然后使用ave当前值添加先前的值（通过删除第一个和最后一个），然后在开头附加 0

grp <- with(rle(df$a), rep(seq_along(values), lengths))
df$c <- with(df, ave(b, grp, FUN = function(x) c(0, x[-1] + x[-length(x)])))