r - 基于变异内匹配正则表达式的条件 str_replace？

Question

对于匹配 regex("[:alpha:]{2}AL") 的“district”列的任何条目，我想用“01”替换“AL”。

例如:

df <- tibble(district = c("NY14", "MT01", "MTAL", "PA10", "KS02", "NDAL", "ND01", "AL02", "AL01"))

我试过:

  df %>% mutate(district=replace(district, 
                          str_detect(district, regex("[:alpha:]{2}AL")), 
                          str_replace(district,"AL","01"))) 

和

  df %>% mutate(district=replace(district, 
                          str_detect(district, regex("[:alpha:]{2}AL")), 
                          paste(str_sub(district, start = 1, end = 2),"01",sep = "")) 

但是有一个矢量化问题。

Answer 1

这样可以吗？

str_replace_all(string=df$district,
                pattern="(\\w{2})AL",
                replacement="\\101")

我用 \\w 替换了正则表达式，一个单词字符:https://www.regular-expressions.info/shorthand.html

我正在使用 \\1 来指示用第一个捕获区域替换字符串，该区域在 (\\w{2}) 中捕获，所以保留前 2 个字母然后添加 01