如何在R中将长度不一的向量列表转换为带NA填充的矩阵

问题说明 #

我有一个R语言的向量列表L，需要将其转换为矩阵M，要求列表中的每个元素作为矩阵的一行，长度不足的位置用NA填充。原始列表与预期矩阵如下：

原始列表L的定义：

L <- list(c(2L, 29L, 30L), c(1L, 3L, 30L, 31L), c(2L, 31L, 32L), 
          c(5L, 60L), c(4L, 6L, 60L, 61L), c(5L, 7L, 61L, 62L))

预期矩阵M：

[,1] [,2] [,3] [,4]
[1,]    2   29   30   NA
[2,]    1    3   30   31
[3,]    2   31   32   NA
[4,]    5   60   NA   NA
[5,]    4    6   60   61
[6,]    5    7   61   62

解决方案 #

方法1：基础R实现（无需额外包）

先计算列表中最长向量的长度，再将每个向量扩展至该长度（不足部分自动填充NA），最后合并为矩阵：

# 获取最长向量的长度
max_length <- max(sapply(L, length))

# 处理每个向量并合并为矩阵
M <- do.call(rbind, lapply(L, function(vec) {
  length(vec) <- max_length
  vec
}))

方法2：使用purrr包简化操作

如果习惯使用tidyverse工具，可以用purrr的map_dfr统一填充NA后转成矩阵：

library(purrr)

# 先转成数据框再转矩阵，自动补NA
M <- as.matrix(map_dfr(L, ~ set_names(.x, paste0("V", seq_along(.x))), .fill = NA))

验证结果 #

运行上述代码后，输出的矩阵M与预期完全一致。

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