El error se debe fundamentalmente por que alguna de las columnas es un factor
y no un dato numérico. Este sería un ejemplo:
normalize <- function(x) {return ((x - min(x)) / (max(x) - min(x)))}
v <- factor(rnorm(10))
normalize(v)
Error in Summary.factor(c(9L, 3L, 4L, 5L, 6L, 7L, 8L, 2L, 1L, 10L), na.rm = FALSE) :
‘min’ not meaningful for factors
Ya la primer función min()
no tiene sentido con factor
. Acá se abren algunas posibilidades:
1. Efectivamente el dato es un factor y no corresponde normalizarlo
Puedes condicionar la aplicación de normalize
o modificar normalize
para que tenga en cuenta que hacer si le llega un factor
, pero claramente no deberíamos aplicar esta función en las columnas que son factor
, entonces lo ideal para mi gusto, es aplicar normalize
solo en la columnas que corresponda y no en el data.frame
completo. Con names(datos)[-sapply(df, is.factor)]
obtenemos los nombres de las columnas que no son factores, por lo que podemos hacer un subset del data.frame
original y aplicar normalize
en él:
lapply(datos[ ,names(datos)[-sapply(df, is.factor)], drop=FALSE], normalize)
2. Aún siendo un factor queremos normalizarlo
Convertir un factor
a numérico (siempre que tenga sentido hacerlo), se hace mediante as.numeric(as.character(x))
, tu lapply
podría expresarse así:
lapply(datos, function(x) {if(is.factor(x)){as.numeric(as.character(x))}else{normalize(x)}})
Nota: llegado el caso, mejor que convertir el factor
en un numérico, es analizar por que la lectura del csv
produce un factor
y corregir esto.