Jak przekonwertować wszystkie kolumny ramki danych na czynniki w R

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