在R中如何判断向量A中哪些元素与向量B存在部分匹配？

基础R实现（适配中小数据量） #

直接遍历属名向量A，逐个判断是否在B的任意元素中存在部分匹配：

# 示例数据沿用你提供的结构
A <- c("Cortinarius","Laccaria","Inocybe","Russula")
B <- c("fafsdf_Cortinarius_sdfsdf","sdfsdf_Russula_sdfsdf_fdf","Tomentella_sdfsdf","sdfas_Sebacina","sdfsf_Clavulina_sdfdsf")

# 生成匹配标记：TRUE为存在匹配，FALSE为无匹配
match_mask <- sapply(A, function(genus) any(grepl(genus, B, fixed = TRUE)))

# 提取有匹配的属名
matched_A <- A[match_mask]
# 提取无匹配的属名
unmatched_A <- A[!match_mask]

运行后输出：

• matched_A 结果为 "Cortinarius" "Russula"
• unmatched_A 结果为 "Laccaria" "Inocybe"

高性能实现（适配超长向量场景） #

如果A、B的长度极大，推荐使用stringi包的向量化匹配操作，速度是基础R遍历的数倍到数十倍：

# 安装加载依赖包（首次使用执行）
# install.packages("stringi")
library(stringi)

# 直接批量判断每个属名是否在B的所有字符中存在
match_mask <- stri_detect_fixed(paste(B, collapse = " "), A)

# 同基础R的提取逻辑
matched_A <- A[match_mask]
unmatched_A <- A[!match_mask]

注意事项 #

• 如果属名中包含.、+、*等正则特殊字符，必须使用fixed = TRUE（基础R）或stri_detect_fixed（stringi）的固定匹配模式，避免正则转义导致的匹配错误
• 如果需要大小写不敏感匹配，基础R可在grepl中添加参数ignore.case = TRUE，stringi可在stri_detect_fixed中添加参数case_insensitive = TRUE

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