如何在非完全字符串匹配的情况下访问并提取列表元素

看起来你手里有个带结构化键名的超大列表（10万+元素可真不小），不想每次都敲完整的键名来提取元素对吧？我给你几个R里实用的方法，都是处理这种场景的常用操作：

方法1：用基础包的grep()做部分匹配 #

这是最基础也最高效的方式，直接用grep()定位符合匹配规则的键名，再提取对应元素：
比如你要找所有键名里包含Carl的元素：

# 先匹配出符合条件的键名（value=TRUE直接返回键名，不用索引）
matching_keys <- grep("Carl", names(db), value = TRUE)
# 提取对应的列表元素
extracted_elements <- db[matching_keys]

如果只需要第一个匹配到的元素，直接取matching_keys[1]就行：

first_match <- db[matching_keys[1]]

方法2：用stringr包的str_detect()（tidyverse风格） #

如果你平时习惯用tidyverse工具链，stringr的str_detect()写法更直观，可读性拉满：

library(stringr)
# 筛选键名包含`Normasnow_Human`的元素
extracted <- db[str_detect(names(db), "Normasnow_Human")]

方法3：用正则表达式精准匹配结构 #

你的键名看起来是tr|xxx|yyy的固定格式，用正则可以精准匹配某一部分，比如要找所有以tr|Carl|开头的键（避免误匹配其他带Carl的无关键名）：

# 注意正则里的|是特殊字符，要加双反斜杠转义
matching_keys <- grep("^tr\\|Carl\\|", names(db), value = TRUE)
extracted <- db[matching_keys]

要是想同时匹配多个条件，比如包含Carl或者Normasnow，直接用|把关键词连起来就行：

matching_keys <- grep("Carl|Normasnow", names(db), value = TRUE)

小提示：针对超大列表的效率优化 #

因为你的列表有10万+元素，这些方法都是向量级别的操作，比循环遍历快太多，完全不用担心性能问题。要是你还需要对提取后的元素做批量处理，直接在提取结果上操作就行。

备注：内容来源于stack exchange，提问作者Shaxi Liver