如何在R中将combn生成的矩阵列表展平为按列拆分的元素列表？

我正在处理一个由combn函数输出创建的矩阵列表，代码如下：

lapply(2:length(c("A","B","C","D","E")), function(n) combn(c("A","B","C","D","E"), n, simplify = TRUE))

该列表的结构为：

[[1]]
     [,1] [,2] [,3] [,4] [,5] [,6] [,7] [,8] [,9] [,10]
[1,] "A"  "A"  "A"  "A"  "B"  "B"  "B"  "C"  "C"  "D"  
[2,] "B"  "C"  "D"  "E"  "C"  "D"  "E"  "D"  "E"  "E"  

[[2]]
     [,1] [,2] [,3] [,4] [,5] [,6] [,7] [,8] [,9] [,10]
[1,] "A"  "A"  "A"  "A"  "A"  "A"  "B"  "B"  "B"  "C"  
[2,] "B"  "B"  "B"  "C"  "C"  "D"  "C"  "C"  "D"  "D"  
[3,] "C"  "D"  "E"  "D"  "E"  "E"  "D"  "E"  "E"  "E"  

[[3]]
     [,1] [,2] [,3] [,4] [,5]
[1,] "A"  "A"  "A"  "A"  "B" 
[2,] "B"  "B"  "B"  "C"  "C" 
[3,] "C"  "C"  "D"  "D"  "D" 
[4,] "D"  "E"  "E"  "E"  "E" 

[[4]]
     [,1]
[1,] "A" 
[2,] "B" 
[3,] "C" 
[4,] "D" 
[5,] "E" 

我希望将此列表展平，把内部矩阵按列重塑，最终得到含26个元素的列表，每个元素对应原矩阵的一列，样式如下：

[[1]]
"A" "B"

[[2]]
"A" "C"

[[3]]
"A" "D"

[[4]]
"A" "E"

[[5]]
"B" "C"

[[6]]
"B" "D"

[[7]]
"B" "E"
.
.
.

[[21]]
"A" "B" "C" "D"

[[22]]
"A" "B" "C" "E"

[[23]]
"A" "B" "D" "E"

[[24]]
"A" "C" "D" "E"

[[25]]
"B" "C" "D" "E"

[[26]]
"A" "B" "C" "D" "E"

请问该如何实现？

解决方案 #

方法1：基础R原生实现 #

通过嵌套lapply遍历矩阵、转换列结构，再用unlist合并结果：

# 先定义原列表
original_list <- lapply(2:length(c("A","B","C","D","E")), function(n) combn(c("A","B","C","D","E"), n, simplify = TRUE))

# 展平处理
flattened_list <- unlist(lapply(original_list, function(mat) as.list(data.frame(mat))), recursive = FALSE)

• as.list(data.frame(mat))：将矩阵的每一列转换为独立的列表元素
• unlist(..., recursive = FALSE)：合并子列表为一个大列表，同时保留每个元素的向量结构

方法2：使用purrr包简化代码 #

如果熟悉tidyverse工具链，用purrr的函数可以让代码更简洁：

library(purrr)

original_list <- lapply(2:length(c("A","B","C","D","E")), function(n) combn(c("A","B","C","D","E"), n, simplify = TRUE))

flattened_list <- original_list %>%
  map(~ as.list(data.frame(.x))) %>%
  flatten()

结果验证 #

执行length(flattened_list)可确认结果包含26个元素；用head(flattened_list)、tail(flattened_list)可快速检查前后元素是否符合预期。

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