产生逆置换(Generating inverse permutation)

假设我们给出一个向量foo ，我们不得不暂时置换它（排序或重新排序的话），可以计算部分向量bar它的基础上，并最终置换回既foo和bar到的原始顺序foo -这意味着逆置换：

foo <- c(1, 7, 3, 5, 2)
o <- order(foo)
foo <- foo[o] # Now foo is permuted, and sorted: foo == 1 2 3 5 7
bar = 2 * foo # bar == 2 4 6 10 14

这里应该去你的答案，例如，我们有以下所需的最终值：

foo == 1 7 3 5 2
bar == 2 14 6 10 4

这该怎么做？

请干脆不回答：“你可以做bar = 2 * foo ，而不是它置换”。 这只是一个简单的例子。 在某些情况下，我们必须排序foo效率（在它快速搜索）或类似的东西。

Answer 1:

这将工作，因为[order(o)]反转的作用[o]

foo <- c(1, 7, 3, 5, 2)
o <- order(foo)

(foo[o]*2)[order(o)]
# [1]  2 14  6 10  4

要显示它的工作原理更普遍：

testAlgorithm <- function(foo) {
    o <- order(foo)
    identical(foo, foo[o][order(o)])
}

x <- c(1, 7, 3, 5, 2)
y <- c(1,2,5,7,4, 99, 88, 3, 0)
z <- sample(1000)                  ## (No ties)
zz <- sample(1000, replace=TRUE)   ## (Many ties)
all(sapply(list(x,y,z,zz), testAlgorithm))
[1] TRUE

Answer 2:

要恢复原来的顺序，使用order(o)

> (foo[o]*2)[order(o)]
[1]  2 14  6 10  4

文章来源: Generating inverse permutation