melon <- read.table("~/CONGRESO/Articulos INIFAP/melon.txt")
#correlaccion de los datos
cor(melon)
## PF PS NH NFM NFH AF
## PF 1.00000000 0.9410264 0.94114375 0.94114375 0.9103095 0.9015621
## PS 0.94102641 1.0000000 0.98951409 0.98951409 0.9747959 0.9935741
## NH 0.94114375 0.9895141 1.00000000 1.00000000 0.9494473 0.9816959
## NFM 0.94114375 0.9895141 1.00000000 1.00000000 0.9494473 0.9816959
## NFH 0.91030947 0.9747959 0.94944734 0.94944734 1.0000000 0.9801645
## AF 0.90156209 0.9935741 0.98169587 0.98169587 0.9801645 1.0000000
## NF 0.51269415 0.6810782 0.63341897 0.63341897 0.5818679 0.6824269
## PFTO 0.74784241 0.8416368 0.82206777 0.82206777 0.7257869 0.8202858
## PHOTO 0.86391722 0.8859626 0.89261774 0.89261774 0.7881745 0.8564946
## TRAN 0.93265202 0.9724719 0.94705929 0.94705929 0.9850328 0.9662611
## COND 0.97143101 0.9869109 0.97320616 0.97320616 0.9725475 0.9693630
## CI 0.74189748 0.6903433 0.67348496 0.67348496 0.7667870 0.6788603
## ATF46 -0.64325954 -0.5272622 -0.47557179 -0.47557179 -0.6657923 -0.5090836
## ATF91 0.15796057 0.1699392 0.21953768 0.21953768 0.2970153 0.2211656
## ATFTO 0.07351669 -0.1185380 -0.04540389 -0.04540389 -0.2105781 -0.1759166
## ORP -0.70663362 -0.5423938 -0.46815538 -0.46815538 -0.5696982 -0.4727952
## SST 0.02672959 0.2353630 0.21191260 0.21191260 0.1647510 0.2650490
## NF PFTO PHOTO TRAN COND
## PF 0.51269415 0.74784241 0.863917215 0.9326520 0.9714310
## PS 0.68107820 0.84163684 0.885962610 0.9724719 0.9869109
## NH 0.63341897 0.82206777 0.892617740 0.9470593 0.9732062
## NFM 0.63341897 0.82206777 0.892617740 0.9470593 0.9732062
## NFH 0.58186792 0.72578691 0.788174547 0.9850328 0.9725475
## AF 0.68242688 0.82028584 0.856494643 0.9662611 0.9693630
## NF 1.00000000 0.91757655 0.786833373 0.5678366 0.5983229
## PFTO 0.91757655 1.00000000 0.883400982 0.7557869 0.7992357
## PHOTO 0.78683337 0.88340098 1.000000000 0.7689318 0.8443414
## TRAN 0.56783665 0.75578687 0.768931793 1.0000000 0.9884868
## COND 0.59832290 0.79923570 0.844341393 0.9884868 1.0000000
## CI 0.05836475 0.34654693 0.332133926 0.8278925 0.7774851
## ATF46 0.05454539 -0.09549574 -0.276728733 -0.6615975 -0.6192898
## ATF91 -0.38406572 -0.33444734 0.005130772 0.1886978 0.1584981
## ATFTO -0.12378900 -0.10982226 0.263978684 -0.2613380 -0.1300030
## ORP -0.29982896 -0.43521942 -0.487113429 -0.6246609 -0.6378339
## SST 0.49420685 0.51652280 0.081133319 0.2444531 0.1962239
## CI ATF46 ATF91 ATFTO ORP
## PF 0.74189748 -0.64325954 0.157960571 0.07351669 -0.70663362
## PS 0.69034327 -0.52726220 0.169939217 -0.11853797 -0.54239381
## NH 0.67348496 -0.47557179 0.219537680 -0.04540389 -0.46815538
## NFM 0.67348496 -0.47557179 0.219537680 -0.04540389 -0.46815538
## NFH 0.76678697 -0.66579229 0.297015268 -0.21057808 -0.56969820
## AF 0.67886035 -0.50908362 0.221165555 -0.17591657 -0.47279523
## NF 0.05836475 0.05454539 -0.384065720 -0.12378900 -0.29982896
## PFTO 0.34654693 -0.09549574 -0.334447342 -0.10982226 -0.43521942
## PHOTO 0.33213393 -0.27672873 0.005130772 0.26397868 -0.48711343
## TRAN 0.82789246 -0.66159747 0.188697819 -0.26133799 -0.62466085
## COND 0.77748513 -0.61928984 0.158498051 -0.13000304 -0.63783386
## CI 1.00000000 -0.79095065 0.288167091 -0.41893587 -0.59312399
## ATF46 -0.79095065 1.00000000 -0.452546344 0.11042400 0.76269452
## ATF91 0.28816709 -0.45254634 1.000000000 0.15772180 0.17582394
## ATFTO -0.41893587 0.11042400 0.157721800 1.00000000 -0.01662966
## ORP -0.59312399 0.76269452 0.175823940 -0.01662966 1.00000000
## SST 0.15996993 0.36589601 -0.529735232 -0.73142091 0.16272375
## SST
## PF 0.02672959
## PS 0.23536301
## NH 0.21191260
## NFM 0.21191260
## NFH 0.16475103
## AF 0.26504899
## NF 0.49420685
## PFTO 0.51652280
## PHOTO 0.08113332
## TRAN 0.24445306
## COND 0.19622389
## CI 0.15996993
## ATF46 0.36589601
## ATF91 -0.52973523
## ATFTO -0.73142091
## ORP 0.16272375
## SST 1.00000000
# Componentes principales y estandarizar los datos.
PCs <- prcomp(melon,scale=T,factor=3,rotate="varimax")
PCs
## Standard deviations:
## [1] 3.304611e+00 1.662790e+00 1.347680e+00 1.081531e+00 5.733491e-01
## [6] 1.383512e-15
##
## Rotation:
## PC1 PC2 PC3 PC4 PC5
## PF 0.29034069 0.096816512 -0.093424332 -0.096938884 -0.28483580
## PS 0.30077796 -0.018535218 -0.027355474 0.090540835 0.02188650
## NH 0.29511264 -0.006664201 -0.066862640 0.166657193 -0.15785228
## NFM 0.29511264 -0.006664201 -0.066862640 0.166657193 -0.15785228
## NFH 0.29520252 0.066779943 0.068703931 0.098254276 0.22162895
## AF 0.29646700 -0.025292003 0.005304911 0.168664921 0.12427171
## NF 0.19872729 -0.382641587 -0.186168374 -0.042230172 0.54842534
## PFTO 0.25155083 -0.313188846 -0.132953948 -0.065683945 -0.04368783
## PHOTO 0.26240627 -0.091420766 -0.351606843 0.016967371 0.01438297
## TRAN 0.29805608 0.038406617 0.118635770 0.011684808 0.01287587
## COND 0.30163085 0.031002114 0.018151430 -0.006050165 -0.09782630
## CI 0.22250992 0.209940112 0.390056270 -0.070140264 -0.41043063
## ATF46 -0.17758916 -0.417254446 -0.192622131 0.257307864 -0.29902041
## ATF91 0.03973328 0.453963856 0.010363408 0.580947816 0.23396210
## ATFTO -0.04109150 0.195422560 -0.679001828 -0.046306235 -0.33136960
## ORP -0.18923879 -0.154620683 -0.004962006 0.678420387 -0.11588347
## SST 0.06664547 -0.493398731 0.368842221 0.105686169 -0.23564980
## PC6
## PF 0.094797044
## PS -0.289305286
## NH -0.106010342
## NFM 0.016998745
## NFH 0.003764733
## AF -0.079089531
## NF -0.415097227
## PFTO 0.031248799
## PHOTO 0.590643228
## TRAN 0.049695308
## COND 0.268405115
## CI -0.342099055
## ATF46 -0.143924315
## ATF91 -0.090324894
## ATFTO -0.356002770
## ORP 0.135890049
## SST -0.041932217
summary (PCs)
## Importance of components:
## PC1 PC2 PC3 PC4 PC5 PC6
## Standard deviation 3.3046 1.6628 1.3477 1.08153 0.57335 1.384e-15
## Proportion of Variance 0.6424 0.1626 0.1068 0.06881 0.01934 0.000e+00
## Cumulative Proportion 0.6424 0.8050 0.9119 0.98066 1.00000 1.000e+00
#Vectores de carga
PCs$rotation
## PC1 PC2 PC3 PC4 PC5
## PF 0.29034069 0.096816512 -0.093424332 -0.096938884 -0.28483580
## PS 0.30077796 -0.018535218 -0.027355474 0.090540835 0.02188650
## NH 0.29511264 -0.006664201 -0.066862640 0.166657193 -0.15785228
## NFM 0.29511264 -0.006664201 -0.066862640 0.166657193 -0.15785228
## NFH 0.29520252 0.066779943 0.068703931 0.098254276 0.22162895
## AF 0.29646700 -0.025292003 0.005304911 0.168664921 0.12427171
## NF 0.19872729 -0.382641587 -0.186168374 -0.042230172 0.54842534
## PFTO 0.25155083 -0.313188846 -0.132953948 -0.065683945 -0.04368783
## PHOTO 0.26240627 -0.091420766 -0.351606843 0.016967371 0.01438297
## TRAN 0.29805608 0.038406617 0.118635770 0.011684808 0.01287587
## COND 0.30163085 0.031002114 0.018151430 -0.006050165 -0.09782630
## CI 0.22250992 0.209940112 0.390056270 -0.070140264 -0.41043063
## ATF46 -0.17758916 -0.417254446 -0.192622131 0.257307864 -0.29902041
## ATF91 0.03973328 0.453963856 0.010363408 0.580947816 0.23396210
## ATFTO -0.04109150 0.195422560 -0.679001828 -0.046306235 -0.33136960
## ORP -0.18923879 -0.154620683 -0.004962006 0.678420387 -0.11588347
## SST 0.06664547 -0.493398731 0.368842221 0.105686169 -0.23564980
## PC6
## PF 0.094797044
## PS -0.289305286
## NH -0.106010342
## NFM 0.016998745
## NFH 0.003764733
## AF -0.079089531
## NF -0.415097227
## PFTO 0.031248799
## PHOTO 0.590643228
## TRAN 0.049695308
## COND 0.268405115
## CI -0.342099055
## ATF46 -0.143924315
## ATF91 -0.090324894
## ATFTO -0.356002770
## ORP 0.135890049
## SST -0.041932217
#Despliegue los primeros renglones de los vectores de récords
head(PCs$x)
## PC1 PC2 PC3 PC4 PC5 PC6
## KIS1 -3.527134 1.3998685 -0.6616232 1.5089439 -0.20761092 1.353084e-15
## KIS2 -4.684081 -0.7736768 0.1958016 -1.4930904 -0.06798525 7.744510e-16
## AG1 1.521281 -2.2411532 1.4044806 0.8161078 -0.39831669 1.318390e-15
## KIF1 3.509315 0.2509334 -1.7559518 -0.6381900 -0.56477249 1.238593e-15
## KIF2 2.106649 2.3022171 1.6765586 -0.4505981 0.20033972 1.210837e-15
## AG2 1.073969 -0.9381891 -0.8592659 0.2568268 1.03834563 1.497780e-15
#Score
scores <- PCs$x
scores
## PC1 PC2 PC3 PC4 PC5 PC6
## KIS1 -3.527134 1.3998685 -0.6616232 1.5089439 -0.20761092 1.353084e-15
## KIS2 -4.684081 -0.7736768 0.1958016 -1.4930904 -0.06798525 7.744510e-16
## AG1 1.521281 -2.2411532 1.4044806 0.8161078 -0.39831669 1.318390e-15
## KIF1 3.509315 0.2509334 -1.7559518 -0.6381900 -0.56477249 1.238593e-15
## KIF2 2.106649 2.3022171 1.6765586 -0.4505981 0.20033972 1.210837e-15
## AG2 1.073969 -0.9381891 -0.8592659 0.2568268 1.03834563 1.497780e-15
