r - 如何仅识别 "not duplicated"行

我有这样的情况。
多个数据表“绑定(bind)”。

library(data.table)
x <-  data.table(id=c(1,2,3,4),dsp=c(5,6,7,8),status=c(FALSE,TRUE,FALSE,TRUE))
y <-  data.table(id=c(1,2,3,4),dsp=c(6,6,7,8),status=c(FALSE,FALSE,FALSE,TRUE))
z <- data.table(id=c(1,2,3,4),dsp=c(5,6,9,8),status=c(FALSE,TRUE,FALSE,FALSE))
w <- data.table(id=c(1,2,3,4),dsp=c(5,6,7,NA),status=c(FALSE,TRUE,FALSE,TRUE))
setkey(x,id)
setkey(y,id)
setkey(z,id)
setkey(w,id)
Bigdt<-rbind(x,y,z,w)

我只想获得不重复的行，如:

id  dsp status
1   6   FALSE
2   6   FALSE
3   9   FALSE
4   8   FALSE
4   NA  TRUE

所以我试过了

Resultdt<-Bigdt[!duplicated(Bigdt)]

但结果:

id  dsp status
1   5   FALSE
2   6   TRUE
3   7   FALSE
4   8   TRUE

不符合我的期望。
我尝试了不同的方法(因为 rbind 不是强制性的)，例如合并、连接等。 data.table 包似乎可能是包含解决方案的那个......显然。有任何想法吗？

最佳答案

你可以做

Bigdt[, .N, by=names(Bigdt)][N == 1L][, N := NULL][]

   id dsp status
1:  1   6  FALSE
2:  2   6  FALSE
3:  3   9  FALSE
4:  4   8  FALSE
5:  4  NA   TRUE

要查看它是如何工作的，只需运行 DT[][][][] 链的一部分:

Bigdt[, .N, by=names(Bigdt)]

Bigdt[, .N, by=names(Bigdt)][N == 1L]

Bigdt[, .N, by=names(Bigdt)][N == 1L][, N := NULL]

关于r - 如何仅识别 "not duplicated"行，我们在Stack Overflow上找到一个类似的问题：https://stackoverflow.com/questions/37486617/