说我有我的数据x
和随机顺序向量:
rand_order <- sample(length(x))
现在我可以用这个随机顺序重新调整我的数据并用它们做点什么:
y <- x[rand_order]
现在,我该怎样反向重新调整y
?即我如何找到inverse_rand_order
以便y[inverse_rand_order] == x
?
答案 0 :(得分:3)
存储您的订购索引,然后在其上使用order
:
x <- 1:10
z <- sample(length(x))
y <- x[z]
# [1] 4 1 10 6 9 5 2 8 3 7
y[order(z)]
# [1] 1 2 3 4 5 6 7 8 9 10