136

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

ただし、それにはデータセット全体を再度コピーする必要があります。これを行う別の方法はありますか?

4

2 に答える 2

203

使用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*関数は参照によって入力を変更します。つまり、1 列分の大きさの一時的な作業メモリを除いて、コピーはまったく作成されません。

かなり効率的なはずです。詳細?setcolorderについては、を参照してください。

于 2012-09-01T23:02:43.243 に答える