如何将不同长度的数值向量列表转换为单个矩阵

问题场景 #

你有一个包含不同长度数值向量的列表，结构如下：

$ Name 1 : num [1:5] 3 3 4 0 5
$ Name 2 : num [1:4] 3 2 4 0 
$ Name 3 : num [1:7] 3 3 4 0 5 4 4
$ Name 4 : num [1:7] 3 1 4 0 5 5 4

需要将其转换为矩阵，短向量末尾用NA填充，得到如下结构：

解决方案（基础R实现） #

无需额外安装包，用基础R代码即可完成：

1. 定义示例列表（替换为你的实际数据）：

my_list <- list(
  `Name 1` = c(3, 3, 4, 0, 5),
  `Name 2` = c(3, 2, 4, 0),
  `Name 3` = c(3, 3, 4, 0, 5, 4, 4),
  `Name 4` = c(3, 1, 4, 0, 5, 5, 4)
)

2. 计算列表中最长向量的长度：

max_length <- max(sapply(my_list, length))

3. 将每个向量填充到最长长度，不足部分补NA：

filled_list <- lapply(my_list, function(vec) {
  c(vec, rep(NA, max_length - length(vec)))
})

4. 组合填充后的向量为矩阵：

result_matrix <- do.call(cbind, filled_list)

运行后，result_matrix就是目标矩阵，列名对应原列表元素名称，行对应向量位置，短向量末尾自动补NA。

简化版（用purrr包） #

如果习惯tidyverse工具，可借助purrr简化填充步骤：

library(purrr)

# 填充向量
filled_list <- map(my_list, ~c(., rep(NA, max_length - length(.))))
# 组合为矩阵
result_matrix <- do.call(cbind, filled_list)

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