我有两个向量：
vec1 <- c(0, 1, 2, 3, 4, 5, 6, 7, 9)
vec2 <- c(1, 2, 7, 5, 3, 6, 80, 4, 8)
我想设置相同的顺序vec1，因为它是在vec2。例如，vec2最高数字（位置 9）在位置 7，所以我想将vec1（位置 9，数字 9）中的最高数字放到位置 7。
预期输出：
vec1 <- c(0, 1, 6, 4, 2, 5, 9, 3, 7)
我在任何向量中都没有任何重复值。
我主要对高效的 Rcpp 解决方案感兴趣，但也欢迎 R 中的任何内容。