将data.frame的副本分隔为另一个data.frame

Question

我有一个data.frame x，我希望将所有重复的行放在新的数据框z中。我的数据框如下所示：

1 A
1 A
2 B
3 C
4 D
4 D

目前我使用z <- x[duplicated(x$column_name),]，这给了我：

1 A
4 D

但我想要的是：

1 A
1 A
4 D
4 D

如何实现这一目标？

Answer 1

This answer为此问题提供了一种可能的解决方案：在duplicated启用一次后计算fromLast=T两次：

> d <- data.frame(x=c(1,1,2,3,4,4), y=c('A', 'A', 'B', 'C', 'D', 'D'))
> d[c(duplicated(d) | duplicated(d, fromLast = T)),]

  X1 X2
1  1  A
2  1  A
5  4  D
6  4  D