如何加前导零?

我有一组数据，看起来像这样:

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前加两个或三个0呢?

当前回答

扩展@goodside的回应:

在某些情况下，你可能想用零填充字符串(例如fips代码或其他类似数字的因素)。在OSX / Linux:

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

但是因为sprintf()调用了操作系统的C sprintf()命令，在Windows 7中，你会得到一个不同的结果:

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

所以在Windows机器上的工作是:

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

2013-08-21 14:41:18

其他回答

扩展@goodside的回应:

在某些情况下，你可能想用零填充字符串(例如fips代码或其他类似数字的因素)。在OSX / Linux:

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

但是因为sprintf()调用了操作系统的C sprintf()命令，在Windows 7中，你会得到一个不同的结果:

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

所以在Windows机器上的工作是:

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

2013-08-21 14:41:18

在其他情况下，你希望数字字符串是一致的，我做了一个函数。

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

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-03 01:27:46

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

2016-04-20 18:40:31

stringr包中的Str_pad是另一种选择。

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

2014-08-27 06:56:47

下面是一个可推广的基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-27 02:15:50

如何加前导零?

推荐文章

最新文章

标签