使用％in％运算符在R中进行部分字符串匹配？

Question

我很想知道是否可以使用R中的％in％运算符进行部分字符串匹配。我知道有很多方法可以使用stringr等来查找部分字符串匹配，但是我当前的代码使用起来更容易％in％运算符。

例如，假设此向量：

x <- c("Withdrawn", "withdrawn", "5-Withdrawn", "2-WITHDRAWN", "withdrawnn")

我希望每个都是TRUE，因为字符串包含“ Withdrawn”，但是只有第一个是TRUE：

x %in% c("Withdrawn")
[1]  TRUE FALSE FALSE FALSE FALSE

我尝试使用正则表达式至少使它不区分大小写，但这使所有内容都不正确：

x %in% c("(?i)Withdrawn")
[1] FALSE FALSE FALSE FALSE FALSE

因此，是否可以使用％in％运算符（可能带有包装器）在所有这些元素上得出TRUE？ 因为它很容易tolower的（）或TOUPPER（），我并不关心大小写区分使用; 但是，对我来说重要的是，代码将触发“撤回”，“撤回”和“ 5撤回”。

编辑：该问题被标记为该问题的重复项； R中列表的大小写不敏感搜索 ； 但是，它有所不同，因为它询问是否可以使用％in％运算符来匹配部分字符串。 链接的问题根本不使用％in％运算符。

Answer 1

%in%不支持此功能：它是match函数的包装器，它使用相等比较建立匹配，而不是正则表达式匹配。 但是，您可以实现自己的：

`%rin%` = function (pattern, list) {
     vapply(pattern, function (p) any(grepl(p, list)), logical(1L), USE.NAMES = FALSE)
}

可以像%in%这样使用：

〉'^foo.*' %rin% c('foo', 'foobar')
[1] TRUE

请注意，结果与您对grepl期望的工作要求有所不同：模式匹配是不对称的 ，您不能互换左右两侧。 如果只想将列表与单个正则表达式匹配， grepl直接使用grepl ：

〉grepl("(?i)Withdrawn", x)
[1] TRUE TRUE TRUE TRUE TRUE

或者，如果您更喜欢使用运算符：

`%matches%` = grepl

〉"(?i)Withdrawn" %matches% x
[1] TRUE TRUE TRUE TRUE TRUE