如何用R中另一個矩陣的值填充矩陣？

Question

如何用另一個矩陣的值填充空矩陣？

空矩陣：

> m1 <- matrix(ncol=8, nrow=8) 
> rownames(m1) <- c('a','b','c','d','e','f','g','h') 
> colnames(m1) <- c('a','b','c','d','e','f','g','h') 
> m1 
    a b c d e f g h 
a NA NA NA NA NA NA NA NA 
b NA NA NA NA NA NA NA NA 
c NA NA NA NA NA NA NA NA 
d NA NA NA NA NA NA NA NA 
e NA NA NA NA NA NA NA NA 
f NA NA NA NA NA NA NA NA 
g NA NA NA NA NA NA NA NA 
h NA NA NA NA NA NA NA NA 

與價值矩陣來填充空矩陣：

> m2 <- matrix(ncol=4, nrow=4) 
> rownames(m2) <- c('b','e','h','x') 
> colnames(m2) <- c('b','e','h','x') 
> m2[,'b'] <- c(1,2,3,1) 
> m2[,'e'] <- c(2,1,1,5) 
> m2[,'h'] <- c(3,1,3,5) 
> m2[,'x'] <- c(1,5,5,1) 
> m2 
    b e h x 
b 1 2 3 1 
e 2 1 1 5 
h 3 1 3 5 
x 1 5 5 1 

你如何合併兩個矩陣來得到這樣的結果：

a b c d e f g h 
a NA NA NA NA NA NA NA NA 
b NA 1 NA NA 2 NA NA 3 
c NA NA NA NA NA NA NA NA 
d NA NA NA NA NA NA NA NA 
e NA 2 NA NA 1 NA NA 1 
f NA NA NA NA NA NA NA NA 
g NA NA NA NA NA NA NA NA 
h NA 3 NA NA 1 NA NA 3 

編輯：添加的行/列x在平方米，這不是在M1

Answer 1

查找兩個矩陣的共同點

cols <- colnames(m1)[colnames(m1) %in% colnames(m2)] 
rows <- rownames(m1)[rownames(m1) %in% rownames(m2)] 

然後分配適當的值從m2到m1

m1[rows, cols] <- m2[rows, cols] 
m1 
# a b c d e f g h 
#a NA NA NA NA NA NA NA NA 
#b NA 1 NA NA 2 NA NA 3 
#c NA NA NA NA NA NA NA NA 
#d NA NA NA NA NA NA NA NA 
#e NA 2 NA NA 1 NA NA 1 
#f NA NA NA NA NA NA NA NA 
#g NA NA NA NA NA NA NA NA 
#h NA 3 NA NA 1 NA NA 3