R中匹配(acetyl)模式并将其后首个字母包裹入括号的实现方法

直接使用gsub的正则捕获分组功能即可实现需求，核心是匹配目标模式的同时捕获后续第一个字母，替换时直接给捕获的字母加括号即可，完整代码如下：

# 示例数据
a <- c('(acetyl)RKJOEQLKQ', 'LDFEION(acetyl)EFNEOW')
# 执行替换
b <- gsub(pattern = "\\(acetyl\\)([A-Za-z])", replacement = "(\\1)", x = a)
# 输出验证
print(b)
# 输出结果：
# [1] "(R)KJOEQLKQ"      "LDFEION(E)FNEOW"

代码说明 #

• 正则模式里的\\(和\\)是对括号的转义，用来匹配字面意义的(和)，避免被正则识别为捕获组标识符
• ([A-Za-z])是捕获组，会捕获(acetyl)后面紧跟的第一个英文字母，如果你需要匹配任意字符可以把[A-Za-z]换成.
• 替换参数里的\\1指代前面捕获到的第一个分组内容，外层加括号就实现了把后续第一个字母包裹的需求
• 如果是处理数据框的某一列，直接把参数x的取值换成对应列即可，例如：df$target_col <- gsub("\\(acetyl\\)([A-Za-z])", "(\\1)", df$target_col)

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