Graphique de la matrice de corr?lation en utilisant la fonction symnum

La fonction symnum de R peut ?tre utilis?e pour mettre en ?vidence, tr?s facilement, les variables les plus corr?l?es. Elle remplace les coefficients de corr?lation par des symboles en fonction de la valeur.

Le format simplifi? de la fonction est :

symnum(x, cutpoints = c(0.3, 0.6, 0.8, 0.9, 0.95),
       symbols = c(" ", ".", ",", "+", "*", "B"))

- x est la matrice de corr?lation ? visualiser - cutpoints : Les cutpoints des coefficients de corr?lation. Les coefficients de corr?lation entre 0 et 0.3 sont remplac?s par un espace (" ?); les coefficients de corr?lation entre 0.3 et 0.6 sont remplac?s par?.?; etc ? - symbols : Les symboles ? utiliser.

Le code R suivant calcule la table de corr?lation et affiche un graphique de la matrice de corr?lation:

## Matrice de corr?lation
corMat<-cor(mtcars)
head(round(corMat,2))

       mpg   cyl  disp    hp  drat    wt  qsec    vs    am  gear  carb
mpg   1.00 -0.85 -0.85 -0.78  0.68 -0.87  0.42  0.66  0.60  0.48 -0.55
cyl  -0.85  1.00  0.90  0.83 -0.70  0.78 -0.59 -0.81 -0.52 -0.49  0.53
disp -0.85  0.90  1.00  0.79 -0.71  0.89 -0.43 -0.71 -0.59 -0.56  0.39
hp   -0.78  0.83  0.79  1.00 -0.45  0.66 -0.71 -0.72 -0.24 -0.13  0.75
drat  0.68 -0.70 -0.71 -0.45  1.00 -0.71  0.09  0.44  0.71  0.70 -0.09
wt   -0.87  0.78  0.89  0.66 -0.71  1.00 -0.17 -0.55 -0.69 -0.58  0.43

## Graphique de la corr?lation
## abbr.colnames=FALSE pour ?viter que 
#le nom des colonnnes soit abbr?g?s
symnum(corMat, abbr.colnames=FALSE)

     mpg cyl disp hp drat wt qsec vs am gear carb
mpg  1                                           
cyl  +   1                                       
disp +   *   1                                   
hp   ,   +   ,    1                              
drat ,   ,   ,    .  1                           
wt   +   ,   +    ,  ,    1                      
qsec .   .   .    ,          1                   
vs   ,   +   ,    ,  .    .  ,    1              
am   .   .   .       ,    ,          1           
gear .   .   .       ,    .          ,  1        
carb .   .   .    ,       .  ,    .          1   
attr(,"legend")
[1] 0 ' ' 0.3 '.' 0.6 ',' 0.8 '+' 0.9 '*' 0.95 'B' 1

Conclusions