Подтвердить что ты не робот

R Datatable, примените функцию к подмножеству столбцов

Я пытаюсь применить функцию к группе столбцов в большой таблице данных, не обращаясь к каждой отдельно.

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')

с MWE выше, это:

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

работает, но это:

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

не работает. Каков правильный способ применения функции as.numeric только к столбцам 2 и 3 раздела a без ссылки на них по отдельности.

(В фактическом наборе данных есть десятки столбцов, поэтому это было бы нецелесообразно)

Спасибо

4b9b3361

Ответ 1

Идиоматический подход заключается в использовании .SD и .SDcols

Вы можете заставить RHS оценивать в родительском фрейме, обернув в ()

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

Для столбцов 2: 3

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

или

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