比较两列的组和返回索引匹配R

Question

非常感谢您的阅读。我相信道歉是一项简单的任务。

我有一个数据框： （编辑：增加了额外的列不列入比较）

b = c(5, 6, 7, 8, 10, 11) 
c = c('david','alan','pete', 'ben', 'richard', 'edd') 
d = c('alex','edd','ben','pete','raymond', 'alan') 
df = data.frame(b, c, d) 
df 
    b  c  d 
1 5 david alex 
2 6 alan  edd 
3 7 pete  ben 
4 8  ben pete 
5 10 richard raymond 
6 11  edd alan 

我想组列c和d与组列d和c的比较。也就是说，对于一行，我想将c和d中的组合值与d和c中的所有其他行的组合值进行比较。

（注值既可以是文字或整数）

如果这些比赛我想回到那些符合该行的指标，最好是列表的列表。我需要能够访问索引而无需参考列c或d中的值。

I.e.对于上述数据框中，我的预期输出是：

c(c(2, 6), c(3, 4)) 
((2,6), (3,4)) 

由于：

Row 2: (c + d == alan + edd) = row 6: (d + c == edd + alan) 
Row 3: (c + d == pete + ben) = row 4: (d + c == ben + pete) 

我知道如何确定匹配的情况下使用matchmelt两个单独的列，但如果它们连接在一起并遍历所有可能的行组合。

我设想是这样的：

lapply(1:6, function(x), ifelse((df$a & df$b) == (df$b & df$a), index(x), 0)) 

但很明显，这是不正确的，将无法正常工作。

我咨询了以下问题，但一直无法制定答案。我不知道从哪里开始。

Matching multiple columns on different data frames and getting other column as result

match two columns with two other columns

Comparing two columns in a data frame across many rows

R Comparing each value of all pairs of columns

我怎样才能实现上述？

Answer 1

你可以做这样的事情。它根据由df的列形成的唯一排序字符串分割行索引1:nrow(df)。排序确保A,B和B,A的处理方式相同。

duplist <- split(1:nrow(df),apply(df,1,function(r) paste(sort(r),collapse=" "))) 

duplist 
$`alan edd` 
[1] 2 6 

$`alex david` 
[1] 1 

$`ben pete` 
[1] 3 4 

$`raymond richard` 
[1] 5