DK
когда у вас 170 столбцов и лишь половина из них числовые - то как бы не очень удобно указывать их номера ручками
Size: a a a
2021 May 07
ИЕ
Кажется, нужна нормализация данных и рассовывание их по разным таблицам.
A
Надо просто получить вектор с именами числовых столбцов
A
names(dt)[sapply(dt, is.numeric)]
DK
ну как вариант, а что-то более изящное?
A
Это и есть самое изящное
A
Только базовые функции, никакого NSE
БА
ТоваRищи, а кто может ответить на два-три вопроса по версионированию в R? Для shiny&
DK
тогда все таки map_if интереснее ИМХО
A
Ну и можно, конечно, создать функцию
get_numeric_cols(dt) с этим самым однострочником внутриA
Только для него data.table не нужен
DK
тоже понятно, это интереснее т.к. можно указывать разные типы колонок, но тогда с NSE придется поработать
A
map_if(dt, is.numeric, log) делает то же самое
DK
мдя
AS
Что ж вы все такие торопыжки...
A
В первом случае же еще присваивание по ссылке идет
PU
ну что вы усложняете...
> library(data.table)
>
> my_dt <- data.table(
+ var1 = 1:5,
+ var2 = letters[1:5],
+ var3 = sample(10, 5)
+ )
>
> my_dt[, lapply(.SD, mean), .SDcols = is.numeric]
var1 var3
1: 3 4.8
DK
var2 потеряли ))
PU
она же строковая