用regex替换gsub

Question

我想用"s“替换为”s_“，但前提是它有多个字母。

e.g

如果输入是"john_s_fingerprinting"，则输出应该是“john‘s_ should”。但是如果输入是"j_s_fingerprinting“，那么它不应该改变。

我试着用regex严格地匹配多个字母标准，但与替换regex有问题。这是我到目前为止所拥有的

gsub("[a-z]{2,}_s_", "[a-z]{2,}'s_", "john_s_fingerprinting")

替换的"[a-z]{2,}'s_"没有给我正确的输出

Answer 1

我们可能需要作为组捕获并用捕获组的反向引用(\\1)替换

gsub("([A-Za-z]{2,})_s", "\\1's", str1)

-output

[1] "john's_fingerprinting" "j_s_fingerprinting" 

或者另一个选择是regex查找

gsub("(?<=[A-Za-z]{2})_s", "'s", str1, perl = TRUE)
[1] "john's_fingerprinting" "j_s_fingerprinting"   

数据

str1 <- c("john_s_fingerprinting", "j_s_fingerprinting")