r - 计算向量中的连续数字

Question

如果我有一个像

"a": 0 0 0 1 1 1 0 0 0 0 1 1 0 0 0

我想知道有多少1人在一起a，在这种情况下，答案是 3 和 2。

有没有可以做到这一点的脚本？

Answer 1

见?rle。

## create example vector
a <- c(rep(0, 3), rep(1, 3), rep(0, 4), rep(1, 2), rep(0, 3))

## count continuous values
r <- rle(a)

## fetch continuous length for value 1
r$lengths[r$values == 1]
# [1] 3 2

Answer 2

这个怎么样？

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

对于海量数据，您可以使用一些复杂的选择来加快速度：

diff(unique(cumsum(test == 1)[test != 1]))
#[1] 3 2

Answer 3

其他人已经回答了这个问题。我只想补充两点意见：

数据输入技巧：使用扫描（默认为“数字”类，不需要代表或逗号），如果添加“字符”作为参数，它也适用于由空格分隔的字符。

a <- scan()
1: 0 0 0 1 1 1 0 0 0 0 1 1 0 0 0
16: 
Read 15 items

rle真的是反函数rep

 arle <- rle(a)
 rep(arle$values, arle$lengths)
 [1] 0 0 0 1 1 1 0 0 0 0 1 1 0 0 0