如何添加两个不同维度的矩阵

Question

我想添加两个矩阵，但它们的维度不同。我想根据行名和列名添加它们。例如：我有 2 个矩阵 m1 和 m2，

m1<- matrix(rep(1,9),3,3)
row.names(m1)<- c("a", "b", "c")
colnames(m1)<- c("a", "b", "c")

m2<- matrix(rep(1,4),2,2)
row.names(m2)<- c("a", "c")
colnames(m2)<- c("a", "c")
> m1
  a b c
a 1 1 1
b 1 1 1
c 1 1 1
> m2
  a c
a 1 1
c 1 1

我想要这样的输出

  a b c
a 2 1 2
b 1 1 1
c 2 1 2

我找到了一个这样的链接here，但它仅基于列名。

Answer 1

您可以使用rownames 和colnames 对m1 进行子集化并进行加法。

m1[rownames(m2), colnames(m2)] <- m1[rownames(m2), colnames(m2)] + m2
m1
#  a b c
#a 2 1 2
#b 1 1 1
#c 2 1 2

如果m1 没有m2 的所有名称：

i <- intersect(rownames(m1), rownames(m2))
j <- intersect(colnames(m1), colnames(m2))
m1[i, j] <- m1[i, j] + m2[i, j]