如何在 R 中使用 stringr 將一位數字替換為兩位數字

Question

我想用 s01_、 s02_ 、 s09_和s10_替換列 x s1_ 、 s2_ 、 s9_和s10_的s01_ 。 我可以很容易地針對每種情況（例如s1_ ）做到這一點，但不是針對所有情況（我的正則表達式知識很短）。 我怎樣才能在不重復自己的情況下完成所有這些替換？

library(tidyverse)

df <- tibble( x = c('s1_', 's2_', 's9_', 's10_'))

pattern <- 's1_'  
replacement <-  's01_'  
stringr::str_replace(df$x, pattern, replacement)      
#> [1] "s01_" "s2_"  "s9_"  "s10_"
Created on 2020-11-12 by the reprex package (v0.3.0)

Answer 1

gsubfn的選項

library(gsubfn)
df$x <- gsubfn("(\\d+)", ~sprintf('%02d', as.numeric(x)), df$x)

---

類似於gsubfn ， str_replace替換可以采用 function

library(stringr)
str_replace(df$x, "\\d+", function(x) sprintf('%02d', as.numeric(x)))
#[1] "s01_" "s02_" "s09_" "s10_"

---

或dplyr

library(dplyr)
df %>%
    mutate(x = str_replace(x, "\\d+", 
          purrr::as_mapper(~ sprintf('%02d', as.numeric(.x)))))