R按列名添加数组

Question

这看起来很基础，但我想不通。如何按列名在 R 中将两个数组相加？例如:

a<-matrix(1:9,ncol=3)
colnames(a)<-c("A","B","C")
a
#     A B C
#[1,] 1 4 7
#[2,] 2 5 8
#[3,] 3 6 9

b <-matrix(10:18,ncol=3)
colnames(b)<-c("C","B","D")
b
#      C  B  D
#[1,] 10 13 16
#[2,] 11 14 17
#[3,] 12 15 18

我想以这样的方式将它们加在一起以产生:

#      A  B  C  D
#[1,]  1 17 17 16
#[2,]  2 19 19 17
#[3,]  3 21 21 18

我想我可以向两个矩阵添加额外的列，但似乎只有一行命令可以完成此操作。谢谢!

Answer 1

使用 xtabs ，在将组合表融合为长 data.frame 之后:

xtabs(Freq ~ ., data=as.data.frame.table(cbind(a,b)))
#    Var2
#Var1  A  B  C  D
#   A  1 17 17 16
#   B  2 19 19 17
#   C  3 21 21 18

rownames 将在 LETTERS 中循环