install.packages("dlookr")
library(dlookr)
mtcars[,8:11] <- lapply( mtcars[,8:11] ,as.factor)
str(mtcars)
'data.frame': 32 obs. of 11 variables:
$ mpg : num 21
02-06
1324
![](https://csdnimg.cn/release/blogv2/dist/pc/img/readCountWhite.png)
07-28
9171
![](https://csdnimg.cn/release/blogv2/dist/pc/img/readCountWhite.png)