如何計算R中相同數字的連續字符串出現的次數

Question

我在R中有這樣的字符串0和1：

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

我想算一下有多少個1的字符串（即中間沒有0）。 對於這里的示例，我想獲得輸出4，因為有4個連續的1字符串。

讓我知道我是否應該澄清我的意思。

在此先感謝您的幫助！

Answer 1

我們可以嘗試rle

sum(with(rle(x), lengths[!!values])>1)
$[1] 4

要么

sum(with(rle(x!=0), lengths*values)>1)

---

還是用rleid

library(data.table)
sum(table(rleid(x)[x!=0])>1)
#[1] 4