删除所有唯一的行

Question

我试图弄清楚如何从数据框中删除所有唯一的行，但如果有重复行，我希望保留其中。例如，我希望col1中的所有列都相同:

df<-data.frame(col1=c(rep("a",3),"b","c",rep("d",3)),col2=c("A","B","C",rep("A",3),"B","C"),col3=c(3,3,1,4,4,3,2,1))
df
  col1 col2 col3
1    a    A    3
2    a    B    3
3    a    C    1
4    b    A    4
5    c    A    4
6    d    A    3
7    d    B    2
8    d    C    1

subset(df,duplicated(col1))
  col1 col2 col3
2    a    B    3
3    a    C    1
7    d    B    2
8    d    C    1

但是我想拥有行1,2,3,6,7,8，因为它们都具有相同的col1。如何获得1和6？或者相反，如何删除没有重复的行？

Answer 1

另外一个选项:

subset(df,duplicated(col1) | duplicated(col1, fromLast=TRUE))