Rで相互参照テーブルを作成するには？

Question

私は、花種の嗜好を登録したIDを持つ長い形式のデータセットから相互参照テーブルを作成しようとしています。相互参照表には、すべての花を縦横に表示し、各花ごとに、そのデータセットに基づいて他の花の好きな頻度を表示する必要があります。対象

dat <- data.frame(
    ID=rep(1:5, c(3,3,2,1,4)), 
    Flower=c("Azalea","Begonia","Buttercup","Rose","Sunflower")[ 
    c(4,2,5,2,1,3,4,3,1,5,4,3,2) 
    ] 
) 

# ID Flower 
#1 1  Rose 
#2 1 Begonia 
#3 1 Sunflower 
#4 2 Begonia 
#5 2 Azalea 
#6 2 Buttercup 
#7 3  Rose 
#8 3 Buttercup 
#9 4 Azalea 
#10 5 Sunflower 
#11 5  Rose 
#12 5 Buttercup 
#13 5 Begonia 

出力：

Answer 1

一つまっすぐソリューションは、table()でcrossprod()/tcrossprod()を使用することです：

crossprod(table(dat)) 

#   Flower 
#Flower  Azalea Begonia Buttercup Rose Sunflower 
# Azalea   2  1   1 0   0 
# Begonia  1  3   2 2   2 
# Buttercup  1  2   3 2   1 
# Rose   0  2   2 3   2 
# Sunflower  0  2   1 2   2