按特定顺序重新排序 data.table 中的行

Question

我有一个data.tabledumdt：

set.seed(123)
dumdt <- data.table(v1=sample(1:10, 5), v2=1:5)

我想按照这个特定的索引顺序重新排序哪些行（首先是第三个观察，然后是第五个，然后是第二个，等等）：

to_ord <- c(3, 5, 2, 1, 4)

所以我希望dumdt 成为dumdt[to_ord] 的结果，但我也希望通过引用来实现，避免使用dumdt <- dumdt[to_ord]。

我知道我可以通过引用setorder（或setorderv）对行重新排序，但只能根据一个或多个变量，按升序或降序排列，而不是按自定义顺序。
但是，如果我想按自定义顺序重新排序列而不是行，我可以使用setcolorder。

所以我的问题来了：是否有一个函数可以像 setcolorder 一样工作但与行（或使用 setorder 来做同样的事情）？

我想要的输出是这样的

setroworder(x=dumdt, neworder=to_ord)
dumdt
   # v1 v2
# 1:  4  3
# 2:  6  5
# 3:  8  2
# 4:  3  1
# 5:  7  4

Answer 1

如果我理解正确，您可以添加一个 col 然后按它排序：

setorder(dumdt[, .r := order(to_ord)], .r)[, .r := NULL]

   v1 v2
1:  4  3
2:  6  5
3:  8  2
4:  3  1
5:  7  4

Answer 2

此功能（尚未）导出。在查看setorderv 的源代码后，我能够提取对 C 函数的所需调用，该函数可以满足您的需求并为其提供自定义顺序。

library(data.table)
set.seed(123)
dumdt <- data.table(v1=sample(1:10, 5), v2=1:5)
print(dumdt)
#   v1 v2
#1:  3  1
#2:  8  2
#3:  4  3
#4:  7  4
#5:  6  5
setroworder <- function(x, neworder) {
    .Call(data.table:::Creorder, x, as.integer(neworder), PACKAGE = "data.table")
    invisible(x)
}
to_ord <- c(3, 5, 2, 1, 4)
setroworder(x=dumdt, neworder=to_ord)
print(dumdt)
#   v1 v2
#1:  4  3
#2:  6  5
#3:  8  2
#4:  3  1
#5:  7  4

不过，Frank 提出的解决方案看起来要好一些。