使用多个分割字符时删除字符串的特定部分

Question

我已经阅读了一些有关删除和拆分字符串的问答，但我没有遇到过通过拆分特定字符(当该字符在字符串中多次使用时)来删除部分的情况。例如，

 V <- c("TUAA_2124_5733", "GAMS_1236_4767")
 V1 <- sapply(strsplit(V, split='_', fixed=TRUE), function(x) (x[2]))
 V1
 V1 [1] "2124" "1236"

此部分删除由下划线分隔的第一部分和最后一部分。

 sapply(strsplit(V, split='_', fixed=TRUE), function(x) (x[2]))

如何保留最后两个部分(2124_5733 和 1236_4767)，并用下划线分隔，同时仅删除第一部分(TUAA 和 GAMS)。

谢谢!

Answer 1

gsub 将使用正确的正则表达式来执行此操作。

gsub("^.*?_", "", V)
[1] "2124_5733" "1236_4767"

这个表达式可以这样理解:

开头的 ^ 表示字符串的开头。
。表示任何字符，.* 表示任何字符的零个或多个实例。但是，默认值是“贪婪匹配”，因此 .* 将匹配直到最后一个 _ 的所有字符。我们想要第一个，所以我们使用 .*? 来抑制贪婪匹配，并且只匹配第一个 _。因此，将所有内容放在一起，^.*?_ 从字符串的开头开始，匹配任意数量的字符，直到并包括第一个 _。这些都被替换为空。