r - 使用 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，我得到一个由三列组成的数据框，第一列和第二列是由属于原始数据框第一列的元素组成的，第三列是 Var1 的元素所具有的 Var2 的共同元素的数量。

 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

我该如何进行？

谢谢你的建议！