如何在R数据框指定列的字母S和数字之间添加连字符“-”

原代码问题排查 #

• 正则规则匹配错误：原有正则仅匹配「开头单个小写字母+已存在的短横线+结尾为数字」的字符串，完全不符合需求场景，既没有指定匹配大写字母S的规则，也没有定位「S后紧跟数字」的核心匹配逻辑
• 替换语法错误：R字符串中使用正则反向引用需要双反斜杠转义（即\\1而非\1），且替换规则中额外添加的d属于多余无效内容

正确实现代码 #

核心逻辑是匹配所有大写字母S后紧跟数字的位置，在二者之间插入短横线：

# 构造示例数据框
myDF <- data.frame(
  VariableA = c("TRS34", "MMH22", "GFSR104", "GS23", "RRTM55", "P3", "S4")
)
# 执行替换操作
myDF$VariableA <- gsub(
  pattern = "(S)(\\d)",
  replacement = "\\1-\\2",
  x = myDF$VariableA
)
# 输出结果验证
print(myDF)

执行后输出结果与预期完全一致：

VariableA
1    TRS-34
2     MMH22
3   GFSR104
4     GS-23
5     RRTM55
6        P3
7       S-4

扩展说明 #

如果需要同时匹配大小写的S，可以在gsub中添加ignore.case = TRUE参数即可。

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