আমি আমার মধ্যে পুনর্বিন্যাস কলাম চাই 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সত্যই really