У меня есть следующие данные:

> dput(s1[1:10,])

structure(list(V1 = c(1, 1, 1, 1, 1, 1, 1, 1, 1, 1), V2 = c(0, 
0.55, 0.9, 3.125, 5, 19.96666667, 12.25, 35.15, 5.4, 58.58)), 
na.action = structure(260:270, .Names = c("260", 
"261", "262", "263", "264", "265", "266", "267", "268", "269", 
"270"), class = "omit"), row.names = c("33", "317", "6", 
"202","250", "185", "28", "251", "218", "116"), class = 
"data.frame")

Я хотел бы посчитать количество последовательных вхождений, когда V2 (второй столбец) ниже 1, по крайней мере, 3 последовательных временных шага.

Так что в приведенном выше примере ответ должен 1.

Если я перескажу приведенные выше данные:

b<-a[sample(1:nrow(a),replace=T),]
dput(b)

structure(list(V1 = c(1, 1, 1, 1, 1, 1, 1, 1, 1, 1), V2 = c(5, 
35.15, 0.55, 19.96666667, 0.55, 19.96666667, 0.55, 3.125, 0.9, 
0.55)), na.action = structure(260:270, .Names = c("260", 
"261","262", "263", "264", "265", "266", "267", "268", "269", 
"270"), class = "omit"), row.names = c("250", "251", "317", 
"185","317.1", "185.1", "317.2", "202", "6", "317.3"), class = 
"data.frame")

Здесь ответ должен быть 0.

Как я могу получить эти значения с помощью однострочной команды в R? Это возможно?

Я буду признателен за любую помощь.

2
Lyndz 24 Апр 2020 в 07:08

2 ответа

Лучший ответ

Используя rle:

with(rle(s1$V2 < 1), sum(lengths[values] >= 3))
#[1] 1
1
Ronak Shah 24 Апр 2020 в 04:11

Вот вариант с rleid из data.table

library(data.table)
nrow(setDT(s1)[, if(all(V2 < 1)) .N, rleid(V2 < 1)])
#[1] 1
1
akrun 24 Апр 2020 в 20:30