r - 将0插入字符串的中间直到R中的特定长度

Question

我想在字符串的中间添加 0 直到一定长度。

例如

AB1
AB2
AB54

会变成:

AB0001
AB0002
AB0054

谢谢

Answer 1

使用 stringr::str_replace 从字符串中提取数字并使用 sprintf 添加 0 作为前缀。

stringr::str_replace(df$V1, '\\d+', function(m) sprintf('%04s', m))
#[1] "AB0001" "AB0002" "AB0054"

用 str_pad 代替 sprintf 编写相同逻辑的另一种方法。

library(stringr)
str_replace(df$V1, '\\d+', function(m) str_pad(m, 4, pad = '0'))

数据

df <- structure(list(V1 = c("AB1", "AB2", "AB54")), 
      class = "data.frame", row.names = c(NA, -3L))