如何计算数据集中元素的组合？

Question

我有以下格式的订单数据集：

Ordernumber; Category; # Sold Items
123; A; 3
123; B; 4
234; B; 2
234; C; 1
234; D; 5
...

因此，每个订单的行数与订单中不同类别的行数相同。

现在，我想计算每个类别对在一个订单中一起订购的频率。

最后我想要一个像这样的"correlation"矩阵

   A  B  C  D
A     1  
B  1     1  1
C     1     1
D     1  1

有没有好（简单）的想法？

非常感谢！

Answer 1

也许使用矩阵乘法可以让你到达那里：

dat <- read.table(header=T, text="Ordernumber; Category;  Sold Items
123; A; 3
123; B; 4
234; B; 2
234; C; 1
234; D; 5", sep=";")


tt <- table(dat[1:2])

crossprod(tt) # t(tt) %*% tt

#        Category
#Category  A  B  C  D
#       A  1  1  0  0
#       B  1  2  1  1
#       C  0  1  1  1
#       D  0  1  1  1

这有对角线，但可以用 diag

轻松删除