过滤仅显示重复项的数据框

Question

我需要一些帮助来过滤数据框。

df 有几列，我想把它分成两个数据框：

1- 仅包括第一列重复的行（包括所有副本）。

2- 其余行，不重复。

这是一个例子： 这将是原始的。

          V1  V2 
    [1,] "A" "1"
    [2,] "B" "1"
    [3,] "A" "1"
    [4,] "C" "2"
    [5,] "D" "3"
    [6,] "D" "4"

我想变成这样：

         V1  V2 
   [1,] "A" "1"
   [2,] "A" "1"
   [3,] "D" "3"
   [4,] "D" "4"

还有这个：

        V1  V2 
  [1,] "B" "1"
  [2,] "C" "2"

有没有办法做到这一点？我曾尝试导出到 Excel，但数据集太大而无法实现。

谢谢

Answer 1

考虑到df 作为您的输入，您可以使用dplyr 并尝试：

df %>% group_by(V1) %>% filter(n() > 1)

对于重复项

和

df %>% group_by(V1) %>% filter(n() == 1)

用于唯一条目。

Answer 2

您可以使用duplicated，但请记住duplicated 仅在第一个重复值处返回TRUE，即

> duplicated(c("A", "A", "A"))
[1] FALSE  TRUE  TRUE 

不会为第一个 "A" 返回 TRUE。如果您想捕获 "A" 的所有值，您可以例如使用

duplicated(c("A", "A", "A")) | duplicated(c("A", "A", "A"), fromLast = TRUE)
# [1] TRUE TRUE TRUE

然后您可以使用

分离您的数据

## Index of the duplicated values:
indDuplicatedVec <- duplicated(d[,1]) | duplicated(d[,1], fromLast = TRUE)

myDuplicates <- d[indDuplicatedVec, ]
myUniques <- d[!indDuplicatedVec, ]

> myDuplicates
#V1 V2
#1  A  1
#3  A  1
#5  D  3
#6  D  4

> myUniques
#V1 V2
#2  B  1
#4  C  2

Answer 3

我们可以使用data.table

library(data.table)
setDT(df)[, .SD[.N >1], V1]

Answer 4

试试

d[!duplicated(d),]

和

d[duplicated(d),]

d 是您的数据库。

=== 更新 === 如果只需要第一列，并且所有重复项都需要放在单独的列中，您可以这样做：

library(gdata) d[duplicated2(d$V1,bothWays = T),] d[!duplicated2(d$V1,bothWays = T),]

如果只需要基数 R，则：

bm <- duplicated(d$V1) | duplicated(d$V1,fromLast = TRUE) d[bm,] d[!bm,]