如何在R中根据条目名称提取嵌套列表中对应的元素？

先看你的嵌套列表示例：

Example_List = list(Object=list(list(name="A",value=0.1),list(name="B",value=0.5),list(name="C",value=2)))

要根据name提取对应的value，不用反复套lapply找索引，有几种更简洁的方法：

方法1：基础R用Filter直接筛选 #

直接过滤出匹配目标名称的子列表，再取value：

target_name <- "B"
result <- Filter(function(x) x$name == target_name, Example_List$Object)[[1]]$value
# 输出：0.5

方法2：基础R用sapply生成名称向量后索引 #

先把所有name提取成向量，再用逻辑定位目标位置：

target_name <- "B"
name_list <- sapply(Example_List$Object, `[[`, "name")
result <- Example_List$Object[[which(name_list == target_name)]]$value
# 输出：0.5

方法3：用tidyverse的purrr包（更直观） #

如果平时习惯用tidyverse生态，purrr的函数组合写起来更流畅：

library(purrr)
target_name <- "B"

# 方式一：筛选后提取
result <- Example_List$Object %>%
  keep(~ .x$name == target_name) %>%
  pluck(1, "value")

# 方式二：遍历匹配取值
result <- Example_List$Object %>%
  map_dbl(~ if(.x$name == target_name) .x$value else NA) %>%
  na.omit() %>%
  as.numeric()

方法4：转成数据框（适合多次查询场景） #

如果需要频繁按名称查询值，先把嵌套列表转成数据框，后续操作就跟普通数据处理一样简单：

# 转成数据框
df <- do.call(rbind, lapply(Example_List$Object, as.data.frame))
# 结果：
#   name value
# 1    A   0.1
# 2    B   0.5
# 3    C   2.0

# 提取目标值
target_name <- "B"
result <- df$value[df$name == target_name]

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