［R］同点タイ有り順位をつける

rank関数を使う。ties.methodオプションに「"min"」を指定すること。以下、例。

> d <- c(90, 80, 80, 70, 50)
> rank(d, ties.method = "min")
[1] 5 3 3 2 1

rank関数は、昇順で順位をつけるため、これを数値が大きい順番で順位をつけるのであれば、順位の基準とする値が格納されているベクトルの正負を逆にすればよい。

> rank(-d, ties.method = "min")
[1] 1 2 2 4 5
> n <- rank(-d, ties.method = "min")
> data.frame(n, d)
n d
1 1 90
2 2 80
3 2 80
4 4 70
5 5 50