选择R中列表中的上一个和后一个值

问题描述 投票:0回答:1

我有一个列表对象,第一列是质量,第二列是丰富。这是一个简短的例子:

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")
r row extra
1个回答
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
© www.soinside.com 2019 - 2024. All rights reserved.