识别跨列的特定事件以创建新变量

Question

我有一个如下所示的数据集

year  sh1  sh2  sh3  sh4  sh5
2011   0    1    1    0    0
2012   1    1    0    1    1
2013   0    0    0    0    0
2014   1    1    0    0    0
2015   1    1    1    1    1

我正在寻找创建一个新列来识别数字 1出现在 sh1 之间的两个或多个连续列中和 sh5 .如果识别出这种模式，则需要总结该模式出现的次数。

我追求的输出应该是这样的:

year  sh1  sh2  sh3  sh4  sh5  newVariable
2011   0    1    1    0    0        1
2012   1    1    0    1    1        2
2013   0    0    0    0    0        0
2014   1    1    0    0    0        1
2015   1    1    1    1    1        1

任何帮助都会很棒。

谢谢

Answer 1

这是rle的经典案例功能。

apply(df[-1], 1, function(i){r1 <- rle(i); sum(r1$lengths[r1$values == 1] >= 2)})
#[1] 1 2 0 1 1