如何强制表格具有相等的尺寸？

Question

如何强制表格的尺寸在R中相等？

例如：

a <- c(0,1,2,3,4,5,1,3,4,5,3,4,5)
b <- c(1,2,3,3,3,3,3,3,3,3,5,5,6)
c <- table(a,b)

print(c)
#   b
#a   1 2 3 5 6
#  0 1 0 0 0 0
#  1 0 1 1 0 0
#  2 0 0 1 0 0
#  3 0 0 2 1 0
#  4 0 0 2 1 0
#  5 0 0 2 0 1

但是，我正在寻找以下结果：

print(c)
#   b
#a   0 1 2 3 4 5 6
#  0 0 1 0 0 0 0 0
#  1 0 0 1 1 0 0 0
#  2 0 0 0 1 0 0 0
#  3 0 0 0 2 0 1 0
#  4 0 0 0 2 0 1 0
#  5 0 0 0 2 0 0 1
#  6 0 0 0 0 0 0 0

Answer 1

通过使用因素。 table不知道变量的级别，除非您以某种方式告诉它！

a <- c(0,1,2,3,4,5,1,3,4,5,3,4,5)
b <- c(1,2,3,3,3,3,3,3,3,3,5,5,6)

a <- factor(a, levels = 0:6)
b <- factor(b, levels = 0:6)
table(a,b)
#   b
#a   0 1 2 3 4 5 6
#  0 0 1 0 0 0 0 0
#  1 0 0 1 1 0 0 0
#  2 0 0 0 1 0 0 0
#  3 0 0 0 2 0 1 0
#  4 0 0 0 2 0 1 0
#  5 0 0 0 2 0 0 1
#  6 0 0 0 0 0 0 0

编辑强制执行正方形交叉制表的一般方法是执行类似

x <- factor(a, levels = union(a, b))
y <- factor(b, levels = union(a, b))
table(x, y)