重塑看起來像相關矩陣的分類數據

Question

我有一個df：

cc pair_no
US   1
US   1
DE   2
UK   2
US   3
PL   3
US   4
US   4

我想創建一個矩陣，基本上是計算每個國家/地區組合的對數：

    US  UK  PL DE
US  2
UK  0   0   
PL  1   0    0
DE  0   1    0   0

我嘗試使用，但沒有得到期望的結果。

Table(df$cc,df$pair_no)

有人可以幫忙嗎？

Answer 1

你可以試試：

table(data.frame(cc1=df$cc[c(TRUE,FALSE)],cc2=df$cc[c(FALSE,TRUE)]))
#    cc2
#cc1  DE PL UK US
#  DE  0  0  1  0
#  PL  0  0  0  0
#  UK  0  0  0  0
#  US  0  1  0  2

數據

df<-structure(list(cc = structure(c(4L, 4L, 1L, 3L, 4L, 2L, 4L, 4L
), .Label = c("DE", "PL", "UK", "US"), class = "factor"), pair_no = c(1L, 
1L, 2L, 2L, 3L, 3L, 4L, 4L)), .Names = c("cc", "pair_no"), class = "data.frame", row.names = c(NA, 
-8L))