R：corrplot包

> library(corrplot)
> head(mtcars,3)
               mpg cyl disp  hp drat    wt  qsec vs am gear carb
Mazda RX4     21.0   6  160 110 3.90 2.620 16.46  0  1    4    4
Mazda RX4 Wag 21.0   6  160 110 3.90 2.875 17.02  0  1    4    4
Datsun 710    22.8   4  108  93 3.85 2.320 18.61  1  1    4    1
> cordata<-cor(mtcars[,1:7])
> cordata
            mpg        cyl       disp         hp        drat         wt        qsec
mpg   1.0000000 -0.8521620 -0.8475514 -0.7761684  0.68117191 -0.8676594  0.41868403
cyl  -0.8521620  1.0000000  0.9020329  0.8324475 -0.69993811  0.7824958 -0.59124207
disp -0.8475514  0.9020329  1.0000000  0.7909486 -0.71021393  0.8879799 -0.43369788
hp   -0.7761684  0.8324475  0.7909486  1.0000000 -0.44875912  0.6587479 -0.70822339
drat  0.6811719 -0.6999381 -0.7102139 -0.4487591  1.00000000 -0.7124406  0.09120476
wt   -0.8676594  0.7824958  0.8879799  0.6587479 -0.71244065  1.0000000 -0.17471588
qsec  0.4186840 -0.5912421 -0.4336979 -0.7082234  0.09120476 -0.1747159  1.00000000
> corrplot(corr=cordata)    #參數所有默認狀況下的相關係數圖

> corrplot(corr=cordata,method="number",col="black",cl.pos="n")    #指定數值方法的相關係數圖

> corrplot(corr=cordata,order="AOE")    #按照特徵向量角序(AOE)排序相關係數圖

> corrplot(corr=cordata,order="AOE",addCoef.col="grey")    #同時添加相關係數值

> corrplot(corr=cordata,method="color",order="AOE",addCoef.col="grey")    #選擇方法爲color

> corrplot(corr=cordata,add=TRUE,type="lower",method="number",order="AOE",diag=FALSE,tl.pos="n",cl.pos="n")