Добавление числа к отдельным значениям в столбце dataframe в зависимости от длины значения, R [дубликат]

Question

Добавление числа к отдельным значениям в столбце dataframe в зависимости от длины значения, R [дубликат]

Чтобы получить доступ к файлу в банке, у вас есть две возможности:

Поместите файл в структуру каталогов, соответствующую вашему имени пакета (после извлечения файла .jar он должен находиться в том же каталоге, что и .class file), затем обращайтесь к нему с помощью getClass().getResourceAsStream("file.txt")
Поместите файл в корневой каталог (после извлечения файла .jar, он должен быть в корневом каталоге), затем обращайтесь к нему с помощью Thread.currentThread().getContextClassLoader().getResourceAsStream("file.txt")

Первый вариант может не работать, если jar используется в качестве плагина.

257

r dataframe

задан Peter Mortensen 24 May 2016 в 13:29

7 ответов

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

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

18

ответ дан kdauria 28 August 2018 в 10:28

1

– Pankil Shah 19 June 2017 в 17:50

Развертывание в ответе @ 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"

26

ответ дан metasequoia 28 August 2018 в 10:28

1

– metasequoia 9 July 2016 в 19:44

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

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

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

187

ответ дан MichaelChirico 28 August 2018 в 10:28

1

– aL3xa 28 April 2011 в 09:54
2

– Rotail 4 August 2016 в 17:11
3

– smacdonald 22 September 2016 в 13:30
4

– Frank FYC 19 September 2017 в 22:17

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

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

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)

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

0

ответ дан Unheilig 28 August 2018 в 10:28

1

– Phil 6 April 2017 в 01:05

Это означает, нотации.

Когда я попробовал ответ, предоставленный @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 = .)

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

1

ответ дан Ursus Frost 28 August 2018 в 10:28

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

2

ответ дан zhan2383 28 August 2018 в 10:28

Другие вопросы по тегам:

r dataframe

Похожие вопросы:

score 393 · Accepted Answer

Короткий вариант: используйте 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"

Вам нужно установить опцию

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