R语言是否存在可自动优先精确匹配、无匹配时转部分匹配的现成函数

关于现成内置函数的说明 #

• 目前基础R及主流知名字符串处理包（如stringr、stringi）中，不存在完全匹配目标逻辑的预定义函数
• 现有相关函数的能力边界：
  • match()：仅做全向量的精确匹配，无部分匹配的降级逻辑
  • grep()/grepl()/str_which()：仅做正则/固定模式的部分匹配，无精确匹配的优先级分支
  • 所有现有函数都没有内置「先查精确匹配、找不到再查部分匹配」的两级判断逻辑
• 由于整套逻辑仅涉及两级简单判断，即便用第三方包的函数组合实现，也不会比基础R的精简代码更高效，反而会增加不必要的依赖成本。

更简洁的实现方式 #

完全不需要保留原有的if-else分支结构，可以通过索引按优先级拼接、自动过滤空值的方式压缩代码，逻辑更简洁且和原需求完全兼容：

data <- c("a", "a b", "c d e", "c d")
# R 4.1.0及以上版本可使用原生管道的写法
my_match <- function(data, pattern) {
  c(which(pattern == data)[1], grep(pattern, data)[1]) |> 
    na.omit() |> 
    head(1)
}

# 低版本R兼容的精简写法（无管道依赖）
my_match_old <- function(data, pattern) {
  head(na.omit(c(which(pattern == data)[1], grep(pattern, data)[1])), 1)
}

实现逻辑说明 #

• 按优先级顺序依次生成两类匹配的首个位置：先放精确匹配的首个索引，再放部分匹配的首个索引
• 通过na.omit()自动删除两类匹配不存在时返回的空值
• 取第一个有效位置返回，和原自定义函数的行为完全一致
• 如果需要调整部分匹配的规则（如关闭正则匹配、指定匹配边界），直接在grep()函数内补充对应参数即可，不影响整体精简结构

测试验证 #

所有给定测试用例的返回结果均和预期完全匹配：

• my_match(data, "b") 返回2
• my_match(data, "a") 返回1
• my_match(data, "a b") 返回2
• my_match(data, "c") 返回3
• my_match(data, "e") 返回3
• my_match(data, "c d") 返回4

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