R Datatable, wenden Sie eine Funktion auf eine Teilmenge von Spalten an

Question

Ich versuche, eine Funktion auf eine Gruppe von Spalten in einer großen data.table anzuwenden, ohne auf jede einzeln zu verweisen.

a <- data.table(
    a=as.character(rnorm(5)), 
    b=as.character(rnorm(5)), 
    c=as.character(rnorm(5)), 
    d=as.character(rnorm(5)) 
) 
b <- c('a','b','c','d') 

mit MWE oben, dies:

a[,b=as.numeric(b),with=F] 

funktioniert, aber dies:

a[,b[2:3]:=data.table(as.numeric(b[2:3])),with=F] 

funktioniert nicht. Was ist der richtige Weg, um die as.numeric Funktion nur auf die Spalten 2 und 3 von a anzuwenden, ohne sie einzeln zu erwähnen.

(In dem aktuellen Datensatz gibt zig Spalten ist, so dass es unpraktisch wäre)

Dank

Answer 1

Der idiomatische Ansatz ist die Verwendung .SD und .SDcols

Sie können die RHS zwingen zu sein in () in dem übergeordneten Rahmen von Verpackung bewertet

a[, (b) := lapply(.SD, as.numeric), .SDcols = b] 

Für Spalten 2: 3

a[, 2:3 := lapply(.SD, as.numeric), .SDcols = 2:3] 

oder

mysubset <- 2:3 
a[, (mysubset) := lapply(.SD, as.numeric), .SDcols = mysubset]