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中保留其每个S_ID的最大EID列值大于2的所有行（删除每个S_ID的1或2的EID值）。结果将如下：

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

基础R：

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

内心到外在的想法是

获取EID＆gt; 2与data6$EID>2
使用data6$S_ID[<1 above>]
获得对应于该＆lt; 2＆gt;的逻辑矢量。 data6$S_ID %in% <2>
通过逻辑矢量get on＆lt; 3＆gt;

Answer 2

按照＆＃39; EID＆＃39;的S_ID＆＃39;，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

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

2 个答案: