正则表达式用另一组字符

Question

我有一个包含"ABC_EFG_AB_XYZACB_95TH"

格式字符串的向量

我需要删除最后一个_后面的字符串末尾的字符，同时包含最后一个_。我尝试了以下

> gsub('_[^_]*$', '', "ABC_EFG_AB_XYZACB_95TH", fixed=TRUE)
[1] "ABC_EFG_AB_XYZACB_95TH"
> 

传递给gsub的正则表达式，_[^_]*$对我来说没问题 - 它的说法是characters at the end of the string starting with _ followed by any number of characters except _ - 但是正如您在上面看到的那样，效果不佳。我在RegexPlanet http://www.regexplanet.com/advanced/perl/index.html中尝试了此操作（无法找到与R类似的内容），它为_95TH提供了完美匹配。什么是在R中使用的正确的正则表达式代替我上面使用的？还有R的在线正则表达式测试人员吗？此处未列出任何内容 - https://stackoverflow.com/tags/regex/info