R gsub 部分替换通配符

Question

我希望这与之前的帖子有足够不同的相关性，以证明其自己的主题；不幸的是，它们对我没有帮助。我认为我对部分替换的兴趣，加上使用通配符到目前为止是独一无二的，但如果我没有足够仔细地搜索或阅读，请道歉！

假设我有以下字符串：

str <- c("FOO_1", "FOO_2", "BAR_1", "BAR_2")

我想将FOO_1 末尾的1 替换为其他内容，例如A。我试图对两者都这样做

gsub("[^F.*](1)$", "\\_A", str)

和

gsub("^F.*(1)$", "\\_BLAH", str)

但显然它们都没有仅替换1，保持FOO_ 的其余部分不变，同时也没有改变BAR_1。对于这个问题，我有一个愚蠢的解决方案，只涉及一行grep() 和一行gsub()，但如果我决定这样做，我会恨自己。

Answer 1

我只想将变量 starting 替换为 FOO 并将 ending 替换为 1

将FOO 及其后的所有内容捕获到第1 组中，并在字符串末尾匹配_1。然后，在替换模式中，使用对 Group1 值的替换反向引用：

str <- c("FOO_1", "FOO_2", "BAR_1", "BAR_2")
sub("^(FOO.*)_1$", "\\1_A", str)
## => [1] "FOO_A" "FOO_2" "BAR_1" "BAR_2"

见this R demo

如果必须匹配字符串末尾的任何数字量，请将1 替换为\\d+。

详情

• ^ - 字符串开始
• (FOO.*) - FOO 子字符串，然后是任何 0+ 字符，尽可能多
• _1 - _1 子字符串（如果将 1 替换为 \\d+，它将匹配 1 个或多个数字）
• $ - 字符串结束。