聚類：圓形樹狀圖
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) #畫圖
相關性矩陣
#先畫右上角部分圖形
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")
