Cara menyusun ulang kolom data.table (tanpa menyalin)

Saya ingin kolom menyusun ulang di saya data.table x, diberikan vektor karakter nama kolom, neworder:

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

Jelas saya bisa melakukan:

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

tapi itu perlu menyalin seluruh dataset lagi. Apakah ada cara lain untuk melakukan ini?

Penggunaan 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

Dari ?setcolorder:

Dalam data.tablebahasa Inggris, semua set*fungsi mengubah masukannya dengan referensi. Artinya, tidak ada salinan yang dibuat sama sekali, selain memori kerja sementara, yang ukurannya sebesar satu kolom.

jadi seharusnya cukup efisien. Lihat ?setcolorderdetailnya.

Seseorang mungkin merasa lebih mudah untuk menggunakan solusi di atas, tetapi mengurutkan berdasarkan nomor kolom. Contoh: 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(3,2,1))
    > x
         c         b a
    [1,] 0.2880365 3 1
    [2,] 0.7785115 2 2
    [3,] 0.3297416 1 3