En R, ¿cómo correlao valores numéricos con factores, incluidos Inf y NaN?

Question

con R, que tienen un vector tal como

a <- c(0.1,0.6,23,Inf,NaN) 

me gustaría convertirlo en algo así como

c("Finite","Finite","Finite","Inf","NaN") 

con el menor dolor posible. ¿Cómo se hace esto?

Gracias! Uri

Answer 1

Otro método puede ser algo como esto (de manera similar a la pregunta Recoding Numeric Vector):

type <- rep("Finite", length(a)) 
type[is.nan(a)] <- "NaN" 
type[is.infinite(a)] <- "Infinite" 

Answer 2

ifelse() parece funcionar razonablemente bien:

b <- ifelse(is.finite(a), "Finite", ifelse(is.infinite(a), "Infinite", "NaN")) 
> b 
[1] "Finite" "Finite" "Finite" "Infinite" "NaN" 

Técnicamente, que devuelve un vector de caracteres, que se puede convertir con as.factor() o simplemente envolver factor() alrededor de la llamada inicial para volver un factor para empezar. ... aunque el personaje puede adaptarse a tus necesidades dependiendo de lo que necesites hacer.

Answer 3

También es posible usar match (y no se olvide de NA 's):

f <- function(x) { 
    codes <- c("NaN", "Inf", "Inf", "NA", "Finite") 
    codes[match(x, c(NaN, Inf, -Inf, NA), nomatch=5L)] 
} 

f(a) 
# [1] "Finite" "Finite" "Finite" "Inf" "NaN" 

f(c(7.777, -Inf, NA, Inf, NaN, 0/0)) 
# [1] "Finite" "Inf" "NA"  "Inf" "NaN" "NaN" 

Answer 4

Aquí es una variante que usa los propios nombres de R, excepto para "Finito" - por lo que es un poco más corto para escribir y como un bono también maneja el infinito negativo y NA:

# Include -Inf and NA... 
a <- c(0.1,0.6,23,Inf,-Inf,NaN,NA) 

format(ifelse(is.finite(a), "Finite", a), justify="none") 
#[1] "Finite" "Finite" "Finite" "Inf" "-Inf" "NaN" "NA" 

... Pero si realmente desea que las cadenas "infinito" y "-INFINITY", entonces esto haría que:

sub("Inf", "Infinity", format(ifelse(is.finite(a), "Finite", a), justify="none")) 

Por último, si desea mantener los NA s, a continuación, sólo no llame al format:

sub("Inf", "Infinity", ifelse(is.finite(a), "Finite", a)) 
#[1] "Finite" "Finite" "Finite" "Infinity" "-Infinity" "NaN"  NA