Выберите предыдущие и последующие значения в списке в R

Question

У меня есть объект списка, где первый столбец является массой, а второй - изобилием. Вот краткий пример:

772.35 0 
772.9 10 
773.81 0
...
885.64 0 
885.65 10 
885.68 313 
885.70 4455 
885.78 71 
885.82 0
...
889.12 0
889.13 56 
885.82 0
...
900.31 0 
900.34 10 
901.22 1901 
902.8 0

Я должен выбрать строки, где численность> 100 в серии, начиная с 0 и заканчивая 0. Результат будет:

885.64 0 
885.65 10 
885.68 313 
885.70 4455 
885.78 71 
885.82 0
900.31 0 
900.34 10 
901.22 1901 
902.8 0

Серия может содержать две численности> 100 (885.68 313 and 885.70 4455) но мой результат должен быть без дубликата

Данные

dd <- read.table(text = "772.35 0 
                 772.9 10 
                 773.81 0
                 885.64 0 
                 885.65 10 
                 885.68 313 
                 885.70 4455 
                 885.78 71 
                 885.82 0
                 889.12 0
                 889.13 56 
                 885.82 0
                 900.31 0 
                 900.34 10 
                 901.22 1901 
                 902.8 0")

Answer 1

setDT(dd)[,group:=cumsum(c(diff(as.numeric(!V2)),0)<0)][,b:=any(V2>100),by=group][!!b]
        V1   V2 group    b
 1: 885.64    0     2 TRUE
 2: 885.65   10     2 TRUE
 3: 885.68  313     2 TRUE
 4: 885.70 4455     2 TRUE
 5: 885.78   71     2 TRUE
 6: 885.82    0     2 TRUE
 7: 900.31    0     4 TRUE
 8: 900.34   10     4 TRUE
 9: 901.22 1901     4 TRUE
10: 902.80    0     4 TRUE