在R中如何仅删除符合指定匹配规则的字符串末尾两个字符

问题核心原因 #

你当前使用的gsub('.{2}$', '', cleantable2)会无差别删除末尾两位，是因为正则.{2}$匹配的是任意两个末尾字符，没有加你需要的匹配规则限制。

正确实现代码 #

直接修改正则匹配规则即可，仅匹配末尾为空格+D/空格+E的情况：

cleantable3 = gsub(' [DE]$', '', cleantable2)

正则说明 #

• 模式开头的空格匹配末尾前一位的固定空格
• [DE] 匹配D或E任意一个字符
• $ 锚定匹配位置在字符串末尾，只有末尾两个字符完全符合规则才会触发替换

效果测试示例 #

你可以用下面的代码验证效果：

test_str <- c("示例文本 D", "测试内容 E", "正常文本 F", "短文本")
result <- gsub(' [DE]$', '', test_str)

运行后result的输出为：

• "示例文本"
• "测试内容"
• "正常文本 F"
• "短文本"

扩展说明 #

如果需要同时匹配小写的d/e，可添加ignore.case = TRUE参数：

cleantable3 = gsub(' [DE]$', '', cleantable2, ignore.case = TRUE)

内容的提问来源于stack exchange，提问作者Max H.