r - R中的数据帧累积运行长度编码

Question

我有一个数据框，其中包含与观测值 1 或 0 相关的值。我想计算 1 的连续出现次数，重置为 0。运行长度编码函数( rle )似乎可以完成这项工作，但我无法将数据转换为所需的格式。我想尝试在不编写自定义函数的情况下执行此操作。在下面的数据中，我在数据框中进行了观察，然后我想导出“连续”列并写回数据框中。这个链接是 good start .

observation continual 
          0         0
          0         0
          0         0
          1         1
          1         2
          1         3
          1         4
          1         5
          1         6
          1         7
          1         8
          1         9
          1        10
          1        11
          1        12
          0         0
          0         0

Answer 1

您可以通过几个步骤轻松完成此操作:

x <- rle(mydf$observation)       ## run rle on the relevant column
new <- sequence(x$lengths)       ## create a sequence of the lengths values
new[mydf$observation == 0] <- 0  ## replace relevant values with zero
new
#  [1]  0  0  0  1  2  3  4  5  6  7  8  9 10 11 12  0  0