R语言使用列表向量为另一列表对应向量做索引的实现方法

普通一维列表处理 #

针对你最初的两个一维列表需求，可直接使用基础R的mapply函数或purrr包的map2函数实现按位置配对处理：

基础R实现 #

# SIMPLIFY = FALSE 保证输出结果为列表格式
result_list <- mapply(function(x, y) x[y], List1, List2, SIMPLIFY = FALSE)

purrr包实现（代码更简洁） #

library(purrr)
result_list <- map2(List1, List2, ~.x[.y])

三层嵌套超级列表处理 #

针对调整后的三层嵌套列表，可使用嵌套遍历或递归函数实现全结构批量处理：

嵌套map2实现（结构清晰，适合固定层级场景） #

library(purrr)
# 逐层遍历对应位置的元素执行索引操作
super_result <- map2(superlist1, superlist2, 
                     ~map2(.x, .y, 
                           ~map2(.x, .y, ~.x[.y])))

递归函数实现（适配任意层级嵌套，无需加载第三方包） #

如果不想依赖第三方包，或者后续嵌套层级可能调整，可以用通用递归函数处理：

# 定义通用嵌套处理函数
process_nested <- function(x, y) {
  # 当输入为向量时执行索引操作，否则继续递归遍历子元素
  if (is.vector(x) && is.vector(y)) {
    return(x[y])
  }
  return(mapply(process_nested, x, y, SIMPLIFY = FALSE))
}

# 直接调用函数处理超级列表
super_result <- process_nested(superlist1, superlist2)

结果验证 #

可通过以下代码验证处理结果是否符合预期：

identical(
  super_result[[1]][[1]][[1]],
  superlist1[[1]][[1]][[1]][superlist2[[1]][[1]][[1]]]
)
# 输出为TRUE说明处理结果正确

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