Я хотів би змінити порядок стовпців в моєму 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див.
setcolorder(df, c("someCol",colnames(dt)[!(colnames(dt) %in% c("someCol"))]))
setcolorder()тепер ncol(DT)приймається менше, ніж стовпчики, щоб бути переміщені на фронт"
Можливо, легше використовувати вищезазначене рішення, але замість цього сортувати за номером стовпця Наприклад: бібліотека (таблиця даних)
> 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
setcolorderпереміщує покажчики стовпців навколо, не використовуючи жодної робочої пам'яті. Це речення про використання робочої пам’яті великим, як один стовпець, майжеsetkeyсправді.