计算数据帧列中事件组合发生的次数

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

例如说我有

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

So

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

a and b一起出现一次（第一行），a and c4 次（第 2、4、5、6 行）以及b and c两次（第三行和第七行）所以我想返回

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

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

这应该有效：

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

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