如何让多个DataFrame统一行数？缺失行名赋值为0的R语言问题

现有一个包含6个列数相同、行数不同的矩阵的列表df.list，需求是：

• 让所有矩阵的行数一致，包含所有唯一行名
• 矩阵中不存在的行名，对应行所有值设为0
• 最终返回合并后的单个矩阵（而非列表）

用户尝试的代码 #

df.list <- list(scores.1a, scores.1b, scores.1c, scores.2a, scores.2b, scores.2c)
unique.names <- Reduce(unique, lapply(df.list, row.names))

notin1a <- scores.1a[!(rownames(scores.1a) %in% unique.names),] 
scores.1a <- rbind(scores.1a, notin1a)
notin1b <- scores.1b[!(rownames(scores.1b) %in% unique.names),] 
scores.1b <- rbind(scores.1b, notin1b)
notin1c <- scores.1c[!(rownames(scores.1c) %in% unique.names),] 
scores.1c <- rbind(scores.1c, notin1c)
notin2a <- scores.2a[!(rownames(scores.2a) %in% unique.names),] 
scores.2a <- rbind(scores.2a, notin2a)
notin2b <- scores.2b[!(rownames(scores.2b) %in% common.names),] 
scores.2b <- rbind(scores.2b, notin2b)
notin2c <- scores.2c[!(rownames(scores.2c) %in% unique.names),] 
scores.2c <- rbind(scores.2c, notin2c)

运行报错 #

Error in cbind(scores.1a, scores.1b, scores.1c, scores.2a, scores.2b,  : 
  number of rows of matrices must match (see arg 2)

错误原因分析 #

• 逻辑颠倒：scores.1a[!(rownames(scores.1a) %in% unique.names),]是取当前矩阵中不在全局唯一行名里的行，这本身就是空值（unique.names是所有行名的合集），无法添加新行。正确逻辑应该是找全局唯一行名里不在当前矩阵的行，再创建全0行。
• 未定义变量：处理scores.2b时用了common.names，但该变量从未定义，应该替换为unique.names。
• 重复冗余：手动逐个处理每个矩阵，效率低且容易出错。

正确解决方案 #

用lapply批量处理所有矩阵，统一对齐行名并填充0，最后合并成单个矩阵：

# 获取所有唯一行名
unique_rownames <- Reduce(union, lapply(df.list, rownames))

# 批量处理每个矩阵：对齐行名，缺失行填充0
aligned_list <- lapply(df.list, function(mat) {
  # 找出当前矩阵缺失的行名
  missing_rows <- setdiff(unique_rownames, rownames(mat))
  # 创建缺失行的全0矩阵，列数与原矩阵一致
  missing_mat <- matrix(0, nrow = length(missing_rows), ncol = ncol(mat),
                        dimnames = list(missing_rows, colnames(mat)))
  # 合并原矩阵和缺失行矩阵，并按全局行名排序保证顺序一致
  combined_mat <- rbind(mat, missing_mat)
  combined_mat[unique_rownames, ]
})

# 合并所有对齐后的矩阵为单个矩阵
final_df <- do.call(cbind, aligned_list)

测试说明 #

用你提供的df.list示例数据运行上述代码，最终final_df会包含所有21个唯一行名，每个原矩阵的列都会保留，缺失行的位置填充0，所有部分行数完全一致，不会再出现cbind行数不匹配的错误。

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