Boa tarde,

Estou usando a função heatmap para fazer um grafico da correlação entre 30
empresas. Porém a diagonal toda da matriz é 1, e a cor que aparece não é
branco para todas elas. Alguém saberia me dizer o por quê disso?
Abaixo segue o código.

Muito obrigada,

Michelle

> if (!require("gplots")) {
+   install.packages("gplots", dependencies = TRUE)
+   library(gplots)
+ }
> if (!require("RColorBrewer")) {
+   install.packages("RColorBrewer", dependencies = TRUE)
+   library(RColorBrewer)
+ }
> library(gplots)
> library(RColorBrewer)
>
>
>
file<-read.table("/Users/bau/Análise20%/MatrizCorrelaçãoHoraFixaAn20%2Verificação.txt",
head=TRUE)
>
>   matriz<-as.matrix(file)
>   matriz
          V1         V2        V3        V4        V5        V6        V7
      V8
1   1.000000 -0.1488000 -0.120220 -0.278740  0.812920 -0.153150 -0.246640
-0.0706680
2  -0.148800  1.0000000 -0.094092 -0.291490 -0.026490 -0.084461 -0.274460
-0.0053051
3  -0.120220 -0.0940920  1.000000 -0.038117 -0.156290  0.443590  0.555750
-0.0185260
4  -0.278740 -0.2914900 -0.038117  1.000000 -0.186330 -0.316690 -0.233550
-0.1683500
5   0.812920 -0.0264900 -0.156290 -0.186330  1.000000 -0.179180 -0.240810
-0.0821580
6  -0.153150 -0.0844610  0.443590 -0.316690 -0.179180  1.000000  0.314870
-0.0805790
7  -0.246640 -0.2744600  0.555750 -0.233550 -0.240810  0.314870  1.000000
-0.1081200
8  -0.070668 -0.0053051 -0.018526 -0.168350 -0.082158 -0.080579 -0.108120
 1.0000000
9  -0.103610 -0.2866200 -0.138530 -0.415740 -0.240890 -0.147270 -0.217480
 0.1628300
10 -0.049682 -0.0473140 -0.051863 -0.214470 -0.060698 -0.118840 -0.111480
 0.9682600
11 -0.263810 -0.2668200 -0.218920 -0.481630 -0.244870 -0.240020 -0.111070
-0.1727900
12 -0.188570 -0.0335670  0.602170 -0.189760 -0.223400  0.375510  0.474240
-0.1309300
13 -0.241810 -0.1810300  0.313570 -0.352580 -0.243430  0.235260  0.197230
-0.1601100
14 -0.236110 -0.1327000  0.221720 -0.417150 -0.283360 -0.026711  0.061281
 0.2914000
15 -0.196730 -0.2440000 -0.180820 -0.472170 -0.120510 -0.266970 -0.263940
 0.4074900
16 -0.242250 -0.2702000 -0.176820 -0.406400 -0.234990 -0.210460  0.025799
-0.1415800
17 -0.210830 -0.2452300 -0.194290 -0.340790 -0.188320 -0.318860 -0.244580
-0.0325100
18 -0.205970 -0.2793200 -0.158450 -0.395590 -0.103040 -0.040617 -0.165250
-0.0957780
19 -0.174340 -0.1529100  0.581590 -0.197270 -0.170600  0.362750  0.411190
-0.0440840
20 -0.236400 -0.3040200 -0.259570 -0.432960 -0.277750 -0.257810 -0.498010
-0.2060400
21  0.627290 -0.1816700 -0.148760 -0.334340  0.625360 -0.200010 -0.211250
-0.0982320
22  0.646400 -0.2604900 -0.107130 -0.347920  0.598150 -0.246790 -0.177750
-0.1006800
23 -0.166960 -0.3303900 -0.170460 -0.480110 -0.134900 -0.297750 -0.256080
 0.0181360
24 -0.175720 -0.2457900 -0.334160 -0.475940 -0.279300 -0.476930 -0.122630
-0.1589900
25 -0.239010 -0.2516100 -0.261780 -0.358940 -0.243110 -0.330530 -0.418030
-0.0720400
26 -0.072637 -0.1991100 -0.108510 -0.306400 -0.122220 -0.110840 -0.035140
-0.0188130
27 -0.239730  0.0208830 -0.317810 -0.562200 -0.224260 -0.350740 -0.357450
-0.2385000
28 -0.081665 -0.0172600 -0.057269 -0.187130 -0.089078 -0.092451 -0.107760
 0.9782200
29 -0.287560 -0.4044900 -0.222730 -0.402910 -0.246270 -0.374840 -0.170290
-0.2050000
30 -0.240640 -0.2494600 -0.161820 -0.363650 -0.301390 -0.335640 -0.221850
-0.0917310
          V9       V10        V11       V12       V13       V14      V15
    V16
1  -0.103610 -0.049682 -0.2638100 -0.188570 -0.241810 -0.236110 -0.19673
-0.242250
2  -0.286620 -0.047314 -0.2668200 -0.033567 -0.181030 -0.132700 -0.24400
-0.270200
3  -0.138530 -0.051863 -0.2189200  0.602170  0.313570  0.221720 -0.18082
-0.176820
4  -0.415740 -0.214470 -0.4816300 -0.189760 -0.352580 -0.417150 -0.47217
-0.406400
5  -0.240890 -0.060698 -0.2448700 -0.223400 -0.243430 -0.283360 -0.12051
-0.234990
6  -0.147270 -0.118840 -0.2400200  0.375510  0.235260 -0.026711 -0.26697
-0.210460
7  -0.217480 -0.111480 -0.1110700  0.474240  0.197230  0.061281 -0.26394
 0.025799
8   0.162830  0.968260 -0.1727900 -0.130930 -0.160110  0.291400  0.40749
-0.141580
9   1.000000  0.111420 -0.3292500 -0.117090 -0.183380 -0.138610  0.10657
-0.297930
10  0.111420  1.000000 -0.1616400 -0.158130 -0.193640  0.249040  0.38221
-0.167030
11 -0.329250 -0.161640  1.0000000 -0.365690 -0.437690 -0.460970 -0.19613
 0.173440
12 -0.117090 -0.158130 -0.3656900  1.000000  0.262660  0.152760 -0.28939
-0.286680
13 -0.183380 -0.193640 -0.4376900  0.262660  1.000000 -0.036207 -0.27265
-0.217780
14 -0.138610  0.249040 -0.4609700  0.152760 -0.036207  1.000000 -0.17618
-0.350990
15  0.106570  0.382210 -0.1961300 -0.289390 -0.272650 -0.176180  1.00000
-0.329490
16 -0.297930 -0.167030  0.1734400 -0.286680 -0.217780 -0.350990 -0.32949
 1.000000
17 -0.142130 -0.041754 -0.3445100 -0.241300 -0.370250 -0.241910 -0.12044
-0.399280
18 -0.240860 -0.132840 -0.2431700 -0.205090 -0.395380 -0.246830 -0.26935
-0.405670
19 -0.133520 -0.045900 -0.2048300  0.445090  0.349490  0.098674 -0.12891
-0.145070
20 -0.284450 -0.268370 -0.4866800 -0.490160 -0.413300 -0.534260 -0.39506
-0.440230
21 -0.215960 -0.084613 -0.2693500 -0.224280 -0.053839 -0.298130 -0.19650
-0.249920
22 -0.290980 -0.088546 -0.2989100 -0.280310 -0.335690 -0.178300 -0.27805
-0.286220
23 -0.431420  0.024286 -0.3099400 -0.297010 -0.458870 -0.393310 -0.18978
-0.149720
24 -0.461750 -0.174440 -0.2290000 -0.263640 -0.384700 -0.321700 -0.37221
-0.111130
25 -0.277500 -0.117370 -0.3217100 -0.435670 -0.297100 -0.336510 -0.30911
-0.126820
26  0.028362 -0.038184 -0.0044301 -0.051589 -0.238220 -0.292680 -0.20221
 0.068210
27 -0.297810 -0.279020 -0.6358500 -0.315320 -0.461570 -0.565570 -0.50525
-0.525960
28  0.138330  0.964190 -0.1637700 -0.135670 -0.175530  0.290640  0.40377
-0.175950
29 -0.377810 -0.226910 -0.0314590 -0.325840 -0.322050 -0.389640 -0.42031
-0.045736
30 -0.274010 -0.103120 -0.4103000 -0.299110 -0.285560 -0.338200 -0.48234
-0.446340
         V17       V18       V19      V20       V21       V22       V23
  V24
1  -0.210830 -0.205970 -0.174340 -0.23640  0.627290  0.646400 -0.166960
-0.175720
2  -0.245230 -0.279320 -0.152910 -0.30402 -0.181670 -0.260490 -0.330390
-0.245790
3  -0.194290 -0.158450  0.581590 -0.25957 -0.148760 -0.107130 -0.170460
-0.334160
4  -0.340790 -0.395590 -0.197270 -0.43296 -0.334340 -0.347920 -0.480110
-0.475940
5  -0.188320 -0.103040 -0.170600 -0.27775  0.625360  0.598150 -0.134900
-0.279300
6  -0.318860 -0.040617  0.362750 -0.25781 -0.200010 -0.246790 -0.297750
-0.476930
7  -0.244580 -0.165250  0.411190 -0.49801 -0.211250 -0.177750 -0.256080
-0.122630
8  -0.032510 -0.095778 -0.044084 -0.20604 -0.098232 -0.100680  0.018136
-0.158990
9  -0.142130 -0.240860 -0.133520 -0.28445 -0.215960 -0.290980 -0.431420
-0.461750
10 -0.041754 -0.132840 -0.045900 -0.26837 -0.084613 -0.088546  0.024286
-0.174440
11 -0.344510 -0.243170 -0.204830 -0.48668 -0.269350 -0.298910 -0.309940
-0.229000
12 -0.241300 -0.205090  0.445090 -0.49016 -0.224280 -0.280310 -0.297010
-0.263640
13 -0.370250 -0.395380  0.349490 -0.41330 -0.053839 -0.335690 -0.458870
-0.384700
14 -0.241910 -0.246830  0.098674 -0.53426 -0.298130 -0.178300 -0.393310
-0.321700
15 -0.120440 -0.269350 -0.128910 -0.39506 -0.196500 -0.278050 -0.189780
-0.372210
16 -0.399280 -0.405670 -0.145070 -0.44023 -0.249920 -0.286220 -0.149720
-0.111130
17  1.000000 -0.338590 -0.225910 -0.45329 -0.212720 -0.258960 -0.327150
-0.220570
18 -0.338590  1.000000 -0.123500 -0.35347 -0.206230 -0.234200 -0.321910
-0.225490
19 -0.225910 -0.123500  1.000000 -0.30228 -0.180950 -0.237280 -0.269610
-0.332320
20 -0.453290 -0.353470 -0.302280  1.00000 -0.160310 -0.443100 -0.498960
-0.604740
21 -0.212720 -0.206230 -0.180950 -0.16031  1.000000  0.394940 -0.220940
-0.175960
22 -0.258960 -0.234200 -0.237280 -0.44310  0.394940  1.000000 -0.191920
-0.295690
23 -0.327150 -0.321910 -0.269610 -0.49896 -0.220940 -0.191920  1.000000
-0.140490
24 -0.220570 -0.225490 -0.332320 -0.60474 -0.175960 -0.295690 -0.140490
 1.000000
25 -0.357960 -0.439870 -0.245740 -0.45062 -0.296380 -0.284950 -0.336660
-0.372750
26 -0.099695 -0.289810 -0.190800 -0.16041 -0.071261 -0.219200 -0.111650
-0.023106
27 -0.516980 -0.148320 -0.330300 -0.57538 -0.288440 -0.420560 -0.667640
-0.552860
28 -0.029953 -0.068158 -0.037025 -0.21447 -0.102620 -0.114390 -0.020426
-0.182240
29 -0.386590 -0.372130 -0.114870 -0.59123 -0.328560 -0.407050 -0.379740
-0.086991
30 -0.296050 -0.491150 -0.252440 -0.20588 -0.176020 -0.156980 -0.549450
-0.447000
        V25        V26       V27       V28       V29       V30
1  -0.23901 -0.0726370 -0.239730 -0.081665 -0.287560 -0.240640
2  -0.25161 -0.1991100  0.020883 -0.017260 -0.404490 -0.249460
3  -0.26178 -0.1085100 -0.317810 -0.057269 -0.222730 -0.161820
4  -0.35894 -0.3064000 -0.562200 -0.187130 -0.402910 -0.363650
5  -0.24311 -0.1222200 -0.224260 -0.089078 -0.246270 -0.301390
6  -0.33053 -0.1108400 -0.350740 -0.092451 -0.374840 -0.335640
7  -0.41803 -0.0351400 -0.357450 -0.107760 -0.170290 -0.221850
8  -0.07204 -0.0188130 -0.238500  0.978220 -0.205000 -0.091731
9  -0.27750  0.0283620 -0.297810  0.138330 -0.377810 -0.274010
10 -0.11737 -0.0381840 -0.279020  0.964190 -0.226910 -0.103120
11 -0.32171 -0.0044301 -0.635850 -0.163770 -0.031459 -0.410300
12 -0.43567 -0.0515890 -0.315320 -0.135670 -0.325840 -0.299110
13 -0.29710 -0.2382200 -0.461570 -0.175530 -0.322050 -0.285560
14 -0.33651 -0.2926800 -0.565570  0.290640 -0.389640 -0.338200
15 -0.30911 -0.2022100 -0.505250  0.403770 -0.420310 -0.482340
16 -0.12682  0.0682100 -0.525960 -0.175950 -0.045736 -0.446340
17 -0.35796 -0.0996950 -0.516980 -0.029953 -0.386590 -0.296050
18 -0.43987 -0.2898100 -0.148320 -0.068158 -0.372130 -0.491150
19 -0.24574 -0.1908000 -0.330300 -0.037025 -0.114870 -0.252440
20 -0.45062 -0.1604100 -0.575380 -0.214470 -0.591230 -0.205880
21 -0.29638 -0.0712610 -0.288440 -0.102620 -0.328560 -0.176020
22 -0.28495 -0.2192000 -0.420560 -0.114390 -0.407050 -0.156980
23 -0.33666 -0.1116500 -0.667640 -0.020426 -0.379740 -0.549450
24 -0.37275 -0.0231060 -0.552860 -0.182240 -0.086991 -0.447000
25  1.00000 -0.3001800 -0.582360 -0.103130 -0.591400 -0.361260
26 -0.30018  1.0000000 -0.324240 -0.051578 -0.085934 -0.274650
27 -0.58236 -0.3242400  1.000000 -0.236760 -0.719200 -0.605090
28 -0.10313 -0.0515780 -0.236760  1.000000 -0.215050 -0.104520
29 -0.59140 -0.0859340 -0.719200 -0.215050  1.000000 -0.539620
30 -0.36126 -0.2746500 -0.605090 -0.104520 -0.539620  1.000000
>
rownames(matriz)<-c("AA","AIG","AXP","BA","CAT","C","DD","DIS","GE","GM","HD","HON","HPQ","IBM","INTC","JNJ","JPM","KO","MCD","MMM","MO","MRK","MSFT","PFE","PG","SBC","UTX","VZ","WMT","XOM")
>
colnames(matriz)<-c("AA","AIG","AXP","BA","CAT","C","DD","DIS","GE","GM","HD","HON","HPQ","IBM","INTC","JNJ","JPM","KO","MCD","MMM","MO","MRK","MSFT","PFE","PG","SBC","UTX","VZ","WMT","XOM")
>
>
>   my_palette <- colorRampPalette(c( "dark blue", "violet","white"))(n =
299)
>   png("/Users/bau/Grafico de calor/HeatMapCorrViolet2.jpeg",
+       width = 5*300,
+       height = 5*300,
+       res = 300,
+       pointsize = 8)
>
>
heatmap(matriz,Rowv=NA,Colv=NA,col=my_palette,scale="column",margins=c(5,10),main="Correlação_HoraFixa_2")
>   dev.off()
[image: Imagem inline 1]