Замените все перед числами, используя str_replace_all

Question

Я хочу использовать str_replace_all для замены подстановки перед числом в строке.

Мой код ниже не работает

require("stringr")
county <- c("ctr27", "sb03", "nst08", "nst25", "st15",  "st26")
str_replace_all(county, "nst[^0-9.]|st[^0-9.]", "ami")

Ожидаемый результат

"ctr27" "sb03" "ami08" "ami25" "ami15"  "ami26"

Answer 1

Поскольку в примере показан один случай замены, мы также можем использовать str_replace. Кроме того, мы можем захватить цифры как группу и заменить на обратную ссылку

str_replace(county, "nst|st(\\d+)", "ami\\1")
#[1] "ctr27" "sb03"  "ami08" "ami25" "ami15" "ami26"

Answer 2

Этого можно достичь, используя позитивный взгляд :

str_replace_all(county, "nst|st(?=\\d+)", "ami")
# [1] "ctr27" "sb03"  "ami08" "ami25" "ami15" "ami26"