创建一个累积计数，直到前6行中的2行满足条件为止

Question

如果列a等于1，我想开始一个累加的总和。当前6行中的2行等于0时，我想停止。

dplyr::tibble(a = c(1, 1, 1, 1, 1, 1, 1, 1, 0, 1, 0, 1, 1, 1), 
          sum = c(1, 2, 3, 4, 5, 6, 7, 8, 8, 9, 0, 1, 2, 3))

总和是我想要的输出

理想情况下使用tidyverse

Answer 1

一种方法可能是找出在6行间隔内找到两个连续0的行，然后使用<script src="https://cdnjs.cloudflare.com/ajax/libs/jquery/3.3.1/jquery.min.js"></script> <div>move mouse here</div>创建组并最终在每个组中取cumsum值。

cumsum