Bir data.table uygulamasında nasıl çalışırım?

Question

2 ile 20 arasındaki sütunlarda boşluk içeren dizelerle (ör., "Tür Adı") data.table var. Tüm bu sütunlarda aynı anda str_replace()'u çalıştırmak istiyorum, böylece tüm "Tür Adı", "Species_Name" olur.

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

ya ben data.table nesne olarak tutarsan, o zaman ben bir anda bu bir sütun yapabilirsiniz: Yapabileceğim ya tüm sütunlar 2 ile için bunu nasıl

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

Yukarıdakilerden birine benzer mi?

Answer 1

Tamamen 2015-11-24 tamamen yeniden tasarlanan, önceki sürümlerinde bir hatayı düzeltmek için.

Birkaç seçeneğiniz var. yerinde modifiye değerlerini atamak için := kullanılarak lapply() için

1. Süreç gömülü çağrısıyla hedef sütunları bütün bunların. Bu , LHS'de adlandırılmış birkaç sütuna eş zamanlı olarak atamak için çok kullanışlı bir destek olan :='a dayanır.

2. kullanın for döngü hedef sütunları sırayla her birinin değerini değiştirmek için set() kullanarak aynı anda bir, geçmek için.

3. kullanın for döngü, her biri tek bir sütun modifiye , [.data.table() çağrıları birden çok "naif" yineleme için.

Bu yöntemler hepsi eşit hızlı hakkında görünüyor, bu nedenle hangisini tadı çoğunlukla bir mesele olacaktır kullanın. (1) güzel kompakt ve ifade eder. En sık kullandığım şey, (2) okumayı daha kolay bulabilir. Sütunları tek tek işledikleri ve değiştirdikleri için, (2) veya (3) verilerinizin çok az olduğu bir durumda bir avantajı olacaktır. Bu nedenle, sizin tarafınızdan verilen limitlerine karşı koşma tehlikesi vardır. R oturumu kullanılabilir bellek. set() ve := ilgili ayrıntılı bilgi için

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 veya ?":=" yazarak kazanılmış onların yardım sayfasını, okuyun.

Answer 2

Bunu yapabilirsin:

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