如何添加前导零？

简短版本：使用 formatC 或 sprintf。

更长的版本：

有几个函数可用于格式化数字，包括添加前导零。哪个最好取决于您想要执行的其他格式。

问题中的示例非常简单，因为所有值的开头位数都相同，所以让我们尝试一个更难的示例，也可以将 10 的幂设为 8。

anim <- 25499:25504
x <- 10 ^ (0:5)

paste（以及它的变体 paste0）通常是您遇到的第一个字符串操作函数。它们并不是真正为操纵数字而设计的，但它们可以用于此目的。在我们总是必须在前面加上一个零的简单情况下，paste0 是最好的解决方案。

paste0("0", anim)
## [1] "025499" "025500" "025501" "025502" "025503" "025504"

对于数字中位数可变的情况，您必须手动计算要添加多少个零，这太可怕了，您应该出于病态的好奇心才这样做。

stringr 中的 str_pad 与 paste 的工作方式类似，更明确地表明您想要填充内容。

library(stringr)
str_pad(anim, 6, pad = "0")
## [1] "025499" "025500" "025501" "025502" "025503" "025504"

同样，它并不是真正为数字使用而设计的，因此更难的情况需要稍微考虑一下。我们应该只能说“用零填充到宽度 8”，但看看这个输出：

str_pad(x, 8, pad = "0")
## [1] "00000001" "00000010" "00000100" "00001000" "00010000" "0001e+05"

您需要设置科学罚分 option，以便始终使用固定记数法（而不是科学记数法）对数字进行格式化。

library(withr)
with_options(
  c(scipen = 999), 
  str_pad(x, 8, pad = "0")
)
## [1] "00000001" "00000010" "00000100" "00001000" "00010000" "00100000"

stringi 中的 stri_pad 与 stringr 中的 str_pad 完全相同。

formatC 是 C 函数 printf 的接口。使用它需要对该底层功能的奥秘有一些了解（见链接）。在这种情况下，重要的点是 width 参数，format 是 "d" 用于“整数”，而 "0" flag 用于前置零。

formatC(anim, width = 6, format = "d", flag = "0")
## [1] "025499" "025500" "025501" "025502" "025503" "025504"
formatC(x, width = 8, format = "d", flag = "0")
## [1] "00000001" "00000010" "00000100" "00001000" "00010000" "00100000"

这是我最喜欢的解决方案，因为它很容易修改宽度，并且该功能足够强大，可以进行其他格式更改。

sprintf 是同名 C 函数的接口；与 formatC 类似，但语法不同。

sprintf("%06d", anim)
## [1] "025499" "025500" "025501" "025502" "025503" "025504"
sprintf("%08d", x)
## [1] "00000001" "00000010" "00000100" "00001000" "00010000" "00100000"

sprintf 的主要优点是您可以将格式化的数字嵌入到较长的文本中。

sprintf(
  "Animal ID %06d was a %s.", 
  anim, 
  sample(c("lion", "tiger"), length(anim), replace = TRUE)
)
## [1] "Animal ID 025499 was a tiger." "Animal ID 025500 was a tiger."
## [3] "Animal ID 025501 was a lion."  "Animal ID 025502 was a tiger."
## [5] "Animal ID 025503 was a tiger." "Animal ID 025504 was a lion." 

另见goodside's answer。

为了完整起见，值得一提的是其他偶尔有用的格式化函数，但没有添加零的方法。

format，一个用于格式化任何类型对象的通用函数，带有一个数字方法。它的工作方式有点像 formatC，但有另一个界面。

prettyNum 是另一个格式化函数，主要用于创建手动轴刻度标签。它特别适用于范围广泛的数字。

scales 包具有多个函数，例如用于专业格式类型的 percent、date_format 和 dollar。

---

对于无论 data$anim 中有多少位都有效的通用解决方案，请使用 sprintf 函数。它是这样工作的：

sprintf("%04d", 1)
# [1] "0001"
sprintf("%04d", 104)
# [1] "0104"
sprintf("%010d", 104)
# [1] "0000000104"

在您的情况下，您可能想要：data$anim <- sprintf("%06d", data$anim)

---

扩展@goodside 的回复：

在某些情况下，您可能希望用零填充字符串（例如，fips 代码或其他类似数字的因素）。在 OSX/Linux 中：

> sprintf("%05s", "104")
[1] "00104"

但是因为 sprintf() 调用操作系统的 C sprintf() 命令，讨论过 here，在 Windows 7 中您会得到不同的结果：

> sprintf("%05s", "104")
[1] "  104"

因此，在 Windows 机器上，解决方法是：

> sprintf("%05d", as.numeric("104"))
[1] "00104"

---

stringr 包中的 str_pad 是一种替代方法。

anim = 25499:25504
str_pad(anim, width=6, pad="0")

---

这是一个可推广的基本 R 函数：

pad_left <- function(x, len = 1 + max(nchar(x)), char = '0'){

    unlist(lapply(x, function(x) {
        paste0(
            paste(rep(char, len - nchar(x)), collapse = ''),
            x
        )
    }))
}

pad_left(1:100)

我喜欢 sprintf，但它带有以下警告：

但是实际实现将遵循 C99 标准，并且细节（尤其是用户错误下的行为）可能取决于平台

---

这是将前导 0 添加到诸如 CUSIPs 之类的字符串的另一种替代方法，它有时看起来像一个数字，并且许多应用程序（例如 Excel）会损坏并删除前导 0 或将它们转换为科学记数法。

当我尝试@metasequoia 提供的答案时，返回的向量有前导空格而不是 0。这与@user1816679 提到的问题相同——删除 0 周围的引号或从 %d 更改为 %s 也没有任何区别。仅供参考，我正在使用在 Ubuntu 服务器上运行的 RStudio 服务器。这个小两步解决方案对我有用：

gsub(pattern = " ", replacement = "0", x = sprintf(fmt = "%09s", ids[,CUSIP]))

使用 magrittr 包中的 %>% 管道函数，它可能如下所示：

sprintf(fmt = "%09s", ids[,CUSIP]) %>% gsub(pattern = " ", replacement = "0", x = .)

我更喜欢单一功能的解决方案，但它确实有效。

---

data$anim <- sapply(0, paste0,data$anim)

---

对于您希望数字字符串保持一致的其他情况，我制作了一个函数。

有人可能会觉得这很有用：

idnamer<-function(x,y){#Alphabetical designation and number of integers required
    id<-c(1:y)
    for (i in 1:length(id)){
         if(nchar(id[i])<2){
            id[i]<-paste("0",id[i],sep="")
         }
    }
    id<-paste(x,id,sep="")
    return(id)
}
idnamer("EF",28)

对不起格式。

---