Определить количество пробегов определенной длины

Question

У меня есть следующий вектор: data.

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

Когда число 1 происходит по меньшей мере, 3 раза подряд, я хотел бы считать это 1. Таким образом, требуемая мощность для выше будет 2.

Answer 1

Вы можете использовать rle()

with(rle(data), sum(lengths >= 3 & values == 1)) 
# [1] 2 

Answer 2

Другой вариант rleid от data.table

library(data.table)#v1.9.6+ 
sum(table(rleid(data),data)[,2]>=3) 
#[1] 2 

Answer 3

Раствор с stringi:

library(stringi) 
stri_count(paste(data, collapse=''), regex='1{3,}') 
#[1] 2 

stringr делает работу, но, кажется, медленнее:

library(stringr) 
str_count(paste(data, collapse=''), '1{3,}') 
#[1] 2 

Вы также можете попробовать эту базу R подход:

length(strsplit(gsub('1{3,}', 'a', paste(data, collapse='')), 'a')[[1]]) - 1 
#[1] 2