comment convertir toutes les colonnes d'une dataframe en facteurs dans r

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