r - 计数事件组合在数据框列中发生的次数

Question

我有一个数据框，我想计算两列中每个事件组合发生的次数（以任何顺序）。

例如说我有

df <- data.frame('x' = c('a', 'a', 'b', 'c', 'c', 'c'), 
                 'y' = c('b', 'c', 'c', 'a', 'a', 'b'))

所以

x y  
a b  
a c  
b c  
c a  
c a  
c a  
c b

a并b一起出现一次（第一行），a四次c（第 2、4、5、6 行）b和c两次（第 3 行和第 7 行），所以我想返回

x-y num  
a-b 1  
a-c 4  
b-c 2  

我希望这是有道理的？提前致谢

Answer 1

这应该有效：

table(apply(df,1,function(x) paste(sort(x),collapse='-')))

a-b a-c b-c 
  1   3   2