如何用正则表达式在字母与指定数字间插入下划线并保留原字符？

这个问题其实是正则表达式里捕获组的典型应用场景，我来给你一步步解决：

核心解决方案 #

用stringr包的str_replace_all()结合正则捕获组，就能精准实现你要的效果——只在「大写字母（A-Z）」和「2-5之间的数字」的直接配对中插入下划线，其他组合保持不变。

library(stringr)

old <- c("B0", "B1", "B2", "B3", "BA4")
new <- str_replace_all(old, "([A-Z])([2-5])", "\\1_\\2")

print(new)
# 输出结果: [1] "B0"   "B1"   "B_2"  "B_3"  "BA4"

代码细节解释 #

• 正则表达式([A-Z])([2-5])：
  • ([A-Z])：第一个捕获组，匹配任意单个大写字母，把这个字母暂存起来
  • ([2-5])：第二个捕获组，匹配2、3、4、5中的任意一个数字，同样暂存
• 替换字符串\\1_\\2：
  • \\1：调用第一个捕获组的内容（也就是原来的大写字母）
  • _：插入我们需要的下划线
  • \\2：调用第二个捕获组的内容（也就是原来的2-5数字）

这种写法的好处是，只会修改符合规则的配对，像B0、B1（数字不在2-5范围内）、BA4（字母和数字不是直接紧跟的）这类情况都会原封不动保留。

拓展适配 #

如果需要同时匹配小写字母，有两种调整方式：

1. 修改正则匹配大小写：

str_replace_all(old, "([A-Za-z])([2-5])", "\\1_\\2")

2. 开启忽略大小写参数：

str_replace_all(old, "([A-Z])([2-5])", "\\1_\\2", ignore.case = TRUE)

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