按组提取每列包含第二个唯一值的所有行

Extract all rows containing second unique value for each column by group

这与中提出的问题直接相关

但我不想 return 在第一年检测到 ID，而是 return 所有只有第二年的行。

改编上述话题中的答案来自

test

    ID yr
1  54V  1
2  54V  1
3  54V  1
4  54V  2
5  54V  2
6  56V  2
7  56V  2
8  56V  3
9  59V  1
10 59V  2
11 59V  3

到

    test2 <- test[with(test, as.logical(ave(yr, ID, FUN = function(x) x==x[2L]))),]
         or
    test2 <- setDT(test)[, .SD[yr==yr[2L]], ID]

产生奇怪的结果。

   ID yr
1 54V  1
2 54V  1
3 54V  1
5 56V  2
6 56V  2
9 59V  2

我想要的结果是

    ID yr
4  54V  2
5  54V  2
8  56V  3
10 59V  2

我做错了什么？

 subset(test,as.logical(ave(yr,ID,FUN=function(x)x==unique(x)[2]))) 
  ID yr
1 54V  2
2 54V  2
3 56V  3
4 59V  2

 library(data.table)
 setDT(test)[,.SD[yr==unique(yr)[2]],by=ID]
    ID V1
1: 54V  2
2: 54V  2
3: 56V  3
4: 59V  2

test%>%group_by(ID)%>%filter(yr==unique(yr)[2])
# A tibble: 4 x 2
     ID    yy
  <chr> <int>
1   54V     2
2   54V     2
3   56V     3
4   59V     2