从低于阈值的数据帧中删除行

Question

我有以下数据格式(data6)：

data6

   n   S_ID      EID VO
1: 1   41883100   1 A1
2: 2   41883100   2 B22
3: 3   41883100   3 C13
4: 4   41883100   4 D18
5: 5   41883100   5 T5-7
6: 6   41883098   1 HJ89
7: 7   41883098   2 I982
8: 8   41884555   1 ZX567
9: 9   41997896   1 TYU12

我希望在data6中保留其最大EID列值大于每个S_ID (删除每个S_ID的EID值为1或2)的所有行。结果如下：

data6

   n   S_ID      EID VO
1: 1   41883100   1 A1
2: 2   41883100   2 B22
3: 3   41883100   3 C13
4: 4   41883100   4 D18
5: 5   41883100   5 T5-7

第6行和第7行被删除，因为对于它们的S_ID，最大EID为2，第8行和第9行被删除，因为每个S_ID的最大EID值为1。第1至5行是保留的，因为它们的S_ID最大值为5(在第5行中)，因此它们的所有相关行都保持不变(1至5)。

Answer 1

按'S_ID‘分组，'EID’的if any大于2，得到Data.table (.SD)的子集

library(data.table)
setDT(data6)[, if(any(EID > 2)) .SD , by = S_ID]
#       S_ID n EID   VO
#1: 41883100 1   1   A1
#2: 41883100 2   2  B22
#3: 41883100 3   3  C13
#4: 41883100 4   4  D18
#5: 41883100 5   5 T5-7

Answer 2

在R基础上：

data6[data6$S_ID %in% data6$S_ID[data6$EID>2],]

从内到外的想法是

1. 用data6$EID>2获得开斋节>2
2. 用S_ID获取相应的data6$S_ID[<1 above>]
3. 获取与此<2> data6$S_ID %in% <2>对应的逻辑向量。
4. 通过在<3>上获取逻辑向量过滤原始数据