如何用单个正则表达式在R中实现匹配并排除指定内容？

先定义测试用的字符串向量：

fruits <- c("apple orange pear", "orange apple", "apple", "pear orange", "apple pear")

直接用带Perl兼容模式的grepl()，配合负向前瞻断言实现需求：

grepl("^(?!.*orange).*apple.*$", fruits, perl = TRUE)

运行后会返回[1] FALSE FALSE TRUE FALSE TRUE，完全符合预期结果。

正则表达式逻辑拆解 #

• ^：锚定字符串开头
• (?!.*orange)：负向前瞻断言，排除任何包含"orange"的字符串（.*匹配任意长度的任意字符，确保不管"orange"在哪个位置都会被检测到）
• .*apple.*：确保字符串中包含"apple"，前后允许有任意字符（也可简化为.*apple，加.*$是为了更严谨地覆盖"apple"在末尾的情况）
• $：锚定字符串结尾
• 必须指定perl = TRUE，因为R默认的正则引擎不支持前瞻断言，开启Perl模式才能生效

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