r - 如何计算事件连续运行的长度，例如在 R 中获胜、访问

Question

我有一组日子——每个日子都有一个 0/​​1 代码——用于我称之为“访问”的事件的存在。
例如，对于第 1 天到第 12 天，我可以在第 3、5、6 天访问时获得向量 (0,0,1,0,1,1,1,1,0,0,0,1) ,7,8 和 12。我想应用一些函数，该函数将为我提供向量 (1,4,1)，这意味着 3 组持续时间为 1、4 和 1 天的访问。很容易找到0。我无法弄清楚将滞后和累积总和结合起来进行 1 天访问或延长访问。

Answer 1

也许使用 rle :

x=c(0,0,1,0,1,1,1,1,0,0,0,1)

runs=rle(x)
Run Length Encoding
  lengths: int [1:6] 2 1 1 4 3 1
  values : num [1:6] 0 1 0 1 0 1

runs$lengths[runs$values!=0]
[1] 1 4 1