Jak zmienić kolejność kolumn data.table (bez kopiowania)

Chciałbym zmienić kolejność kolumn w moim data.table x, biorąc pod uwagę wektor znaków nazw kolumn neworder:

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

Oczywiście mogłem zrobić:

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

ale wymagałoby to ponownego skopiowania całego zbioru danych. Czy jest inny sposób, aby to zrobić?

Zastosowanie 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

Od ?setcolorder:

W data.tableżargonie wszystkie set*funkcje zmieniają swoje dane wejściowe przez odniesienie. Oznacza to, że w ogóle nie jest tworzona żadna kopia poza tymczasową pamięcią roboczą, która ma rozmiar jednej kolumny.

więc powinno być całkiem wydajne. Zobacz ?setcolorderszczegóły.

Powyższe rozwiązanie może być łatwiejsze, ale zamiast tego posortuj dane według numeru kolumny. Na przykład: biblioteka (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