按列名和行名合并两个矩阵

Question

我想根据列名和行名合并两个矩阵。

[两个矩阵中的值都是数值，并且合并是对同时出现的两个矩阵求和。

matrix1：

  A B C 
x 1 4 3
z 5 2 4
k 1 2 3

和matrix2：

  A B C D
x 6 4 1 2
y 2 3 1 3
z 1 4 1 4 
k 7 5 3 1

所以输出将是：

   A   B   C  D
x 3.5  4   2  2
y  2   3   1  3
z  3   3  2.5 4
k  4  3.5  3  1

我的想法是使用for循环或apply函数，但是如果矩阵很大，则此程序将运行很长时间。有什么建议吗？谢谢！

Answer 1

您可以使用rownames和colnames来子集matrix2并仅更新其中的一部分。

matrix2[rownames(matrix1), colnames(matrix1)] <- (matrix1 + matrix2[rownames(matrix1), colnames(matrix1)])/2

matrix2

#    A   B   C D
#x 3.5 4.0 2.0 2
#y 2.0 3.0 1.0 3
#z 3.0 3.0 2.5 4
#k 4.0 3.5 3.0 1

数据

matrix1 <- structure(c(1L, 5L, 1L, 4L, 2L, 2L, 3L, 4L, 3L), .Dim = c(3L, 
           3L), .Dimnames = list(c("x", "z", "k"), c("A", "B", "C")))

matrix2 <- structure(c(6L, 2L, 1L, 7L, 4L, 3L, 4L, 5L, 1L, 1L, 1L, 3L, 2L, 
3L, 4L, 1L), .Dim = c(4L, 4L), .Dimnames = list(c("x", "y", "z", 
"k"), c("A", "B", "C", "D")))