432

我有一组看起来像这样的数据：

anim <- c(25499,25500,25501,25502,25503,25504)
sex  <- c(1,2,2,1,2,1)
wt   <- c(0.8,1.2,1.0,2.0,1.8,1.4)
data <- data.frame(anim,sex,wt)

data
   anim sex  wt anim2
1 25499   1 0.8     2
2 25500   2 1.2     2
3 25501   2 1.0     2
4 25502   1 2.0     2
5 25503   2 1.8     2
6 25504   1 1.4     2

我想在每个动物 id 之前添加一个零：

data
   anim sex  wt anim2
1 025499   1 0.8     2
2 025500   2 1.2     2
3 025501   2 1.0     2
4 025502   1 2.0     2
5 025503   2 1.8     2
6 025504   1 1.4     2

出于兴趣，如果我需要在动物 ID 之前添加两个或三个零怎么办？

4

8 回答 8

677

简短版本：使用formatCor sprintf。

更长的版本：

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

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

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

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

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

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

str_padfrom 的stringr工作方式与 类似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"

您需要设置科学惩罚选项，以便始终使用固定表示法（而不是科学计数法）格式化数字。

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

stri_pad在与fromstringi完全一样的作品中。str_padstringr

formatC是 C 函数的接口printf。使用它需要对该底层功能的奥秘有一些了解（见链接）。在这种情况下，重点是width参数，format用于"d"“整数”，a"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的回答。

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

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

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

该scales包具有多种功能，例如percent,date_format和dollar用于专业格式类型。

于 2011-04-28T09:56:01.920 回答
237

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

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

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

于 2011-04-28T01:29:03.617 回答
38

Expanding on @goodside's repsonse:

In some cases you may want to pad a string with zeros (e.g. fips codes or other numeric-like factors). In OSX/Linux:

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

But because sprintf() calls the OS's C sprintf() command, discussed here, in Windows 7 you get a different result: 

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

So on Windows machines the work around is:

> sprintf("%05d", as.numeric("104"))
[1] "00104"
于 2013-08-21T14:41:18.600 回答
31

str_pad从stringr包是另一种选择。

anim = 25499:25504
str_pad(anim, width=6, pad="0")
于 2014-08-27T06:56:47.320 回答
2

这是一个可推广的基本 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 标准，并且细节（尤其是用户错误下的行为）可能取决于平台

于 2018-09-27T02:15:50.437 回答
1

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

当我尝试@metasequoia 提供的答案时，返回的向量有前导空格而不是0s。这与@user1816679 提到的问题相同 - 删除周围的引号0或更改 from%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 = .)

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

于 2016-12-10T19:44:45.027 回答
0 
data$anim <- sapply(0, paste0,data$anim)
于 2016-04-20T18:40:31.793 回答
0

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

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

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)

对不起格式。

于 2017-04-03T01:27:46.613 回答