五数概括
summary(study[,c("age","sex","bmi","map","tc","ldl","hdl","tch","ltg","glu","y" )])
箱线图
study$age<-scale(study$age,center = T,scale = T)
study$bmi<-scale(study$bmi,center = T,scale = T)
study$map<-scale(study$map,center = T,scale = T)
study$tc<-scale(study$tc,center = T,scale = T)
study$ldl<-scale(study$ldl,center = T,scale = T)
study$hdl<-scale(study$hdl,center = T,scale = T)
study$tch<-scale(study$tch,center = T,scale = T)
study$ltg<-scale(study$ltg,center = T,scale = T)
study$glu<-scale(study$glu,center = T,scale = T)
study$y<-scale(study$y,center = T,scale = T)
boxplot(study[,c("age","bmi","map","tc","ldl","hdl","tch","ltg","glu","y")],col =c(2,3,4,5,6,7,8,9,10,11),
main="Boxplot of variables", xlab="variables",ylab="value")