如何计算序列中的运行？

Question

在R中,计算序列中相同元素运行的最有效/最简单的方法是什么？

例如,如何计算非负整数序列中连续零的数量:

x <- c(1,0,0,0,1,0,0,0,0,0,2,0,0) # should give 3,5,2

Answer 1

用途rle():

y <- rle(c(1,0,0,0,1,0,0,0,0,0,2,0,0))
y$lengths[y$values==0]

Answer 2

这可以通过使用值更改位置的索引以有效的方式完成:

x <- c(1,0,0,0,1,2,1,0,0,1,1)

找到值变化的位置:

diffs <- x[-1L] != x[-length(x)]

获取索引,然后在后续索引中获得差异:

idx <- c(which(diffs), length(x))
diff(c(0, idx))