Как добавить ведущие нули?

Краткая версия: используйте formatC или _ 2_.

Более длинная версия:

Для форматирования чисел доступно несколько функций, включая добавление начальных нулей. Какой из них лучше, зависит от того, какое еще форматирование вы хотите сделать.

Пример из вопроса довольно прост, поскольку все значения имеют одинаковое количество цифр в начале, поэтому давайте попробуем более сложный пример создания степеней 10 и ширины 8.

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

paste (и его вариант paste0) часто первые функции манипулирования строками, с которыми вы столкнетесь. На самом деле они не предназначены для манипулирования числами, но их можно использовать для этого. В простом случае, когда мы всегда должны добавлять один ноль, лучшим решением будет paste0.

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

В случае, когда в числах есть переменное количество цифр, вам нужно вручную вычислить, сколько нулей нужно добавить, что достаточно ужасно, что вы должны делать это только из болезненного любопытства.

str_pad из 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 в stringi работает точно так же, как str_pad из stringr.

formatC - это интерфейс для функции C _ 19_. Для его использования требуется некоторое знание тайн этой базовой функции (см. Ссылку). В этом случае важными моментами являются 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.

Для полноты картины стоит упомянуть другие функции форматирования, которые иногда могут быть полезны, но не имеют метода добавления нулей в начале.

format, общая функция для форматирования любых объект, с методом для чисел. Он работает немного как formatC, но с еще одним интерфейсом.

prettyNum - еще одна функция форматирования, в основном для создания метки деления оси вручную. Это особенно хорошо работает для широкого диапазона чисел.

Пакет scales имеет несколько функций, таких как percent, date_format и _ 37_ для специальных типов форматов.

Для общего решения, которое работает независимо от того, сколько цифр в 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() ОС, обсуждалось здесь, в Windows 7 вы получите другой результат:

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

Итак, на машинах с Windows обходной путь:

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

str_pad из пакета stringr является альтернативой.

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 в строки, такие как CUSIP, которые иногда могут выглядеть как число и которое многие приложения, такие как Excel, будут повреждать и удалять ведущие нули или преобразовывать их в экспоненциальное представление.

Когда я попробовал ответ, предоставленный @metasequoia, возвращенный вектор имел ведущие пробелы, а не 0s. Это была та же проблема, о которой упоминал @ user1816679, и удаление кавычек вокруг 0 или изменение с %d на %s тоже не повлияло. К вашему сведению, я использую RStudio Server, работающий на сервере Ubuntu. Это небольшое двухэтапное решение сработало для меня:

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

используя функцию %>% pipe из пакета magrittr, это может выглядеть так:

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

Я бы предпочел однофункциональное решение, но оно работает.

Для других обстоятельств, в которых вы хотите, чтобы числовая строка была согласованной, я сделал функцию.

Кому-то это может пригодиться:

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)

Извините за форматирование.