使用xtabs函數創建具有列名的表

Question

我在使用xtabs函數時遇到麻煩。 我一直在使用xtabs從數據框創建表。 我試圖找出列名稱與命令names（）。 R響應“ NULL”。

這是為什么，以及如何將這個xtabs表轉換為具有列名的表或數據框。

函數ftable不提供我所需要的。

Answer 1

假設您希望數據集看起來與帶有列的xtabs(..)結果相似：

 dat <- structure(list(cntry1 = c("usa", "usa", "usa", "canada", "canada", 
 "cuba"), cntry2 = c("canada", "bahamas", "cuba", "bahamas", "cuba", 
 "bahamas"), var1 = c(70L, 29L, 39L, 15L, 35L, 5L)), .Names = c("cntry1", 
 "cntry2", "var1"), class = "data.frame", row.names = c(NA, -6L
 ))

 r1 <- xtabs(var1~cntry2+cntry1, dat)
 as.data.frame.matrix(r1)
 #         canada cuba usa
 #bahamas     15    5  29
 #canada       0    0  70
 #cuba        35    0  39