Abrufen von Spalten mit äquivalenten Werten in Zeilen

Question

Ich muss aus einer Reihe von Zeilen, wo einige Spalten äquivalent sind, und genau diese Spalten extrahieren.

Ich habe folgende Datenrahmen:

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 

Ich möchte folgendes Ergebnis:

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

Oder genauer gesagt:

> columnInnerJoinGiveColumns(A) 
    a d 

Answer 1

Wir können mit duplicated versuchen

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