R语言：匹配正则模式替换tibble中字符串的问题

你的问题出在替换字符串里直接使用了正则模式，而没有引用匹配到的实际内容。要实现需求，需要用捕获分组来保留中间的字母数字部分，再替换前后的.为_。

正确代码 #

library(tidyverse)

string <- tibble(METRIC = c('Eagle.PCT.Dominant', 'Eagle.PCT2.Dominant'))

string %>%
  mutate(newMETRIC = str_replace_all(METRIC, '\\.([A-Za-z0-9]+)\\.', '_\\1_'))

代码说明 #

• 正则模式\\.([A-Za-z0-9]+)\\.：用括号()把中间的字母数字序列括起来，作为第1个捕获分组
• 替换字符串_\\1_：\\1代表引用第1个捕获分组匹配到的内容，这样就会把.PCT.替换成_PCT_，.PCT2.替换成_PCT2_

运行结果 #

处理后的tibble会得到：

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