聚类:圆形树状图
library(ape)
hc = hclust(dist(mtcars))
plot(as.phylo(hc), type = "fan")
决策树
library(rpart)
library(rpart.plot)
model<- rpart(label ~ sd+Q25+IQR+sp.ent+sfm+meanfun+mode, data = tree,method="class",parms=list(split="information"))
fancyRpartPlot(model) #画图
相关性矩阵
注意:如果元数据中有NA这类缺失异常值,矩阵图是出不来的,请先做好数据清理
1、
#先画右上角部分图形
corrplot(corr = cor(data),type="upper",tl.pos="tp")
#再添加左下部分的数值
corrplot(corr = cor(data),add=T, type="lower", method="number",diag=T,tl.pos="n",cl.pos="n")