it-swarm.dev

정보를 잃지 않고 인수를 정수\숫자로 변환하는 방법?

요소를 숫자 또는 정수로 변환 할 때 숫자가 아닌 숫자로 된 기본 코드가 나타납니다.

f <- factor(sample(runif(5), 20, replace = TRUE))
##  [1] 0.0248644019011408 0.0248644019011408 0.179684827337041 
##  [4] 0.0284090070053935 0.363644931698218  0.363644931698218 
##  [7] 0.179684827337041  0.249704354675487  0.249704354675487 
## [10] 0.0248644019011408 0.249704354675487  0.0284090070053935
## [13] 0.179684827337041  0.0248644019011408 0.179684827337041 
## [16] 0.363644931698218  0.249704354675487  0.363644931698218 
## [19] 0.179684827337041  0.0284090070053935
## 5 Levels: 0.0248644019011408 0.0284090070053935 ... 0.363644931698218

as.numeric(f)
##  [1] 1 1 3 2 5 5 3 4 4 1 4 2 3 1 3 5 4 5 3 2

as.integer(f)
##  [1] 1 1 3 2 5 5 3 4 4 1 4 2 3 1 3 5 4 5 3 2

실제 값을 얻으려면 paste을 사용해야합니다.

as.numeric(paste(f))
##  [1] 0.02486440 0.02486440 0.17968483 0.02840901 0.36364493 0.36364493
##  [7] 0.17968483 0.24970435 0.24970435 0.02486440 0.24970435 0.02840901
## [13] 0.17968483 0.02486440 0.17968483 0.36364493 0.24970435 0.36364493
## [19] 0.17968483 0.02840901

요소를 숫자로 변환하는 더 좋은 방법이 있습니까?

524
Adam SO

?factor 의 경고 섹션을 참조하십시오.

특히 요인에 적용된 as.numeric는 의미가 없으며 암시 적 강제 변환에 의해 발생할 수 있습니다. factor f을 원래의 숫자 값으로 변환하려면 as.numeric(levels(f))[f]을 권장하고 as.numeric(as.character(f))보다 약간 더 효율적입니다.

FAQ에 R 비슷한 조언이 있음 .


as.numeric(levels(f))[f]as.numeric(as.character(f))보다 더 효과적입니까?

as.numeric(as.character(f))은 효과적으로 as.numeric(levels(f)[f])이므로 length(x) 값보다는 nlevels(x) 값에서 숫자로 변환을 수행합니다. 속도 차이는 레벨이 거의없는 긴 벡터에서 가장 분명합니다. 값이 대부분 고유하면 속도에 별다른 차이가 없습니다. 변환 작업을 수행하더라도 코드에서 병목 현상이 발생하지는 않으므로 걱정하지 마십시오.


몇 가지 타이밍

library(microbenchmark)
microbenchmark(
  as.numeric(levels(f))[f],
  as.numeric(levels(f)[f]),
  as.numeric(as.character(f)),
  paste0(x),
  paste(x),
  times = 1e5
)
## Unit: microseconds
##                         expr   min    lq      mean median     uq      max neval
##     as.numeric(levels(f))[f] 3.982 5.120  6.088624  5.405  5.974 1981.418 1e+05
##     as.numeric(levels(f)[f]) 5.973 7.111  8.352032  7.396  8.250 4256.380 1e+05
##  as.numeric(as.character(f)) 6.827 8.249  9.628264  8.534  9.671 1983.694 1e+05
##                    paste0(x) 7.964 9.387 11.026351  9.956 10.810 2911.257 1e+05
##                     paste(x) 7.965 9.387 11.127308  9.956 11.093 2419.458 1e+05
623
Joshua Ulrich

R에는 요인을 변환하기위한 여러 가지 (문서화되지 않은) 편의 기능이 있습니다.

  • as.character.factor
  • as.data.frame.factor
  • as.Date.factor
  • as.list.factor
  • as.vector.factor
  • ...

그러나 성가 시게도 factor -> numeric변환을 처리 할 수있는 방법은 없습니다. Joshua Ulrich의 대답의 연장선에서 나는이 생략을 자신의 관용적 기능의 정의로 극복 할 것을 제안합니다.

as.numeric.factor <- function(x) {as.numeric(levels(x))[x]}

스크립트의 시작 부분에 저장하거나, .Rprofile 파일에서 더 잘 저장할 수 있습니다.

76
Jealie

가장 쉬운 방법은 패키지의 unfactor 함수를 사용하는 것입니다. varhandle

unfactor(your_factor_variable)

이 예제는 빠른 시작이 될 수 있습니다.

x <- rep(c("a", "b", "c"), 20)
y <- rep(c(1, 1, 0), 20)

class(x)  # -> "character"
class(y)  # -> "numeric"

x <- factor(x)
y <- factor(y)

class(x)  # -> "factor"
class(y)  # -> "factor"

library(varhandle)
x <- unfactor(x)
y <- unfactor(y)

class(x)  # -> "character"
class(y)  # -> "numeric"
30
Mehrad Mahmoudian

참고 :이 특별한 대답은 숫자 값 요소를 숫자로 변환 할 때 범주 형 인수를 해당 수준 번호로 변환하는 데 사용되는 not 입니다.


이 게시물의 모든 대답은 나를 위해 결과를 생성하지 못했습니다. NAs가 생성되었습니다.

y2<-factor(c("A","B","C","D","A")); 
as.numeric(levels(y2))[y2] 
[1] NA NA NA NA NA Warning message: NAs introduced by coercion

나를 위해 일한 것은 이것입니다 -

as.integer(y2)
# [1] 1 2 3 4 1
16
Indi

요소 레이블이 원래 값과 일치하는 경우 전용 이 가능합니다. 나는 그것을 예제로 설명 할 것이다.

데이터가 벡터 x이라고 가정합니다.

x <- c(20, 10, 30, 20, 10, 40, 10, 40)

이제 네 개의 레이블을 가진 요소를 만듭니다.

f <- factor(x, levels = c(10, 20, 30, 40), labels = c("A", "B", "C", "D"))

1) x은 double 유형이고 f은 정수 유형입니다. 이것은 불가피하게 발생할 수있는 정보 손실입니다. 요인은 항상 정수로 저장됩니다.

> typeof(x)
[1] "double"
> typeof(f)
[1] "integer"

2) f 만 사용할 수있는 원래 값 (10, 20, 30, 40)으로 되돌릴 수는 없습니다. f에는 정수 값 1, 2, 3, 4와 레이블 ( "A", "B", "C", "D") 및 클래스 속성 "factor"의 두 속성 만 있습니다. 더 이상은 없습니다.

> str(f)
 Factor w/ 4 levels "A","B","C","D": 2 1 3 2 1 4 1 4
> attributes(f)
$levels
[1] "A" "B" "C" "D"

$class
[1] "factor"

다시 원래의 값으로 되돌리려면 요소 생성에 사용 된 레벨 값을 알아야합니다. 이 경우 c(10, 20, 30, 40). 원래 수준을 올바른 순서로 알면 원래 값으로 되돌릴 수 있습니다.

> orig_levels <- c(10, 20, 30, 40)
> x1 <- orig_levels[f]
> all.equal(x, x1)
[1] TRUE

그리고 이것은 원래 데이터에서 가능한 모든 값에 대해 레이블이 정의 된 경우에만 작동합니다.

따라서 원래 값이 필요할 경우에는 원래 값을 유지해야합니다. 그렇지 않으면 요인으로부터 만 돌아 오는 것이 불가능할 가능성이 높습니다.

8
djhurio

데이터 프레임이있는 경우 hablar::convert를 사용할 수 있습니다. 구문은 쉽습니다.

샘플 df

library(hablar)
library(dplyr)

df <- dplyr::tibble(a = as.factor(c("7", "3")),
                    b = as.factor(c("1.5", "6.3")))

해결책

df %>% 
  convert(num(a, b))

당신을 준다 :

# A tibble: 2 x 2
      a     b
  <dbl> <dbl>
1    7.  1.50
2    3.  6.30

또는 하나의 열이 정수이고 하나의 숫자가되도록하려면 다음을 수행하십시오.

df %>% 
  convert(int(a),
          num(b))

결과는 다음과 같습니다.

# A tibble: 2 x 2
      a     b
  <int> <dbl>
1     7  1.50
2     3  6.30
0
davsjob