使用pairwise_count在R中创建一个关系矩阵

Question

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

 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

使用pairwise_count，我得到了一个由三列组成的数据帧，第一和第二列是属于原始数据帧第一列的元素组成的，第三列是Var2共有的元素数Var1中有。

 df <- pairwise_count(df, Var1, Var2)

# A tibble: 4 x 3
item1 item2     n
<fct> <fct> <dbl>
1 dog   cat     1
2 pig   cat     2
3 cat   dog     1
4 cat   pig     2

我想获得一个新的数据框，该框具有第四列，以使共同的元素明确。

 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

我该如何进行？

谢谢您的建议！