r - 确定指定长度的游程数

Question

我有以下向量，data。

data <- c(1,1,0,1,1,1,0,1,0,0,0,0,0,0,1,1,1,1,0)

当数字 1 至少连续出现 3 次时，我想将其计为 1。因此，上述所需的输出为 2。

Answer 1

你可以使用rle()

with(rle(data), sum(lengths >= 3 & values == 1))
# [1] 2