R语言使用gsub替换含_12的字符串为12失效如何解决

原有代码出错原因 #

• R字符串转义规则冲突：R中字符串内的单个反斜杠会被优先作为字符串转义符处理，要给正则引擎传递\b \w这类元字符，需要写成双重反斜杠\\b \\w，原有写法的正则规则首先就无法被正确识别。
• 匹配边界规则错误：\b是单词边界，_不属于单词字符，_12和前缀字符的连接处不满足单词边界规则，无法匹配到_12前面的内容。
• 规则覆盖不全：原有正则要求_12后面必须跟随下划线和单词字符，覆盖不了_12TR（12后无下划线）、ZT_12_（12后无后续字符）这类场景，导致大量目标内容匹配失败。

正确实现代码 #

首先定义原始向量：

vec <- c("RT_12_ SDB", "ZT_12_", "_12TR", "RE_12_TR")

执行替换操作：

# \\S匹配所有非空白字符，规则为：匹配所有包含_12的非空白连续子串，统一替换为12
vec <- gsub("\\S*_12\\S*", "12", vec)

输出验证结果：

print(vec)
# 输出结果：
# [1] "12 SDB" "12"     "12"     "12"

完全符合预期输出要求。

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