r - 扩展 rank() "Olympic Style"

在奥运会上，如果两个人并列获得银牌——他们不会颁发铜牌。

这是我正在处理的数据类型的示例:

x <- c(0.64, 0.64, 0.63, 0.62, 0.62, 0.62, 0.61, 0.6, 0.6, 0.58)

我想创建一个输出如下的排名函数:

rank.fun(x)
1 1 3 4 4 4 7 8 8 10

我尝试过使用 findInterval 、 rank 、 floor 、 ceiling 但它们似乎都没有提供我正在寻找的结果。

最佳答案

这个怎么样:
rank(-x, ties.method="min")

关于r - 扩展 rank() "Olympic Style"，我们在Stack Overflow上找到一个类似的问题：https://stackoverflow.com/questions/9071143/