Как изменить порядок столбцов data.table (без копирования)

Я хотел бы изменить порядок столбцов в моем data.table x, учитывая вектор символов имен столбцов neworder:

library(data.table)
x <- data.table(a = 1:3, b = 3:1, c = runif(3))
neworder <- c("c", "b", "a")

Очевидно, я мог:

x[ , neworder, with = FALSE]
# or
x[ , ..neworder]
#            c b a
# 1: 0.8476623 3 1
# 2: 0.4787768 2 2
# 3: 0.3570803 1 3

но это потребует повторного копирования всего набора данных. Есть другой способ сделать это?

Использование setcolorder():

library(data.table)
x <- data.table(a = 1:3, b = 3:1, c = runif(3))
x
#      a b         c
# [1,] 1 3 0.2880365
# [2,] 2 2 0.7785115
# [3,] 3 1 0.3297416
setcolorder(x, c("c", "b", "a"))
x
#              c b a
# [1,] 0.2880365 3 1
# [2,] 0.7785115 2 2
# [3,] 0.3297416 1 3

Откуда ?setcolorder:

В data.tableпросторечии, все set*функции изменяют свой вклад в виде ссылки. То есть копирование не производится вообще, за исключением временной рабочей памяти, размер которой равен одному столбцу.

так должно быть довольно эффективно. Подробнее ?setcolorderсм.

Возможно, будет проще использовать приведенное выше решение, но вместо этого выполните сортировку по номеру столбца. Например: библиотека (data.table)

    > x <- data.table(a = 1:3, b = 3:1, c = runif(3))
    > x
         a b         c
    [1,] 1 3 0.2880365
    [2,] 2 2 0.7785115
    [3,] 3 1 0.3297416
    > setcolorder(x, c(3,2,1))
    > x
         c         b a
    [1,] 0.2880365 3 1
    [2,] 0.7785115 2 2
    [3,] 0.3297416 1 3