创建一个跨越因子级别的双向表，在另一列中使用id

Question

使用这样的矩阵（或数据帧）

 a<-matrix(c(1,2,3,1,4,2,5,"A","A","B","B","A","B","A"),nrow=7,ncol=2)

考虑到我在第一列中有id，在第二列中有一个因子的级别。 我怎样才能获得一个双向同时出现的表格？

预期产出：

    A    B
A   4    2
B   2    3

谢谢，

编辑：找到答案......这太愚蠢了：

crossprod(table(a[,1],a[,2]))

Answer 1

迟到总比没有好，我刚刚编辑了操作并忘了回答，这是我想出的解决方案：

crossprod(table(a[,1],a[,2]))