根据其他矩阵的长度向数据矩阵添加零，保持 colname 顺序

Question

我有以下矩阵mat1：

mat1 <- matrix (1:16, 4)
colnames(mat1) <- c("A1","B2","C3","D4"); row.names(mat1) <- c("A1","B2","C3","D4")

 mat1
   A1 B2 C3 D4
A1  1  5  9 13
B2  2  6 10 14
C3  3  7 11 15
D4  4  8 12 16

我还有一个较小的矩阵small_mat：

small_mat <- matrix (1:4, 2)
colnames(small_mat) <- c("A1","C3"); row.names(small_mat) <- c("A1","C3")

  A1 C3
A1  1  3
C3  2  4

我想制作small_mat与 相同的大小mat1，在需要的地方添加零并保持colnames和row.names的顺序与 相同mat1。

期望的结果：

       A1 B2 C3 D4
    A1  1  0  3  0
    B2  0  0  0  0
    C3  2  0  4  0
    D4  0  0  0  0

我尝试过从缺失small_mat colnames和随后使用中创建一个零矩阵rbind.fill.matrix，但没有完全实现：

not_in_small_mat <- colnames(mat1)[!(colnames(mat1) %in% colnames(small_mat))] # see what colnames are missing from small_mat 
zeros <- matrix(data=0,nrow=length(not_in_small_mat),ncol=length(colnames(mat1))) # create matrix of those needing adding 
colnames(zeros) <- colnames(mat1)

result <- rbind.fill.matrix(small_mat,zeros)

    A1 C3 B2 D4
[1,]  1  3 NA NA
[2,]  2  4 NA NA
[3,]  0  0  0  0
[4,]  0  0  0  0

Answer 1

这会将 插入small_mat到零矩阵中

mat1 <- matrix(rep(0, 16), 4)
colnames(mat1) <- c("A1", "B2", "C3", "D4")
row.names(mat1) <- c("A1", "B2", "C3", "D4")

small_mat <- matrix(1:4, 2)
colnames(small_mat) <- c("A1", "C3")
row.names(small_mat) <- c("A1", "C3")

mat1[rownames(small_mat), colnames(small_mat)] <- small_mat

mat1
   A1 B2 C3 D4
A1  1  0  3  0
B2  0  0  0  0
C3  2  0  4  0
D4  0  0  0  0