如何選擇最小p值和下一個更接近最小data.table

Question

這裏是關於我想要的一個例子：

set.seed(123)  
data<-data.frame(X=rep(letters[1:3], each=4),Y=sample(1:12,12),Z=sample(1:100, 12)) 
setDT(data) 

我想什麼做的是選擇X的唯一行以最小的Y和下一接近值最小

所需的輸出

>data 
a 4 68 
a 5 11 
b 1 4 
b 10 89 
c 2 64 
c 3 82 

的最小值是在這個崗位已經回答How to select rows by group with the minimum value and containing NAs in R

data[, .SD[which.min(Y)], by=X] 

但是如何用最小和最接近的方法來實現呢？

Answer 1

對於未分組的情況下，對於一個data.table你可以這樣做：

data[rank(Y) %in% 1:2, ] 

對於分組的情況下，你可以這樣做：

data[ , .SD[rank(Y) %in% 1:2] , by=X] 

X Y Z 
1: a 4 68 
2: a 5 11 
3: b 1 4 
4: b 10 89 
5: c 3 82 
6: c 2 64