已用grep匹配指定正则结果，如何对匹配项添加字符完成替换？

核心思路 #

无需单独用grep定位匹配项位置，直接使用替换函数（Base R的gsub或stringr包的str_replace_all）即可一步完成匹配+替换操作，效率更高。

场景1：替换元素中匹配到的片段（仅包裹正则命中的部分） #

例如元素"1.2abc"只把开头的"1.2"替换为"[[1.2]]"，最终得到"[[1.2]]abc"；元素"§xyz"把开头的"§"替换为"[[§]]"，得到"[[§]]xyz"。

Base R 实现 #

# 示例向量
Vector <- c("1.2abc", "§xyz", "test", "3.4def")

# 执行替换：\\0 代表正则匹配到的完整内容
result <- gsub("^[0-9]\\.[0-9]|^§", "[[\\0]]", Vector)
print(result)
# 输出：[[1.2]]abc [[§]]xyz test [[3.4]]def

注意：R语言中正则的.需要用双反斜杠\\转义，因此原正则需写成"^[0-9]\\.[0-9]|^§"。

Tidyverse 实现（依赖stringr包） #

library(stringr)

Vector <- c("1.2abc", "§xyz", "test", "3.4def")
result <- str_replace_all(Vector, "^[0-9]\\.[0-9]|^§", "[[\\0]]")
print(result)

场景2：替换整个匹配的元素（只要元素符合正则开头条件，就把整个元素包裹成[[...]]） #

例如元素"1.2abc"直接变成"[[1.2abc]]"，"§xyz"变成"[[§xyz]]"，不满足条件的元素保持原样。

Base R 实现 #

Vector <- c("1.2abc", "§xyz", "test", "3.4def")

# 用grepl筛选符合条件的元素，批量替换
match_idx <- grepl("^[0-9]\\.[0-9]|^§", Vector)
Vector[match_idx] <- paste0("[[", Vector[match_idx], "]]")
print(Vector)
# 输出：[[1.2abc]] [[§xyz]] test [[3.4def]]

Tidyverse 实现（依赖dplyr+stringr包） #

library(dplyr)
library(stringr)

Vector <- c("1.2abc", "§xyz", "test", "3.4def")
result <- Vector %>%
  str_replace("^([0-9]\\.[0-9].*|§.*)", "[[\\1]]")
print(result)

这里正则^([0-9]\\.[0-9].*|§.*)匹配整个符合开头条件的元素，用\\1引用完整元素内容，替换为包裹后的格式。

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