मैं डेटाटेबल पर कैसे आवेदन करूं?

Question

मेरे पास data.table है जिसमें कॉलम 2 से 20 के साथ रिक्त स्थान के साथ तार (उदाहरण के लिए, "प्रजाति का नाम") है। मैं उन सभी स्तंभों पर एक साथ str_replace() चलाने के लिए चाहता हूं ताकि सभी "प्रजाति का नाम" "प्रजातियां नाम" बन जाए। मुझे क्या करना है या तो कर सकते हैं:

data.table(apply(as.data.frame(dt[,2:dim(dt)[2], with=F]), 2, 
           function(x){ str_replace(x," ","_") })) 

या अगर मैं इसे एक data.table वस्तु के रूप में रखने के लिए, तो मैं इस एक स्तंभ एक समय में कर सकते हैं:

dt[,SpeciesName := str_replace(SpeciesName, " ", "_") 

सभी स्तंभों 2 के माध्यम से के लिए मैं यह करने के लिए कैसे करते हैं उपरोक्त में से एक के समान अंत?

Answer 1

पूरी तरह से 2015/11/24 पर फिर से लिखा, पिछले संस्करणों में एक त्रुटि ठीक करने के लिए।

आपके पास कुछ विकल्प हैं।

1. lapply() को एक एम्बेडेड कॉल के साथ लक्ष्य के सभी कॉलम प्रक्रिया, := का उपयोग कर जगह में संशोधित प्रदान करना। यह := पर अपने एलएचएस पर नामित कई कॉलम के साथ एक साथ असाइनमेंट के लिए बहुत आसान समर्थन पर निर्भर करता है।

2. उपयोग एक for पाश लक्ष्य कॉलम एक समय में एक, set() का उपयोग कर बदले में हर एक के मूल्य को संशोधित करने के माध्यम से चलाने के लिए।

3. उपयोग एक for पाश से अधिक पुनरावृति के लिए कई "अनुभवहीन" , [.data.table() को, जिनमें से प्रत्येक एक एकल स्तंभ को संशोधित करता है कहता है।

इन विधियों सभी समान रूप से तेजी से के बारे में लग रहे हैं, तो आप किस स्वाद की ज्यादातर बात हो जाएगा का उपयोग करें। (1) अच्छी तरह से कॉम्पैक्ट है और अभिव्यक्तिपूर्ण है। यह वही है जो मैं अक्सर उपयोग करता हूं, हालांकि आपको (2) पढ़ने में आसान मिल सकता है। चूंकि वे एक समय में कॉलम को संसाधित और संशोधित करते हैं, (2) या (3) दुर्लभ स्थिति में एक लाभ प्राप्त करेंगे जिसमें आपका डेटा.table इतना बड़ा है कि आप सीमाओं के खिलाफ चलने के खतरे में हैं आर सत्र की उपलब्ध स्मृति।

library(data.table) 

## Create three identical 1000000-by-20 data.tables 
DT1 <- data.table(1:1e6, 
      as.data.table(replicate(1e6, paste(sample(letters, nr, TRUE), 
              sample(letters, nr, TRUE))))) 
cnames <- c("ID", paste0("X", 1:19)) 
setnames(DT1, cnames) 
DT2 <- copy(DT1); DT3 <- copy(DT1) 

## Method 1 
system.time({ 
DT1[, cnames[-1] := lapply(DT1[,cnames[-1],with=FALSE], 
         function(x) gsub(" ", "_", x))] 
}) 
## user system elapsed 
## 10.90 0.11 11.06 

## Method 2 
system.time({ 
    for(cname in cnames[-1]) { 
     set(DT2, j=cname, value=gsub(" ", "_", DT2[[cname]])) 
    } 
}) 
## user system elapsed 
## 10.65 0.05 10.70 

## Method 3 
system.time({ 
    for(cname in cnames[-1]) { 
     DT3[ , cname := gsub(" ", "_", DT3[[cname]]), with=FALSE] 
    } 
}) 
## user system elapsed 
## 10.33 0.03 10.37 

set() और := के बारे में अधिक जानकारी के लिए, उनकी मदद के पेज, ?set या ?":=" टाइप करके मिल पढ़ें।

Answer 2

आप ऐसा कर सकते हैं:

library("stringr") 
dt[, -1] <- lapply(dt[, -1], function(x) str_replace(x," ","_"))