如何基于行列名称精准匹配将子矩阵数据填入大空白矩阵？

核心思路 #

通过match()函数定位子矩阵行列名在大矩阵中的对应位置，直接完成精准赋值，无需仅依赖列名交集。

单个子矩阵填充示例 #

针对你提供的示例数据，只需以下几步即可完成填充：

# 定义大空白矩阵
adj1 <- matrix(0, 3, 4)
colnames(adj1) <- c("g1", "g2", "g3", "g4")
rownames(adj1) <- c("Tim", "John", "Sarah")

# 定义子矩阵
adj2 <- matrix(0, 2, 2)
colnames(adj2) <- c("g1", "g4")
rownames(adj2) <- c("Tim", "John")
adj2[1,2] <- 1

# 定位子矩阵在大矩阵中的行列位置
row_pos <- match(rownames(adj2), rownames(adj1))
col_pos <- match(colnames(adj2), colnames(adj1))

# 精准赋值
adj1[row_pos, col_pos] <- adj2

# 查看结果，与期望的combined_adj一致
adj1

运行后adj1的输出与你期望的combined_adj完全一致：

g1 g2 g3 g4
Tim   0  0  0  1
John  0  0  0  0
Sarah 0  0  0  0

多个子矩阵批量填充 #

如果有多个子矩阵，可将它们存入列表后循环处理：

# 假设有多个子矩阵adj2、adj3、adj4
sub_matrices <- list(adj2, adj3, adj4)

# 批量填充到大矩阵adj1中
for (mat in sub_matrices) {
  row_pos <- match(rownames(mat), rownames(adj1))
  col_pos <- match(colnames(mat), colnames(adj1))
  # 若需要累加而非覆盖，可改为 adj1[row_pos, col_pos] <- adj1[row_pos, col_pos] + mat
  adj1[row_pos, col_pos] <- mat
}

注意事项 #

• 题目明确子矩阵是大矩阵的子集，因此match()不会返回NA，无需额外处理；若存在不确定的情况，可添加!is.na()过滤无效位置。
• 若多个子矩阵修改同一单元格，后续的赋值会覆盖之前的，如需累加数据，可调整赋值语句为累加形式。

内容的提问来源于stack exchange，提问作者SteffenT