Добавление начальных нулей с использованием R

Ответ 1

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

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

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

Пример из вопроса довольно прост, так как все значения имеют одинаковое количество цифр, поэтому попробуйте более сложный пример создания степеней 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"

Опять же, он не предназначен для использования с цифрами, поэтому для более сложного случая требуется немного подумать. Мы должны просто сказать "pad с нулями до ширины 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"

stri_pad в stringi работает точно так же, как str_pad от stringr.

formatC - это интерфейс к функции C printf. Использование этого требует некоторого знания арканы этой основной функции (см. Ссылку). В этом случае важными являются аргументы width, format "d" для "integer" и 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." 

См. также товарный ответ.

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

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

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

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

Ответ 2

Для общего решения, которое работает независимо от количества цифр в data$anim, используйте функцию sprintf. Он работает следующим образом:

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

В вашем случае вы, вероятно, захотите: data$anim <- sprintf("%06d", data$anim)

Ответ 3

Расширение ответа @goodside:

В некоторых случаях вам может понадобиться заполнить строку нулями (например, коды fips или другие числовые факторы). В OSX/Linux:

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

Но поскольку sprintf() вызывает команду OS C sprintf(), обсуждаемую здесь, в Windows 7 вы получаете другой результат:

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

Итак, на машинах Windows работа вокруг:

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

Ответ 4

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

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

Ответ 5

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

Ответ 6

Вот еще одна альтернатива для добавления, ведущего к 0s в строки, такие как CUSIPs, которые иногда могут выглядеть как число, и многие приложения, такие как Excel будет повреждать и удалять ведущие 0s или преобразовывать их в научную нотацию.

Когда я попробовал ответ, предоставленный @metasequoia, возвращаемый вектор имел начальные пробелы, а не 0 s. Это была та же проблема, о которой упоминал @user1816679, - и удаление котировок вокруг 0 или изменение с %d на %s тоже не помогло. FYI, я использую 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 = .)

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

Ответ 7

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

Кто-то может найти это полезным:

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)

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