从 data.table 中删除一列相同但另一列不同的行

Question

我有一个像这样的数据表:

dt<-data.table(v1=rep(c('a','b','c'),4), v2=rep(c(1,2),6))
    v1 v2
 1:  a  1
 2:  b  2
 3:  c  1
 4:  a  2
 5:  b  1
 6:  c  2
 7:  a  1
 8:  b  2
 9:  c  1
10:  a  2
11:  b  1
12:  c  2

我需要删除所有具有相同 v1 但不同 v2 的行(v1 和 v2 的每个组合中的第一行除外)。在此示例中，应删除第 4-6 行和第 10-12 行。我该怎么做？

Answer 1

我认为这可行:

dt[, v2[v2 == v2[1]], by = v1]
#   v1 V1
#1:  a  1
#2:  a  1
#3:  b  2
#4:  b  2
#5:  c  1
#6:  c  1