R语言实现列表内各向量元素两两组合生成汇总列表

基础R实现（无需安装额外包） #

你的示例输入数据如下：

list_v <- list(c(1,2,3,4,5,6),c(7,8,9),c(77,88,99,100))

直接运行以下代码即可得到目标结果：

list_v_n <- unlist(lapply(list_v, function(vec) {
  combn(vec, m = 2, simplify = FALSE)
}), recursive = FALSE)

代码说明：

• combn(vec, m = 2) 用于生成向量vec的所有2元素不重复无序组合，和你需要的组合规则完全匹配
• simplify = FALSE 要求combn直接返回列表格式的组合结果，每个元素是长度为2的向量
• 外层unlist设置recursive = FALSE，仅把多层嵌套的列表压平为一层，不会拆分每个长度为2的向量元素

tidyverse/purrr实现（语法更简洁） #

如果你习惯使用tidyverse生态的工具，可借助purrr包实现：

library(purrr)

list_v_n <- list_v |> 
  map(~ combn(.x, 2, simplify = FALSE)) |> 
  flatten()

代码说明：

• map 等价于基础R的lapply，遍历列表内每个向量生成组合列表
• flatten 直接将嵌套列表压平为一层，效果和unlist(recursive = FALSE)一致

运行完两种方案的任意一种，得到的list_v_n和你给出的预期结果完全一致，可通过identical()函数验证结果正确性。

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