कनवर्ट करें * कुछ * कॉलम क्लासेस डेटा.table

Question

में मैं डेटाटेबल कोल्स का एक सबसेट एक नई कक्षा में कनवर्ट करना चाहता हूं। यहाँ एक लोकप्रिय सवाल है (Convert column classes in data.table) लेकिन उत्तर स्टार्टर ऑब्जेक्ट पर काम करने के बजाए एक नई वस्तु बनाता है।

dat <- data.frame(ID=c(rep("A", 5), rep("B",5)), Quarter=c(1:5, 1:5), value=rnorm(10)) 
cols <- c('ID', 'Quarter') 

कैसे सबसे अच्छा (जैसे) एक कारक के लिए सिर्फ cols कॉलम में बदलने के लिए:

इस उदाहरण लें? एक सामान्य data.frame में आप ऐसा कर सकता है:

dat[, cols] <- lapply(dat[, cols], factor) 

लेकिन यह एक data.table लिए काम नहीं करता है, और न तो इस

dat[, .SD := lapply(.SD, factor), .SDcols = cols] 

मैट Dowle से जुड़ा हुआ प्रश्न में एक टिप्पणी करता है (दिसंबर 2013 से) निम्नलिखित का सुझाव देता है, जो ठीक काम करता है, लेकिन थोड़ा कम सुरुचिपूर्ण लगता है।

for (j in cols) set(dat, j = j, value = factor(dat[[j]])) 

वर्तमान में एक बेहतर data.table जवाब है (अर्थात कम + एक काउंटर चर उत्पन्न नहीं करता है), या मैं बस के ऊपर स्थित + rm(j) इस्तेमाल करना चाहिए?

Answer 1

, इस प्रकार स्तंभ वर्गों को बदलने का एक और तरीका है ऑपरेटर आप संदर्भ द्वारा डेटाटेबल अद्यतन करते हैं। एक चेक कि क्या यह काम किया:

for (col in cols) set(dat, j = col, value = factor(dat[[col]])) 

जो ही परिणाम प्राप्त होगा:

> sapply(dat,class) 
     ID Quarter  value 
"factor" "factor" "numeric" 

टिप्पणी में @MattDowle द्वारा suggeted रूप में, आप भी for(...) set(...) का एक संयोजन के रूप में इस का उपयोग कर सकते हैं। एक तीसरा विकल्प नहीं है:

for (col in cols) dat[, (col) := factor(dat[[col]])] 

एक छोटे डेटासेट पर, for(...) set(...) विकल्प के बारे में तीन बार lapply विकल्प की तुलना में तेजी है (लेकिन वह वास्तव में बात है क्योंकि यह एक छोटे से डाटासेट है नहीं है,)। बड़े डेटासेट्स (जैसे 2 मिलियन पंक्तियां) पर, इनमें से प्रत्येक दृष्टिकोण में लगभग उसी समय लगते हैं। एक बड़ा डाटासेट पर परीक्षण के लिए, मैं प्रयोग किया है:

dat <- data.table(ID=c(rep("A", 1e6), rep("B",1e6)), 
        Quarter=c(1:1e6, 1:1e6), 
        value=rnorm(10)) 

---

कभी कभी, आप इसे थोड़ा अलग करने के लिए (उदाहरण के लिए जब संख्यात्मक मान एक कारक के रूप में जमा हो जाती) होगा।तो फिर तुम कुछ इस तरह उपयोग करने के लिए:

dat[, (cols) := lapply(.SD, function(x) as.integer(as.character(x))), .SDcols=cols] 

---

---

चेतावनी:निम्नलिखित विवरण नहीं काम करने के data.table -तरह है। डेटाटेबल संदर्भ द्वारा अपडेट नहीं किया गया है क्योंकि एक प्रतिलिपि बनाई जाती है और स्मृति में संग्रहीत होती है (जैसा कि @ फ्रैंक द्वारा इंगित किया गया है), जो स्मृति उपयोग को बढ़ाता है। यह with=FALSE के कामकाज की व्याख्या करने के लिए एक और अतिरिक्त है।

आप स्तंभ कक्षाएं एक ही तरह से बदलने के लिए के रूप में आप एक dataframe साथ करना होगा चाहते हैं, तो आप इस प्रकार with = FALSE जोड़ने के लिए:

dat[, cols] <- lapply(dat[, cols, with = FALSE], factor) 

एक चेक कि क्या यह काम किया:

> sapply(dat,class) 
     ID Quarter  value 
"factor" "factor" "numeric" 

आप with = FALSE शामिल नहीं करते हैं, datatable dat[, cols] वेक्टर के रूप में मूल्यांकन करेंगे। dat[, cols] और dat[, cols, with=FALSE] के बीच उत्पादन में अंतर की जाँच करें:

> dat[, cols] 
[1] "ID"  "Quarter" 

> dat[, cols, with=FALSE] 
    ID Quarter 
1: A  1 
2: A  2 
3: A  3 
4: A  4 
5: A  5 
6: B  1 
7: B  2 
8: B  3 
9: B  4 
10: B  5 

Answer 2

आप .SDcols उपयोग कर सकते हैं:

dat[, (cols) := lapply(.SD, factor), .SDcols=cols] 

:= का उपयोग करके: विकल्प का उपयोग करने के अलावा के रूप में मैट Dowle ने सुझाव दिया

dat[, cols] <- dat[, lapply(.SD, factor), .SDcols=cols]