3

我想计算向量中每个索引的排名，例如：

x <- c(0.82324952352792, 0.11953364405781, 0.588659686036408, 0.41683742380701, 
       0.11452184105292, 0.438547774450853, 0.586471405345947, 0.943002870306373, 
       0.28184655145742, 0.722095313714817)

calcRank <- function(x){
  sorted <- x[order(x)]
  ranks <- sapply(x, function(x) which(sorted==x))
  return(ranks)
}

calcRank(x)

> calcRank(x)
 [1]  9  2  7  4  1  5  6 10  3  8

有一个更好的方法吗？

4

2 回答 2

14

为什么不只是：

rank(x)     # ..... ?

# [1]  9  2  7  4  1  5  6 10  3  8
于 2012-06-12T19:00:37.987 回答
6

match是你想要的：

match(x, sort(x))
于 2012-06-12T18:51:30.770 回答