Cách sắp xếp lại các cột data.table (không sao chép)

Tôi muốn sắp xếp lại các cột trong tôi data.table x, cho một vector đặc trưng của tên cột, neworder:

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

Rõ ràng là tôi có thể làm:

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

nhưng điều đó sẽ yêu cầu sao chép lại toàn bộ tập dữ liệu. Có một cách khác để làm điều này?

Sử dụng 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

Từ ?setcolorder:

Nói data.tabletheo cách nói, tất cả các set*hàm thay đổi đầu vào của chúng bằng cách tham chiếu. Có nghĩa là, không có bản sao nào được tạo ra, ngoài bộ nhớ làm việc tạm thời, dung lượng lớn bằng một cột.

vì vậy sẽ khá hiệu quả. Xem ?setcolorderchi tiết.

Người ta có thể thấy dễ dàng hơn khi sử dụng giải pháp trên, nhưng thay vào đó hãy sắp xếp theo số cột. Ví dụ: thư viện (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