Вы можете сделать это, найдя максимальное и минимальное значения вашего вектора, а затем выполнив поиск индекса по полному числу, установленному между максимальным и минимальным значениями.
v <- c(5,4,2)
x <- min(v)
y <- max(v)
x:y
match(v,x:y)
[1] 4 3 1
Использование уровней фактора в качестве J.Win.подсказка будет работать до тех пор, пока в вашем векторе есть 1, но в противном случае наибольшее значение не будет иметь ранг 1. Извините, у меня недостаточно репутации, чтобы добавить это в качестве комментария.