cómo convertir todas las columnas de un marco de datos en factores en r

DF[sapply(DF, is.character)] <- lapply(DF[sapply(DF, is.character)], 
                                       as.factor)
Worrisome Wombat