set.seed(123) x <- sample(letters[1:10]) o <- order(x) oo <- order(o) x
## [1] "c" "h" "d" "g" "f" "a" "j" "i" "b" "e"
x[o][oo]