Para contar sequências de valores repetidos, há a função rle
. Aplicando essa função a cada linha, tem-se as repetições de cada valor. Depois é ver quais correspondem a zeros e quantas dessas são maiores que 5.
Nos dados da pergunta há uma sequência de zeros maiores que 5 nas 2ª e última linhas.
x<-'1 2 3 4 5 6 7 8
1 10 5 0 0 25 12 0
2 0 0 0 0 0 0 1
3 40 25 5 0 1 0 32
4 0 10 6 3 0 0 2
5 2 0 0 0 3 0 0
6 10 3 15 30 3 0 0
7 0 0 0 0 0 0 18'
dados <- read.table(textConnection(x), header = TRUE, check.names = FALSE)
r <- apply(dados, 1, rle)
sapply(r, \(x) sum(x$lengths[x$values == 0] > 5))
#> [1] 0 1 0 0 0 0 1
Created on 2022-08-18 by the reprex package (v2.0.1)