선행 0을 추가하는 방법?

다음과 같은 데이터 세트가 있습니다.

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 앞에 0을 추가하고 싶습니다.

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 앞에 2 개 또는 3 개의 0을 추가해야하는 경우 어떻게해야합니까?

짧은 버전 : 사용 formatC 또는을sprintf .

더 긴 버전 :

선행 0을 추가하는 것을 포함하여 숫자 서식을 지정할 수있는 몇 가지 기능이 있습니다. 어떤 형식이 가장 적합한 지 다른 형식에 따라 다릅니다.

모든 값은 같은 자릿수를 갖기 때문에 문제의 예는 매우 쉽습니다. 따라서 10 너비 8의 거듭 제곱을 만드는 더 어려운 예를 시도해 봅시다.

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

paste(그리고 변형 paste0)은 종종 당신이 처음 접하는 문자열 조작 함수입니다. 그것들은 실제로 숫자를 조작하기 위해 고안된 것은 아니지만 그것을 위해 사용될 수 있습니다. 우리가 항상 단일 0을 앞에 붙여야하는 간단한 경우에 paste0가장 좋은 솔루션입니다.

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

숫자에 가변 자릿수가있는 경우, 앞에 붙일 0의 수를 수동으로 계산해야합니다.

str_padfrom stringr과 (와) 유사한 방식으로 작동 paste하여 물건을 채우고 싶다는 것을 더욱 명확하게합니다.

library(stringr)
str_pad(anim, 6, pad = "0")
## [1] "025499" "025500" "025501" "025502" "025503" "025504"

다시 말하지만, 실제로 숫자와 함께 사용하도록 설계되지 않았으므로 어려운 경우에는 약간의 생각이 필요합니다. "폭이 0 인 패드 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.

formatCC 함수에 대한 인터페이스 printf입니다. 이를 사용하려면 해당 기본 기능의 arcana에 대한 지식이 필요합니다 (링크 참조). 이 경우 중요한 점은 "정수" 에 대한 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의 답변 도 참조하십시오 .

완전성을 위해 때로는 유용하지만 0을 추가하는 방법이없는 다른 서식 기능을 언급 할 가치가 있습니다.

format, 숫자에 대한 메소드를 사용하여 모든 종류의 오브젝트를 형식화하는 일반 함수입니다. 그것은 약간 비슷 formatC하지만 또 다른 인터페이스와 함께 작동합니다 .

prettyNum수동 축 눈금 레이블을 만들기위한 또 다른 서식 기능입니다. 특히 광범위한 숫자에 적합합니다.

이 scales패키지에는 percent, date_format및 dollar특수 형식 유형 과 같은 여러 기능이 있습니다.

의 자릿수에 관계없이 작동하는 일반 솔루션의 경우이 함수를 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의 응답에서 확장 :

경우에 따라 문자열을 0으로 채울 수 있습니다 (예 : 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"

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 표준을 따르며 세부 사항 (특히 사용자 오류의 동작)은 플랫폼에 따라 다를 수 있습니다

다음은 때때로 숫자처럼 보일 수 있고 Excel과 같은 많은 응용 프로그램이 선행 0을 손상시키고 제거하거나 과학적 표기법으로 변환하는 CUSIP 와 같은 문자열에 선행 0을 추가하는 또 다른 대안입니다 .

@metasequoia가 제공 한 답변을 시도했을 때 반환 된 벡터에는 0s가 아닌 선행 공백이있었습니다 . 이것은 @ user1816679 언급 같은 문제이었다 - 그리고 주위에 따옴표를 제거 0또는에서 변화 %d에 %s하나 차이를 만들지 않았다. 참고로, 우분투 서버에서 실행되는 RStudio 서버를 사용하고 있습니다. 이 작은 2 단계 솔루션은 저에게 효과적이었습니다.

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

패키지 %>%에서 파이프 함수를 사용하면 magrittr다음과 같이 보일 수 있습니다.

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

단일 기능 솔루션을 선호하지만 작동합니다.

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

숫자 문자열이 일관성을 유지하려는 다른 상황에서는 함수를 만들었습니다.

누군가 이것이 유용하다는 것을 알 수 있습니다.

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)

형식에 대해 죄송합니다.