如何在R的stringr中正确使用正则，并提取指定模式下的字符

嘿，我来帮你搞定这两个关于R语言stringr包和正则表达式的问题，一步步拆解给你看！

stringr是tidyverse生态里处理字符串的利器，它的函数大多以str_开头，配合正则用起来特别顺手。这里给你几个核心要点和实用例子：

• 区分字面匹配与正则匹配：
  • 如果要匹配字面的特殊字符（比如括号、星号），不用写转义符，直接用fixed()包裹，比如str_detect(text, fixed("(abc)"))会精准匹配带括号的字符串。
  • 用regex()可以设置额外规则，比如忽略大小写regex("abc", ignore_case = TRUE)，或者多行匹配regex("^start", multiline = TRUE)。
• 常用函数搭配正则的场景：
  • 检测是否存在匹配：str_detect()，比如str_detect(c("cat", "dog", "cattle"), "cat")会返回TRUE, FALSE, TRUE。
  • 提取匹配内容：str_extract()提取第一个匹配项，str_extract_all()提取所有匹配项；如果要提取特定分段，用str_match()配合捕获组（就是正则里的()）。
  • 替换匹配内容：str_replace()替换第一个匹配，str_replace_all()替换所有匹配，比如str_replace_all("a1b2c3", "\\d", "X")会把所有数字换成X。
• 正则基础语法提醒：
  • \\w匹配字母/数字/下划线，\\d匹配数字，.匹配任意单个字符，^匹配字符串开头，$匹配字符串结尾，+表示匹配前面的内容至少一次。

你提到的从I(pmax(0, hp - 100))里提取hp和100到新列的需求，我来补全示例代码并详细说明：

首先完成模型拟合和结果整理的完整代码：

library(tidyverse)
library(broom)
library(stringr)

# 导入并整理数据
mtcars1 <- as_tibble(mtcars)
mtcars1$cyl <- as.factor(mtcars1$cyl)

# 运行模型并生成模型汇总表
model <- glm(mpg ~ cyl + hp + I(pmax(0, hp - 100)), data = mtcars1)
model_tidy <- tidy(model)

现在model_tidy的term列里有一行是I(pmax(0, hp - 100))，我们用正则捕获组来提取目标内容：

# 用str_match捕获两个目标部分，正则里的()是捕获组，会单独返回匹配结果
extracted_result <- str_match(model_tidy$term, "I\\(pmax\\(0, (\\w+) - (\\d+)\\)\\)")

# 把捕获的结果添加为新列
model_tidy <- model_tidy %>%
  mutate(
    variable = ifelse(!is.na(extracted_result[,2]), extracted_result[,2], NA),
    threshold = ifelse(!is.na(extracted_result[,3]), as.numeric(extracted_result[,3]), NA)
  )

解释一下这个正则I\\(pmax\\(0, (\\w+) - (\\d+)\\)\\)：

• I\\(：匹配字面的I(，因为括号在正则里是特殊字符，所以要加转义符\\
• pmax\\(0, ：精准匹配pmax(0, 这部分固定内容
• (\\w+)：第一个捕获组，匹配一个或多个字母/数字（这里就是我们要的hp）
• -：匹配字面的空格-空格
• (\\d+)：第二个捕获组，匹配一个或多个数字（这里就是我们要的100）
• \\)\\)：匹配结尾的两个括号，同样需要转义

运行后，model_tidy就会新增variable和threshold两列，对应提取出来的hp和100，不匹配这个模式的行会填充NA，完全符合你的需求。

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