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 に答える