h
и ещё круто, всегда имейте в 5-10 раз больше ОП чем ваш набор данных
Size: a a a
h
h
IS
h
IS
ГД
apply
лучше вообще не использовать. Он матрицу вернет и вообще вид его результат сложно предугадать. В вашем случае lapply
поможет:D1[] <- lapply(D1, function (x) as.numeric(factor(x)))
D1[] <- lapply(D1, function (x) recode(x, "1:2 = 0; 3:4 = 1; NA = 0"))
AS
IS
mutate_all(D1, ~as.numeric(factor(.x)))
? # хочу сразу все колонки в D1 в цифровой код перевестиГД
IS
D1[, lapply(.SD, ~as.numeric(factor(.x)))]
?AS
IS
ГД
S
AS
MV
ДВ
h
S