Come posso creare un nuovo ties.method con la funzione R rank()?

Question

sto cercando di ordinare questo dataframe per numero di abitanti e la data, quindi sto usando il order() e rank() funzioni:

> df <- data.frame(idgeoville = c(5, 8, 4, 3, 4, 5, 8, 8), 
        date  = c(rep(1950, 4), rep(2000, 4)), 
        population = c(500, 450, 350, 350, 650, 500, 500, 450)) 
> df 
    idgeoville date population 
1 5   1950  500 
2 8   1950  450 
3 4   1950  350 
4 3   1950  350 
5 4   2000  650 
6 5   2000  500 
7 8   2000  500 
8 8   2000  450 

Con ties.method = "first" non ho alcun problema, finalmente sto producendo questo dataframe:

idgeoville date population rank 
1 5   1950  500  1 
2 8   1950  450  2 
3 4   1950  350  3 
4 3   1950  350  4 
5 4   2000  650  1 
6 5   2000  500  2 
7 8   2000  500  3 
8 8   2000  450  4 

Ma in realtà, voglio un dataframe con uguale classifica a parità di popolazione rango, in questo modo:

idgeoville date population rank 
1 5   1950  500  1 
2 8   1950  450  2 
3 4   1950  350  3 
4 3   1950  350  3 
5 4   2000  650  1 
6 5   2000  500  2 
7 8   2000  500  2 
8 8   2000  450  3 

Come posso risolvere questo problema con R? Con un costume ties.method() o altri trucchi R?

Answer 1

Credo non ci sia alcuna possibilità di farlo con il grado; qui è una funzione personalizzata che farà ciò che si vuole, ma potrebbe essere troppo lento se i dati è enorme:

Rank<-function(d) { 
    j<-unique(rev(sort(d))); 
    return(sapply(d,function(dd) which(dd==j))); 
} 

Answer 2

Questo risponde a una domanda un po 'diversa, vale a dire come ordinare un oggetto data.frame in base a più colonne. Per fare questo, è possibile utilizzare la funzione sort_df nel pacchetto reshape:

> library(reshape) 
> sort_df(df,vars=c('date','population')) 
    idgeoville date population 
3   4 1950  350 
4   3 1950  350 
2   8 1950  450 
1   5 1950  500 
8   8 2000  450 
6   5 2000  500 
7   8 2000  500 
5   4 2000  650 

Answer 3

Più modo semplice:

pop.rank <- as.numeric(factor(population))