Come ottenere ranghi senza spazi vuoti quando ci sono legami tra i valori?

Question

Quando ci sono cravatte nei dati originali, c'è un modo per creare una classifica senza spazi vuoti (valori di classifica interi consecutivi)? Supponiamo che:

x <- c(10, 10, 10, 5, 5, 20, 20) 
rank(x) 
# [1] 4.0 4.0 4.0 1.5 1.5 6.5 6.5 

In questo caso il risultato desiderato sarebbe:

my_rank(x) 
[1] 2 2 2 1 1 3 3 

Ho giocato con tutte le opzioni per ties.method opzione (average, max, min, random), nessuno dei quali sono progettato per fornire il risultato desiderato.

È possibile ottenerlo con la funzione rank()?

Answer 1

Posso pensare a una funzione rapida per farlo. Non è ottimale con un ciclo for ma funziona :)

x=c(1,1,2,3,4,5,8,8) 

foo <- function(x){ 
    su=sort(unique(x)) 
    for (i in 1:length(su)) x[x==su[i]] = i 
    return(x) 
} 

foo(x) 

[1] 1 1 2 3 4 5 6 6 

Answer 2

Che dire sort()?

x <- c(1,1,2,3,4,5) 
sort(x) 

> sort(x) 
[1] 1 1 2 3 4 5 

Answer 3

Il modo "loopless" per farlo è quello di trattare semplicemente il vettore come fattore ordinata, quindi convertirlo in numerico:

> as.numeric(ordered(c(10,10,10,10, 5,5,5, 10, 10))) 
[1] 2 2 2 2 1 1 1 2 2 
> as.numeric(ordered(c(0.5,0.56,0.76,0.23,0.33,0.4))) 
[1] 4 5 6 1 2 3 
> as.numeric(ordered(c(1,1,2,3,4,5,8,8))) 
[1] 1 1 2 3 4 5 6 6 

Aggiornamento: Un altro modo, che sembra più veloce è utilizzare findInterval e sort(unique()):

> x <- c(10, 10, 10, 10, 5,5,5, 10, 10) 
> findInterval(x, sort(unique(x))) 
[1] 2 2 2 2 1 1 1 2 2 

> x <- round(abs(rnorm(1000000)*10)) 
> system.time(z <- as.numeric(ordered(x))) 
    user system elapsed 
    0.996 0.025 1.021 
> system.time(z <- findInterval(x, sort(unique(x)))) 
    user system elapsed 
    0.077 0.003 0.080 

Answer 4

Un'altra funzione che fa questo, ma sembra inefficiente. Non c'è il ciclo for, ma dubito che sia più efficiente del suggerimento di Sacha!

x=c(1,1,2,3,4,5,8,8) 
fancy.rank <- function(x) { 
    x.unique <- unique(x) 
    d1 <- data.frame(x=x) 
    d2 <- data.frame(x=x.unique, rank(x.unique)) 
    merge(d1, d2, by="x")[,2] 
} 

fancy.rank(x) 

[1] 1 1 2 3 4 5 6 6 

Answer 5

Modificato crayola solution ma uing match invece di merge:

x_unique <- unique(x) 
x_ranks <- rank(x_unique) 
x_ranks[match(x,x_unique)] 

Answer 6

Provate a pensare a un altro modo

x <- c(10,10,10,5,5,20,20) 
as.numeric(as.factor(x)) 
[1] 2 2 2 1 1 3 3