R语言返回数据在排序后数组中的位置

R语言要求自己编写一个函数，返回原数据在排序后数组中的位置

代码可以这样写：

pos<-function(x){
    z=c()
    y=sort(x)
    for (i in 1:length(y))
    for (j in 1:length(x))
    if (y[i]==x[j])
    z=c(z,j)
    return(z)
}
arr=array(c(2,8,6,4))
print(pos(arr))

r$> source('r28.r')
[1] 1 4 3 2

如有帮助，请采纳。点击我回答右上角【采纳】按钮。