如何在R语言嵌套列表中查找特定字符对应的外层索引

核心实现逻辑 #

通过遍历外层列表的每一个子元素，单独判断目标值是否存在于当前子元素中，再提取匹配成功的位置编号，全程不会修改原始列表的索引顺序，完美避开unlist修改索引、直接用%in%仅支持长度为1的子列表的问题。

基础R实现（无需加载第三方包） #

# 将此处gene_list替换为你自己的嵌套列表变量即可
target_gene <- "FAP87"
# 遍历每个子元素判断是否包含目标基因，提取匹配成功的外层索引
match_index <- which(sapply(gene_list, function(sub_item) target_gene %in% sub_item))

# 输出结果
print(match_index)

针对你的示例数据运行后输出结果为994，和预期目标索引完全一致。

简洁写法（purrr包用户可选） #

如果你习惯使用tidyverse生态工具，可以用purrr::map_lgl简化遍历代码：

library(purrr)
target_gene <- "FAP87"
match_index <- which(map_lgl(gene_list, ~ target_gene %in% .x))

特殊情况说明 #

• 如果有多个外层子元素包含目标基因，返回结果会是所有符合条件的索引组成的整数向量
• 如果没有匹配到任何结果，返回空的整数向量，不会抛出异常

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