获取行中具有等效值的列

Question

我需要从一些行中获取一些列是等效的，并准确提取这些列。

我有以下数据框：

a <- c(1,2,3)
b <- c(1,2,3)
c <- c(4,5,6)
A <- data.frame(a,b,c)

> A
  a b c d
1 1 2 4 1
2 2 2 5 2 
3 3 3 6 3

我想要以下结果：

> columnInnerJoin(A)
  a d 
1 1 1 
2 2 2 
3 3 3 

或者，更具体地说：

> columnInnerJoinGiveColumns(A)
  a d 

Answer 1

我们可以尝试duplicated

res <- A[duplicated(as.list(A))|duplicated(as.list(A), fromLast=TRUE)]
names(res)
#[1] "a" "d"