R语言：匹配含特殊字符的目标字符串时遇错误的解决方法

括号()是正则表达式的特殊元字符，用于定义分组逻辑。直接将含括号的关键词拼接成正则模式时，正则引擎会把括号当作语法解析，而非匹配字面的括号字符，导致匹配失效或报错。

方案1：使用固定字符串匹配（推荐，简单直接） #

用stringr::fixed()将匹配模式标记为固定字符串，忽略所有正则元字符，直接匹配字面内容：

library(tidyverse)

list_of_words = c("TTR", "(Q)uality of  life", "RECIST","(Q)2-of-scale(4)") 

new_df = df %>% 
  mutate(found = str_extract_all(description, fixed(paste(list_of_words, collapse = "|")))) %>% 
  unnest(found, keep_empty = TRUE)

方案2：转义正则特殊字符（适合需保留正则功能的场景） #

如果需要保留正则的其他特性（如大小写不敏感），先对每个关键词中的正则特殊字符进行转义，再拼接成模式：

方法A：手动转义（兼容所有R版本）

# 转义所有正则特殊字符：()[]{}.*+?^$|\
escaped_words = str_replace_all(list_of_words, "([\\(\\)\\[\\]\\{\\}\\.\\*\\+\\?\\^\\$\\|\\\\])", "\\\\\\1")

new_df = df %>% 
  mutate(found = str_extract_all(description, paste(escaped_words, collapse = "|"))) %>% 
  unnest(found, keep_empty = TRUE)

方法B：用内置函数转义（R 4.3.0+支持）

R 4.3.0及以上版本提供了escapeRegex()函数，可一键转义正则特殊字符：

escaped_words = escapeRegex(list_of_words)

new_df = df %>% 
  mutate(found = str_extract_all(description, paste(escaped_words, collapse = "|"))) %>% 
  unnest(found, keep_empty = TRUE)

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