使用成对计数在R中创建关系矩阵

我有一个结构如下的数据集：

 df <- c()
 df$Var1 <- c("cat", "dog", "pig", "cat", "cat", "pig")
 df$Var2  <- c("A", "B", "C", "B", "C", "A")
 df <- as.data.frame(df)



Var1.  Var2.

cat.    A
dog.    B
pig.    C
cat.    B
cat.    C
pig.    A

我想获得一个新的dataframe，它有第四列，使公共元素显式

 item1 item2    n  common_el

  dog   cat     1     B
  pig   cat     2     A
  pig   cat     2     C
  cat   dog     1     B
  cat   pig     2     A
  cat   pig     2     C

我怎样才能继续

---

谢谢你的建议

pairwise\u count

来自哪里？pairwise\u count来自哪里？

 item1 item2    n  common_el

  dog   cat     1     B
  pig   cat     2     A
  pig   cat     2     C
  cat   dog     1     B
  cat   pig     2     A
  cat   pig     2     C