R Применить функцию на колоннах рамных данных

Question

У меня есть функция в R, чтобы превратить факторы в цифровой:

as.numeric.factor <- function(x) {as.numeric(levels(x))[x]} 

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

Answer 1

Один из вариантов:

dat[] <- lapply(dat, function(x) if(is.factor(x)) as.numeric(levels(x))[x] else x) 

Answer 2

Вы можете проверить, является ли столбец factor или нет на is.factor и sapply. Используйте это как индекс, чтобы отфильтровать эти столбцы и преобразовать столбцы в числовые значения as.numeric.factor в цикле lapply.

indx <- sapply(dat, is.factor) 
dat[indx] <- lapply(dat[indx], as.numeric.factor) 

Можно также применить функцию без Подменю (но применять его на подмножестве будет быстрее)

Чтобы предотвратить столбцы должны быть преобразованы в «фактор», можно указать stringsAsFactors=FALSE аргумент или colClasses аргумент в пределах read.table/read.csv Я бы предположил, что столбцы имеют по крайней мере один нечисловой компонент, который автоматически преобразует это значение в factor при чтении набора данных.