在R语言中实现两个列表对应元素的嵌套组合

现有两个R列表l1和l2，示例结构如下：

l1 <- list(c("bike1","bike2","bike3"), c("bike4","bike5"))
l2 <- list(c("car1,car2"), c("car3","car4","car5"))

需要生成第三个列表l3，要求l3的每个元素是一个嵌套列表，包含l1和l2对应位置的元素，且这两个元素保持独立数组的形式。实际应用场景中，l1和l2各包含20个元素。

解决方案 #

方法1：使用基础R的mapply函数

mapply可按位置遍历两个列表的元素，将每一对元素包装成子列表，适合处理大量元素（如20个）的场景：

# 按对应位置配对生成嵌套列表
l3 <- mapply(function(x, y) list(x, y), l1, l2, SIMPLIFY = FALSE)

# 查看结果
print(l3)

运行后输出与预期一致：

[[1]]
[[1]][[1]]
[1] "bike1" "bike2" "bike3"

[[1]][[2]]
[1] "car1,car2"


[[2]]
[[2]][[1]]
[1] "bike4" "bike5"

[[2]][[2]]
[1] "car3" "car4" "car5"

参数SIMPLIFY = FALSE是关键，它确保结果保持嵌套列表结构，不会被自动简化为矩阵或其他类型。

方法2：使用purrr包的map2函数（tidyverse风格）

若习惯tidyverse生态的语法，可通过purrr包的map2函数实现相同效果：

library(purrr)

l3 <- map2(l1, l2, ~list(.x, .y))

写法更简洁，逻辑与mapply一致，同样适合处理20个元素的列表。

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