add a "0" with a condition to the beginning of a string in R it is different to "Add zeros to R because it has a condition"

Question

I have this data frame:

bloqueados$HoraLlamada<- as.character(c(83048, 163112, 115929, 123632, 114541,  72807 163626, 130051,  81645, 121639))

If their the name of characters of each row is 5 I need to add a "0" at the beginning of the string. I am trying these code, but it is adding a "0" to every row:

for (i in bloqueados$HoraLlamada){
    if(nchar(bloqueados$HoraLlamada)==5){
        bloqueados$HoraLlamada2<- paste("0",bloqueados$HoraLlamada)
    }else{
        bloqueados$HoraLlamada2<-paste(bloqueados$HoraLlamada)
    }
}

You didn't use `i` inside the loop – Xiongbing Jin Oct 04 '16 at 19:33 — Xiongbing Jin, Oct 04 '16 at 19:33
http://stackoverflow.com/search?q=[r]+add+leading+zeros – Rich Scriven Oct 04 '16 at 19:34 — Rich Scriven, Oct 04 '16 at 19:34
`sprintf` to the rescue again. – Matthew Lundberg Oct 04 '16 at 19:34 — Matthew Lundberg, Oct 04 '16 at 19:34
`str_pad()` from `stringr` and you can skip that `for` loop – Nate Oct 04 '16 at 19:34 — Nate, Oct 04 '16 at 19:34

score 1 · Accepted Answer · answered Oct 04 '16 at 19:39

Several possible approaches to solve this problem have been described in the comments. Here's another one. It uses the stri_pad_left() function from the stringi package.

nums <-  as.character(c(83048, 163112, 115929, 123632, 114541,  72807, 163626, 130051,  81645, 121639))
library(stringi)
stri_pad_left(nums, pad="0", width = 6)
#[1] "083048" "163112" "115929" "123632" "114541" "072807" "163626" "130051" "081645" "121639"

add a "0" with a condition to the beginning of a string in R it is different to "Add zeros to R because it has a condition"

1 Answers1