如何将R语言中的矩阵列表转换为单个矩阵？

问题场景 #

你有如下形式的矩阵列表：

[[1]]
     [,1] [,2]
[1,]    1    2
[2,]    2    3
[3,]    3    2
[4,]    4    3
[5,]    3    2

[[2]]
     [,1] [,2]
[1,]    1    2
[2,]    2    3
[3,]    3    2

[[3]]
     [,1] [,2]
[1,]    1    2
[2,]    2    3
[3,]    3    2

需要将其合并为单个纵向拼接的矩阵：

[,1] [,2]
 [1,]    1    2
 [2,]    2    3
 [3,]    3    2
 [4,]    4    3
 [5,]    3    2
 [6,]    1    2
 [7,]    2    3
 [8,]    3    2
 [9,]    1    2
[10,]    2    3
[11,]    3    2

使用unlist()无法得到期望结果，以下是可行解决方法：

方法1：基础R的do.call(rbind, ...) #

这是最直接高效的方法，利用rbind()按行合并矩阵，do.call()将列表中的每个矩阵作为参数传入rbind：

# 构造和你结构一致的示例列表
mat_list <- list(
  matrix(c(1,2,3,4,3,2,3,2,3,2), ncol = 2),
  matrix(c(1,2,3,2,3,2), ncol = 2),
  matrix(c(1,2,3,2,3,2), ncol = 2)
)

# 合并矩阵
combined_matrix <- do.call(rbind, mat_list)

# 查看结果
print(combined_matrix)

执行后就能得到你想要的纵向拼接矩阵，完全保留列结构。

方法2：tidyverse工具包的bind_rows() #

如果你习惯用tidyverse生态，可以用purrr包的bind_rows()，注意它默认返回data.frame，需要转成矩阵的话用as.matrix()：

library(purrr)

# 合并为data.frame再转矩阵
combined_df <- bind_rows(mat_list)
combined_matrix <- as.matrix(combined_df)

为什么unlist()不行？ #

unlist()会把矩阵列表里的所有元素拆成一个扁平向量，直接丢失了原矩阵的行列结构，比如unlist(mat_list)会得到c(1,2,3,4,3,2,3,2,3,2,1,2,3,2,3,2,1,2,3,2,3,2)，这显然不是你想要的结构，所以必须用按行合并的函数来保留列维度。

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