これを尋ねるのは本当にばかげていると感じていますが、ソートされたデータとソースインデックスのベクトルの両方を返す、より一般的なパッケージの1つに既存の関数はありますか? 書くのは簡単です:
Rgames> foo <- sample(1:10,10)
Rgames> bar <- sort(foo)
Rgames> bar_index <- sapply(1:10,function(jj)which(foo==bar[jj]))
「彼らは私を嵐^H^H^H^H^Htupid Mondayと呼びます」