Làm thế nào tôi có thể tạo ra một ties.method mới với hàm R rank()?

Question

Tôi đang cố gắng để đặt hàng dataframe này bằng dân số và ngày, vì vậy tôi đang sử dụng order() và rank() chức năng:

> 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 

Với ties.method = "first" Tôi không có vấn đề, cuối cùng tôi đang sản xuất dataframe này:

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 

Nhưng trên thực tế, tôi muốn có một dataframe với xếp hạng bình đẳng cho bằng cấp bậc dân, như thế này:

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 

Làm cách nào để giải quyết vấn đề này với R? Với tùy chỉnh ties.method() hoặc một thủ thuật R khác?

Answer 1

Tôi tin rằng không có tùy chọn để làm điều đó với thứ hạng; đây là một chức năng tùy chỉnh mà sẽ làm những gì bạn muốn, nhưng nó có thể là quá chậm nếu dữ liệu của bạn là rất lớn:

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

Answer 2

này trả lời một câu hỏi hơi khác nhau, cụ thể là làm thế nào để sắp xếp một đối tượng data.frame dựa trên nhiều cột. Để làm điều này, bạn có thể sử dụng chức năng sort_df trong gói 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

Nhiều cách đơn giản:

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