seleccionar - order data frame r

Reordenar filas en data.table en un orden específico

Question

Tengo un data.table dumdt :

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

cuyas filas me gustaría reordenar en este orden de índices específicos (primero la tercera observación, luego la quinta, luego la segunda, etc.):

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

Así que me gustaría que dumdt sea ​​el resultado de dumdt[to_ord] pero también me gustaría hacerlo por referencia y evitar hacer dumdt <- dumdt[to_ord] .

Sé que puedo reordenar las filas por referencia con setorder (o setorderv ) pero solo de acuerdo con una o varias variables, en orden ascendente o descendente, no en un orden personalizado.
Sin embargo, si quisiera reordenar las columnas, no las filas, en un orden personalizado, podría usar setcolorder .

Entonces, aquí viene mi pregunta: ¿existe una función que funcione como setcolorder pero con las filas (o una forma de usar setorder para hacer lo mismo)?

Mi salida deseada sería algo como

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

Esta capacidad no es (todavía) exportada. Después de ver la fuente de setorderv , pude extraer la función requerida de llamada a C que hace lo que necesita y suministrarla con un orden personalizado.

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

Sin embargo, la solución propuesta por Frank se ve un poco mejor.

Answer 2

Si entiendo correctamente, puedes agregar una columna y luego ordenar por ella:

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