grepl无法识别括号：如何匹配数据框中带括号的STATUTE字段？

问题场景 #

现有数据框my_data的STATUTE列内容如下：

STATUTE
961.41(1)(A)
961.41(1)(B)
961.41(1)(A)
961.41(1)(A)
961.41(1)(C)

尝试用grepl匹配包含961.41(1)(A)的记录并添加描述，但原代码因括号无法正常工作：

my_data$STATUTE_DESCR[grepl('961.41(1)(A)',my_data$STATUTE, ignore.case = TRUE)] <- "DELIVER/MANUF CONTROLLED SUBSTANCES"

期望输出：

STATUTE           STATUTE_DESCR
961.41(1)(A)      DELIVER/MANUF CONTROLLED SUBSTANCES
961.41(1)(B)
961.41(1)(A)      DELIVER/MANUF CONTROLLED SUBSTANCES
961.41(1)(A)      DELIVER/MANUF CONTROLLED SUBSTANCES
961.41(1)(A)4     DELIVER/MANUF CONTROLLED SUBSTANCES
961.41(1)(A)(B)   DELIVER/MANUF CONTROLLED SUBSTANCES
961.41(1)(C)

原因 #

(和)是正则表达式的特殊字符，用于定义分组逻辑，直接写入匹配字符串会被解析为正则语法，而非字面量内容，导致匹配逻辑出错。

解决方案 #

方法1：启用字面量匹配（推荐） #

给grepl添加fixed=TRUE参数，强制按原始字符串字面量匹配，跳过正则语法解析：

my_data$STATUTE_DESCR[grepl('961.41(1)(A)', my_data$STATUTE, ignore.case = TRUE, fixed = TRUE)] <- "DELIVER/MANUF CONTROLLED SUBSTANCES"

这种方法无需修改匹配字符串，简单直接，适合仅需精确字面匹配的场景。

方法2：转义正则特殊字符 #

如果需要保留正则表达式功能（比如后续扩展匹配规则），可将特殊字符用\\转义，使其被当作字面量处理：

my_data$STATUTE_DESCR[grepl('961\\.41\\(1\\)\\(A\\)', my_data$STATUTE, ignore.case = TRUE)] <- "DELIVER/MANUF CONTROLLED SUBSTANCES"

注：.在正则中代表任意字符，同样需要转义才能匹配字面量的点号。

方法3：tidyverse风格实现 #

如果习惯使用tidyverse工具链，可结合dplyr和stringr实现：

library(dplyr)
library(stringr)

my_data <- my_data %>%
  mutate(STATUTE_DESCR = if_else(
    str_detect(STATUTE, fixed('961.41(1)(A)', ignore_case = TRUE)),
    "DELIVER/MANUF CONTROLLED SUBSTANCES",
    NA_character_
  ))

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