如何作出相關係數矩陣可視化圖

如何在R中優雅地繪製相關係數矩陣

install.packages("psych")
install.packages("corrplot")#安裝包，若是已安裝，請略過
library(psych)
library(corrplot)#載入兩個包
data(iris)#機器學習經常使用神奇數據集——鳶尾花數據集
head(iris)#查看下數據集前五行
irisnew<-iris[,-5]#去除第五列種類變量
cormat<-corr.test(irisnew)#相關係數分析及顯著性檢驗
#最簡單的相關係數矩陣可視化
corrplot(cormat$r)

corrplot(cormat$r,method="square")

corrplot(cormat$r,method = "number")

corrplot(cormat$r,method = "shade")

corrplot(cormat$r,method="ellipse")

corrplot(cormat$r,method = "pie")

corrplot(cormat$r,method="square",type="lower",title = "Correlation of iris")

#含顯著性檢驗的相關係數矩陣可視化
cormatp<-cormat$p#單獨取出p值矩陣
cormatp[upper.tri(cormatp)]=0#設置p值矩陣上三角等於0
corrplot(cormat$r,method="square",type="lower",title = "Correlation of iris",tl.cex=1.5,tl.pos = "lt",number.cex=1,p.mat=cormatp,sig.level=0.05,insig=c("pch"))

corrplot(cormat$r,method="square",type="full",title = "Correlation of iris",tl.cex=1.5,tl.pos = "lt",number.cex=1,p.mat=cormatp,sig.level=0.05,insig=c("pch"))

corrplot.mixed(cormat$r,upper = "square",lower = "number",diag = "u",tl.cex=1.5,tl.pos = "lt",number.cex=1,p.mat=cormatp,sig.level=0.05,insig=c("pch"))