从xtabs函数创建具有列名的表

Question

我对xtabs函数有问题。我一直在使用xtabs从数据框架创建表。我正在试图找出列名是否带有命令，name()。R响应"NULL“。

为什么会这样，以及如何将这个xtabs表转换为具有列名的表或数据帧。

函数ftable没有提供我所需要的。

Answer 1

假设您希望dataset看起来类似于列的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