Componentes principales
Francisco Gordillo
20 de agosto de 2016
tomeiro <- read.delim("~/DR LOZANO/tomeiro.txt")Correlación, Componentes principales y estandarizar los datos.
cor(tomeiro [,2:31])## Perimeter Area Width.Mid.height
## Perimeter 1.00000000 0.998924516 0.99205122
## Area 0.99892452 1.000000000 0.99644442
## Width.Mid.height 0.99205122 0.996444422 1.00000000
## Width.Widest 0.99414248 0.997857384 0.99955982
## Height.Mid.width 0.98989336 0.985467725 0.97376992
## Height.Highest 0.99042243 0.984309713 0.96854293
## Fruit.Shape.Index.1 -0.79904041 -0.824332060 -0.86418456
## Fruit.Shape.Index.2 -0.74799154 -0.773700969 -0.81377136
## Proximal.Fruit.Blockiness -0.20478827 -0.192829265 -0.19447955
## Distal.Fruit.Blockiness 0.61356062 0.643830615 0.68782254
## Fruit.Shape.Triangle -0.57558040 -0.587189127 -0.61278498
## Elliptic -0.02994661 -0.019522249 0.02026427
## Circular 0.70921951 0.736900815 0.78818166
## Rectangular -0.25667490 -0.224842419 -0.17534255
## Heart.Shape 0.58295157 0.571216704 0.54513349
## Shoulder.Height 0.60755285 0.597766836 0.57687612
## Proximal.Angle.Micro 0.20289411 0.171469455 0.10528537
## Proximal.Angle.Macro 0.21269560 0.230786204 0.22949011
## Proximal.Indentation.Area 0.60078396 0.594401957 0.57087583
## Distal.Angle.Micro 0.02380269 0.002482094 -0.05695728
## Distal.Angle.Macro 0.20489653 0.231824846 0.30041870
## Distal.Indentation.Area 0.32042267 0.332434298 0.37376657
## Ovate 0.03924309 0.022066089 -0.02205478
## V..Asymmetry 0.46694300 0.446231006 0.38555007
## H..Asymmetry.ov 0.37748618 0.365696180 0.32464793
## Width.Widest.Pos -0.08289295 -0.064932748 -0.01868685
## Eccentricity 0.27975488 0.298805217 0.34880548
## Proximal.Eccentricity -0.07884780 -0.089702986 -0.12830451
## Distal.Eccentricity 0.24591918 0.210730594 0.17640815
## Internal.Fruit.Shape.Index -0.73947488 -0.765101257 -0.80565179
## Width.Widest Height.Mid.width Height.Highest
## Perimeter 0.9941424773 0.989893360 0.990422428
## Area 0.9978573842 0.985467725 0.984309713
## Width.Mid.height 0.9995598163 0.973769925 0.968542932
## Width.Widest 1.0000000000 0.976770385 0.972693599
## Height.Mid.width 0.9767703846 1.000000000 0.997925131
## Height.Highest 0.9726935988 0.997925131 1.000000000
## Fruit.Shape.Index.1 -0.8558777852 -0.729765636 -0.713104121
## Fruit.Shape.Index.2 -0.8046458017 -0.660678177 -0.650264628
## Proximal.Fruit.Blockiness -0.1893891191 -0.320158686 -0.282112453
## Distal.Fruit.Blockiness 0.6713924359 0.556289150 0.532281579
## Fruit.Shape.Triangle -0.5980171632 -0.622771059 -0.581951458
## Elliptic 0.0053881475 0.055003845 -0.003371865
## Circular 0.7759080287 0.634133683 0.611513619
## Rectangular -0.1833917517 -0.382871580 -0.381020322
## Heart.Shape 0.5478937454 0.514486881 0.555576134
## Shoulder.Height 0.5764921098 0.543053934 0.578578740
## Proximal.Angle.Micro 0.1239421200 0.201539133 0.256509988
## Proximal.Angle.Macro 0.2375477241 0.103111762 0.135765745
## Proximal.Indentation.Area 0.5688764640 0.547043112 0.579509638
## Distal.Angle.Micro -0.0444384113 -0.010717849 0.048557485
## Distal.Angle.Macro 0.2793322425 0.109628810 0.086024932
## Distal.Indentation.Area 0.3733225658 0.286375071 0.263471703
## Ovate 0.0004560064 -0.014928053 0.038169457
## V..Asymmetry 0.3949397342 0.485342761 0.522900063
## H..Asymmetry.ov 0.3454374845 0.313305040 0.363471454
## Width.Widest.Pos -0.0444045152 -0.051111404 -0.098274912
## Eccentricity 0.3342051361 0.335757857 0.274964145
## Proximal.Eccentricity -0.1158907556 -0.007981881 0.001575384
## Distal.Eccentricity 0.1858257101 0.298056428 0.310473627
## Internal.Fruit.Shape.Index -0.7968468089 -0.650312732 -0.640436969
## Fruit.Shape.Index.1 Fruit.Shape.Index.2
## Perimeter -0.79904041 -0.74799154
## Area -0.82433206 -0.77370097
## Width.Mid.height -0.86418456 -0.81377136
## Width.Widest -0.85587779 -0.80464580
## Height.Mid.width -0.72976564 -0.66067818
## Height.Highest -0.71310412 -0.65026463
## Fruit.Shape.Index.1 1.00000000 0.98655779
## Fruit.Shape.Index.2 0.98655779 1.00000000
## Proximal.Fruit.Blockiness -0.05859715 -0.19191141
## Distal.Fruit.Blockiness -0.86498620 -0.86228964
## Fruit.Shape.Triangle 0.53194021 0.43679996
## Elliptic -0.02488640 0.09226761
## Circular -0.98051032 -0.97471525
## Rectangular -0.28833637 -0.39664234
## Heart.Shape -0.43175851 -0.50992150
## Shoulder.Height -0.47060423 -0.54305898
## Proximal.Angle.Micro 0.18796451 0.14431713
## Proximal.Angle.Macro -0.42966198 -0.51748266
## Proximal.Indentation.Area -0.45781163 -0.52279694
## Distal.Angle.Micro 0.21803885 0.12182049
## Distal.Angle.Macro -0.64363440 -0.69830573
## Distal.Indentation.Area -0.49919699 -0.46010067
## Ovate 0.10415206 0.03511378
## V..Asymmetry -0.06048193 -0.07158870
## H..Asymmetry.ov -0.22108104 -0.27676828
## Width.Widest.Pos -0.10818672 -0.07424904
## Eccentricity -0.39371378 -0.27122083
## Proximal.Eccentricity 0.32366226 0.37825562
## Distal.Eccentricity 0.16595873 0.20603469
## Internal.Fruit.Shape.Index 0.98396945 0.99896396
## Proximal.Fruit.Blockiness
## Perimeter -0.20478827
## Area -0.19282927
## Width.Mid.height -0.19447955
## Width.Widest -0.18938912
## Height.Mid.width -0.32015869
## Height.Highest -0.28211245
## Fruit.Shape.Index.1 -0.05859715
## Fruit.Shape.Index.2 -0.19191141
## Proximal.Fruit.Blockiness 1.00000000
## Distal.Fruit.Blockiness 0.04878837
## Fruit.Shape.Triangle 0.67207403
## Elliptic -0.85018447
## Circular 0.04179864
## Rectangular 0.78999656
## Heart.Shape 0.30897342
## Shoulder.Height 0.23527287
## Proximal.Angle.Micro 0.17053980
## Proximal.Angle.Macro 0.82475608
## Proximal.Indentation.Area 0.23479876
## Distal.Angle.Micro 0.50900450
## Distal.Angle.Macro 0.14975704
## Distal.Indentation.Area -0.10698060
## Ovate 0.62654928
## V..Asymmetry 0.06583924
## H..Asymmetry.ov 0.60740348
## Width.Widest.Pos -0.47613503
## Eccentricity -0.74249336
## Proximal.Eccentricity -0.31053378
## Distal.Eccentricity -0.40879693
## Internal.Fruit.Shape.Index -0.19659027
## Distal.Fruit.Blockiness Fruit.Shape.Triangle
## Perimeter 0.61356062 -0.575580397
## Area 0.64383062 -0.587189127
## Width.Mid.height 0.68782254 -0.612784978
## Width.Widest 0.67139244 -0.598017163
## Height.Mid.width 0.55628915 -0.622771059
## Height.Highest 0.53228158 -0.581951458
## Fruit.Shape.Index.1 -0.86498620 0.531940214
## Fruit.Shape.Index.2 -0.86228964 0.436799961
## Proximal.Fruit.Blockiness 0.04878837 0.672074035
## Distal.Fruit.Blockiness 1.00000000 -0.689780963
## Fruit.Shape.Triangle -0.68978096 1.000000000
## Elliptic 0.15944681 -0.698137492
## Circular 0.84881476 -0.512565683
## Rectangular 0.27133091 0.427710098
## Heart.Shape 0.29287638 -0.018173793
## Shoulder.Height 0.37191624 -0.131865776
## Proximal.Angle.Micro -0.37133721 0.326746087
## Proximal.Angle.Macro 0.35261335 0.309193306
## Proximal.Indentation.Area 0.49786525 -0.260798713
## Distal.Angle.Micro -0.18173413 0.392478972
## Distal.Angle.Macro 0.57026418 -0.206109157
## Distal.Indentation.Area 0.10003427 0.001572012
## Ovate -0.43585949 0.781534102
## V..Asymmetry 0.18178460 -0.206641068
## H..Asymmetry.ov -0.10052059 0.516303286
## Width.Widest.Pos 0.48499371 -0.713607114
## Eccentricity 0.44217834 -0.798941553
## Proximal.Eccentricity -0.24725603 -0.152407361
## Distal.Eccentricity -0.48863226 0.127784355
## Internal.Fruit.Shape.Index -0.84328125 0.416403120
## Elliptic Circular Rectangular
## Perimeter -0.029946614 0.70921951 -0.256674898
## Area -0.019522249 0.73690082 -0.224842419
## Width.Mid.height 0.020264270 0.78818166 -0.175342552
## Width.Widest 0.005388147 0.77590803 -0.183391752
## Height.Mid.width 0.055003845 0.63413368 -0.382871580
## Height.Highest -0.003371865 0.61151362 -0.381020322
## Fruit.Shape.Index.1 -0.024886401 -0.98051032 -0.288336367
## Fruit.Shape.Index.2 0.092267606 -0.97471525 -0.396642336
## Proximal.Fruit.Blockiness -0.850184475 0.04179864 0.789996557
## Distal.Fruit.Blockiness 0.159446806 0.84881476 0.271330911
## Fruit.Shape.Triangle -0.698137492 -0.51256568 0.427710098
## Elliptic 1.000000000 0.09702517 -0.404928535
## Circular 0.097025169 1.00000000 0.366823712
## Rectangular -0.404928535 0.36682371 1.000000000
## Heart.Shape -0.589421575 0.36674513 0.026467159
## Shoulder.Height -0.494068885 0.41207024 -0.004667153
## Proximal.Angle.Micro -0.613049264 -0.29715338 -0.334340094
## Proximal.Angle.Macro -0.745175534 0.34497308 0.619560550
## Proximal.Indentation.Area -0.445330300 0.37156483 -0.052841624
## Distal.Angle.Micro -0.779268365 -0.32638527 -0.048287672
## Distal.Angle.Macro 0.114877476 0.77400280 0.612241982
## Distal.Indentation.Area 0.153726167 0.57757358 0.275858853
## Ovate -0.872703893 -0.17023742 0.238226032
## V..Asymmetry -0.394718905 -0.09882340 -0.455251301
## H..Asymmetry.ov -0.868199827 0.11808166 0.213182766
## Width.Widest.Pos 0.752672086 0.18917986 -0.108234738
## Eccentricity 0.913969254 0.44727596 -0.254136641
## Proximal.Eccentricity 0.131348789 -0.43865895 -0.557261788
## Distal.Eccentricity 0.004713217 -0.14577538 -0.504595748
## Internal.Fruit.Shape.Index 0.099878807 -0.97486511 -0.407161370
## Heart.Shape Shoulder.Height
## Perimeter 0.582951574 0.607552854
## Area 0.571216704 0.597766836
## Width.Mid.height 0.545133492 0.576876119
## Width.Widest 0.547893745 0.576492110
## Height.Mid.width 0.514486881 0.543053934
## Height.Highest 0.555576134 0.578578740
## Fruit.Shape.Index.1 -0.431758506 -0.470604233
## Fruit.Shape.Index.2 -0.509921502 -0.543058983
## Proximal.Fruit.Blockiness 0.308973419 0.235272875
## Distal.Fruit.Blockiness 0.292876381 0.371916242
## Fruit.Shape.Triangle -0.018173793 -0.131865776
## Elliptic -0.589421575 -0.494068885
## Circular 0.366745125 0.412070241
## Rectangular 0.026467159 -0.004667153
## Heart.Shape 1.000000000 0.991369397
## Shoulder.Height 0.991369397 1.000000000
## Proximal.Angle.Micro 0.706994051 0.649314421
## Proximal.Angle.Macro 0.512127180 0.459916957
## Proximal.Indentation.Area 0.923055732 0.949412528
## Distal.Angle.Micro 0.690785389 0.643856666
## Distal.Angle.Macro 0.229837568 0.275849860
## Distal.Indentation.Area -0.070213968 -0.095601275
## Ovate 0.425498613 0.303217739
## V..Asymmetry 0.617011881 0.622283160
## H..Asymmetry.ov 0.604195480 0.501919095
## Width.Widest.Pos -0.322121651 -0.198340208
## Eccentricity -0.458375016 -0.367563778
## Proximal.Eccentricity 0.001697381 0.011188160
## Distal.Eccentricity 0.160519818 0.122356667
## Internal.Fruit.Shape.Index -0.518122526 -0.548877743
## Proximal.Angle.Micro Proximal.Angle.Macro
## Perimeter 0.2028941 0.212695600
## Area 0.1714695 0.230786204
## Width.Mid.height 0.1052854 0.229490114
## Width.Widest 0.1239421 0.237547724
## Height.Mid.width 0.2015391 0.103111762
## Height.Highest 0.2565100 0.135765745
## Fruit.Shape.Index.1 0.1879645 -0.429661981
## Fruit.Shape.Index.2 0.1443171 -0.517482661
## Proximal.Fruit.Blockiness 0.1705398 0.824756077
## Distal.Fruit.Blockiness -0.3713372 0.352613354
## Fruit.Shape.Triangle 0.3267461 0.309193306
## Elliptic -0.6130493 -0.745175534
## Circular -0.2971534 0.344973079
## Rectangular -0.3343401 0.619560550
## Heart.Shape 0.7069941 0.512127180
## Shoulder.Height 0.6493144 0.459916957
## Proximal.Angle.Micro 1.0000000 0.302714865
## Proximal.Angle.Macro 0.3027149 1.000000000
## Proximal.Indentation.Area 0.5694283 0.486792688
## Distal.Angle.Micro 0.8460523 0.523827586
## Distal.Angle.Macro -0.4172445 0.143336512
## Distal.Indentation.Area -0.2987058 -0.045856697
## Ovate 0.6519674 0.552860875
## V..Asymmetry 0.6484043 0.291012470
## H..Asymmetry.ov 0.6400356 0.695220446
## Width.Widest.Pos -0.6403064 -0.474640812
## Eccentricity -0.6867319 -0.527027675
## Proximal.Eccentricity 0.4787255 -0.004841329
## Distal.Eccentricity 0.3509632 -0.509032269
## Internal.Fruit.Shape.Index 0.1283021 -0.523438588
## Proximal.Indentation.Area Distal.Angle.Micro
## Perimeter 0.60078396 0.023802688
## Area 0.59440196 0.002482094
## Width.Mid.height 0.57087583 -0.056957275
## Width.Widest 0.56887646 -0.044438411
## Height.Mid.width 0.54704311 -0.010717849
## Height.Highest 0.57950964 0.048557485
## Fruit.Shape.Index.1 -0.45781163 0.218038853
## Fruit.Shape.Index.2 -0.52279694 0.121820487
## Proximal.Fruit.Blockiness 0.23479876 0.509004504
## Distal.Fruit.Blockiness 0.49786525 -0.181734131
## Fruit.Shape.Triangle -0.26079871 0.392478972
## Elliptic -0.44533030 -0.779268365
## Circular 0.37156483 -0.326385266
## Rectangular -0.05284162 -0.048287672
## Heart.Shape 0.92305573 0.690785389
## Shoulder.Height 0.94941253 0.643856666
## Proximal.Angle.Micro 0.56942834 0.846052270
## Proximal.Angle.Macro 0.48679269 0.523827586
## Proximal.Indentation.Area 1.00000000 0.681703219
## Distal.Angle.Micro 0.68170322 1.000000000
## Distal.Angle.Macro 0.15627331 -0.376005564
## Distal.Indentation.Area -0.32362289 -0.618734114
## Ovate 0.15230345 0.570566662
## V..Asymmetry 0.77498017 0.752662208
## H..Asymmetry.ov 0.39822208 0.580600718
## Width.Widest.Pos -0.04298593 -0.466730481
## Eccentricity -0.32687467 -0.857717303
## Proximal.Eccentricity 0.10864248 0.360857744
## Distal.Eccentricity -0.08630870 -0.056862593
## Internal.Fruit.Shape.Index -0.51641020 0.119864313
## Distal.Angle.Macro Distal.Indentation.Area
## Perimeter 0.20489653 0.320422669
## Area 0.23182485 0.332434298
## Width.Mid.height 0.30041870 0.373766566
## Width.Widest 0.27933224 0.373322566
## Height.Mid.width 0.10962881 0.286375071
## Height.Highest 0.08602493 0.263471703
## Fruit.Shape.Index.1 -0.64363440 -0.499196985
## Fruit.Shape.Index.2 -0.69830573 -0.460100668
## Proximal.Fruit.Blockiness 0.14975704 -0.106980602
## Distal.Fruit.Blockiness 0.57026418 0.100034274
## Fruit.Shape.Triangle -0.20610916 0.001572012
## Elliptic 0.11487748 0.153726167
## Circular 0.77400280 0.577573583
## Rectangular 0.61224198 0.275858853
## Heart.Shape 0.22983757 -0.070213968
## Shoulder.Height 0.27584986 -0.095601275
## Proximal.Angle.Micro -0.41724449 -0.298705756
## Proximal.Angle.Macro 0.14333651 -0.045856697
## Proximal.Indentation.Area 0.15627331 -0.323622893
## Distal.Angle.Micro -0.37600556 -0.618734114
## Distal.Angle.Macro 1.00000000 0.564135189
## Distal.Indentation.Area 0.56413519 1.000000000
## Ovate -0.21882446 0.160464255
## V..Asymmetry -0.47576174 -0.636509565
## H..Asymmetry.ov -0.12827066 0.183429262
## Width.Widest.Pos 0.32071819 -0.230821795
## Eccentricity 0.30090407 0.391098039
## Proximal.Eccentricity -0.66203408 -0.538450291
## Distal.Eccentricity -0.11083445 0.412327949
## Internal.Fruit.Shape.Index -0.70972887 -0.481536507
## Ovate V..Asymmetry H..Asymmetry.ov
## Perimeter 0.0392430904 0.46694300 0.37748618
## Area 0.0220660893 0.44623101 0.36569618
## Width.Mid.height -0.0220547760 0.38555007 0.32464793
## Width.Widest 0.0004560064 0.39493973 0.34543748
## Height.Mid.width -0.0149280530 0.48534276 0.31330504
## Height.Highest 0.0381694565 0.52290006 0.36347145
## Fruit.Shape.Index.1 0.1041520587 -0.06048193 -0.22108104
## Fruit.Shape.Index.2 0.0351137822 -0.07158870 -0.27676828
## Proximal.Fruit.Blockiness 0.6265492834 0.06583924 0.60740348
## Distal.Fruit.Blockiness -0.4358594869 0.18178460 -0.10052059
## Fruit.Shape.Triangle 0.7815341018 -0.20664107 0.51630329
## Elliptic -0.8727038933 -0.39471890 -0.86819983
## Circular -0.1702374153 -0.09882340 0.11808166
## Rectangular 0.2382260318 -0.45525130 0.21318277
## Heart.Shape 0.4254986126 0.61701188 0.60419548
## Shoulder.Height 0.3032177393 0.62228316 0.50191910
## Proximal.Angle.Micro 0.6519673508 0.64840426 0.64003563
## Proximal.Angle.Macro 0.5528608746 0.29101247 0.69522045
## Proximal.Indentation.Area 0.1523034500 0.77498017 0.39822208
## Distal.Angle.Micro 0.5705666621 0.75266221 0.58060072
## Distal.Angle.Macro -0.2188244641 -0.47576174 -0.12827066
## Distal.Indentation.Area 0.1604642547 -0.63650957 0.18342926
## Ovate 1.0000000000 0.17522105 0.92562119
## V..Asymmetry 0.1752210544 1.00000000 0.37352822
## H..Asymmetry.ov 0.9256211896 0.37352822 1.00000000
## Width.Widest.Pos -0.9719393796 -0.14335476 -0.89956075
## Eccentricity -0.7922751236 -0.37633379 -0.66735194
## Proximal.Eccentricity -0.0696200239 0.43524275 -0.08825351
## Distal.Eccentricity 0.3174534850 -0.02326114 0.23329830
## Internal.Fruit.Shape.Index 0.0149958475 -0.05144898 -0.28870302
## Width.Widest.Pos Eccentricity
## Perimeter -0.08289295 0.27975488
## Area -0.06493275 0.29880522
## Width.Mid.height -0.01868685 0.34880548
## Width.Widest -0.04440452 0.33420514
## Height.Mid.width -0.05111140 0.33575786
## Height.Highest -0.09827491 0.27496415
## Fruit.Shape.Index.1 -0.10818672 -0.39371378
## Fruit.Shape.Index.2 -0.07424904 -0.27122083
## Proximal.Fruit.Blockiness -0.47613503 -0.74249336
## Distal.Fruit.Blockiness 0.48499371 0.44217834
## Fruit.Shape.Triangle -0.71360711 -0.79894155
## Elliptic 0.75267209 0.91396925
## Circular 0.18917986 0.44727596
## Rectangular -0.10823474 -0.25413664
## Heart.Shape -0.32212165 -0.45837502
## Shoulder.Height -0.19834021 -0.36756378
## Proximal.Angle.Micro -0.64030644 -0.68673187
## Proximal.Angle.Macro -0.47464081 -0.52702768
## Proximal.Indentation.Area -0.04298593 -0.32687467
## Distal.Angle.Micro -0.46673048 -0.85771730
## Distal.Angle.Macro 0.32071819 0.30090407
## Distal.Indentation.Area -0.23082179 0.39109804
## Ovate -0.97193938 -0.79227512
## V..Asymmetry -0.14335476 -0.37633379
## H..Asymmetry.ov -0.89956075 -0.66735194
## Width.Widest.Pos 1.00000000 0.66932941
## Eccentricity 0.66932941 1.00000000
## Proximal.Eccentricity -0.04854216 -0.05918470
## Distal.Eccentricity -0.37299611 -0.02332936
## Internal.Fruit.Shape.Index -0.05270981 -0.26123670
## Proximal.Eccentricity Distal.Eccentricity
## Perimeter -0.078847799 0.245919180
## Area -0.089702986 0.210730594
## Width.Mid.height -0.128304507 0.176408145
## Width.Widest -0.115890756 0.185825710
## Height.Mid.width -0.007981881 0.298056428
## Height.Highest 0.001575384 0.310473627
## Fruit.Shape.Index.1 0.323662261 0.165958731
## Fruit.Shape.Index.2 0.378255616 0.206034687
## Proximal.Fruit.Blockiness -0.310533783 -0.408796930
## Distal.Fruit.Blockiness -0.247256033 -0.488632263
## Fruit.Shape.Triangle -0.152407361 0.127784355
## Elliptic 0.131348789 0.004713217
## Circular -0.438658954 -0.145775379
## Rectangular -0.557261788 -0.504595748
## Heart.Shape 0.001697381 0.160519818
## Shoulder.Height 0.011188160 0.122356667
## Proximal.Angle.Micro 0.478725483 0.350963213
## Proximal.Angle.Macro -0.004841329 -0.509032269
## Proximal.Indentation.Area 0.108642476 -0.086308697
## Distal.Angle.Micro 0.360857744 -0.056862593
## Distal.Angle.Macro -0.662034084 -0.110834449
## Distal.Indentation.Area -0.538450291 0.412327949
## Ovate -0.069620024 0.317453485
## V..Asymmetry 0.435242754 -0.023261139
## H..Asymmetry.ov -0.088253507 0.233298299
## Width.Widest.Pos -0.048542163 -0.372996111
## Eccentricity -0.059184696 -0.023329362
## Proximal.Eccentricity 1.000000000 -0.187372832
## Distal.Eccentricity -0.187372832 1.000000000
## Internal.Fruit.Shape.Index 0.373639258 0.193552282
## Internal.Fruit.Shape.Index
## Perimeter -0.73947488
## Area -0.76510126
## Width.Mid.height -0.80565179
## Width.Widest -0.79684681
## Height.Mid.width -0.65031273
## Height.Highest -0.64043697
## Fruit.Shape.Index.1 0.98396945
## Fruit.Shape.Index.2 0.99896396
## Proximal.Fruit.Blockiness -0.19659027
## Distal.Fruit.Blockiness -0.84328125
## Fruit.Shape.Triangle 0.41640312
## Elliptic 0.09987881
## Circular -0.97486511
## Rectangular -0.40716137
## Heart.Shape -0.51812253
## Shoulder.Height -0.54887774
## Proximal.Angle.Micro 0.12830208
## Proximal.Angle.Macro -0.52343859
## Proximal.Indentation.Area -0.51641020
## Distal.Angle.Micro 0.11986431
## Distal.Angle.Macro -0.70972887
## Distal.Indentation.Area -0.48153651
## Ovate 0.01499585
## V..Asymmetry -0.05144898
## H..Asymmetry.ov -0.28870302
## Width.Widest.Pos -0.05270981
## Eccentricity -0.26123670
## Proximal.Eccentricity 0.37363926
## Distal.Eccentricity 0.19355228
## Internal.Fruit.Shape.Index 1.00000000PCs <- prcomp(tomeiro[-1],scale=T)
PCs## Standard deviations:
## [1] 3.545914e+00 3.025588e+00 2.577280e+00 1.985798e+00 1.318857e+00
## [6] 9.732216e-01 6.072273e-14
##
## Rotation:
## PC1 PC2 PC3
## Perimeter 0.275350526 0.019213587 0.058464510
## Area 0.276188317 0.028731203 0.051733768
## Width.Mid.height 0.275098287 0.053446563 0.040575609
## Width.Widest 0.275329010 0.046391302 0.041150039
## Height.Mid.width 0.265073384 0.018012320 0.109264387
## Height.Highest 0.266966783 -0.001564644 0.101146333
## Fruit.Shape.Index.1 -0.239155440 -0.139117200 0.094693506
## Fruit.Shape.Index.2 -0.233417351 -0.120734880 0.143134414
## Proximal.Fruit.Blockiness -0.006919632 -0.129262579 -0.323607924
## Distal.Fruit.Blockiness 0.194248299 0.150690573 -0.028377713
## Fruit.Shape.Triangle -0.143741128 -0.168991126 -0.239059342
## Elliptic -0.047356545 0.242091992 0.246813533
## Circular 0.213626646 0.182702279 -0.120819358
## Rectangular -0.028109638 0.075253615 -0.353202391
## Heart.Shape 0.195473615 -0.151423517 -0.109182156
## Shoulder.Height 0.201730163 -0.126437873 -0.084708237
## Proximal.Angle.Micro 0.068416916 -0.287054476 0.003358593
## Proximal.Angle.Macro 0.108944927 -0.128241239 -0.249225020
## Proximal.Indentation.Area 0.202447340 -0.134981362 -0.029497020
## Distal.Angle.Micro 0.041060200 -0.302249596 -0.059997450
## Distal.Angle.Macro 0.079971708 0.222090375 -0.220915624
## Distal.Indentation.Area 0.072499450 0.186878643 -0.144532664
## Ovate 0.027601926 -0.224831053 -0.213883578
## V..Asymmetry 0.143474735 -0.229720203 0.136842435
## H..Asymmetry.ov 0.126365821 -0.207413714 -0.193281285
## Width.Widest.Pos -0.028907634 0.214551208 0.160394737
## Eccentricity 0.044052904 0.278909173 0.188001731
## Proximal.Eccentricity -0.029944616 -0.159239810 0.227573131
## Distal.Eccentricity 0.031411408 -0.034337195 0.066737067
## Internal.Fruit.Shape.Index -0.231282491 -0.119761042 0.150891162
## L -0.150106387 0.159294904 -0.221678750
## a -0.149469178 -0.123671659 0.054554189
## b -0.113229586 0.203086037 -0.233417350
## Hue -0.060419196 0.240580545 -0.214289204
## Chroma -0.171766389 0.107209474 -0.161808596
## PC4 PC5 PC6
## Perimeter -0.07196950 0.006948201 0.010775038
## Area -0.06030025 0.022035704 0.019912130
## Width.Mid.height -0.04881089 0.023493139 0.032627770
## Width.Widest -0.05626928 0.032164979 0.041326939
## Height.Mid.width -0.09279900 0.010283903 0.011340803
## Height.Highest -0.09535513 0.003114561 0.004576938
## Fruit.Shape.Index.1 -0.06660572 -0.089664910 -0.115558104
## Fruit.Shape.Index.2 -0.09558576 -0.049344391 -0.073807105
## Proximal.Fruit.Blockiness 0.11587166 0.194102555 -0.184843154
## Distal.Fruit.Blockiness 0.26204226 0.114021225 -0.141488958
## Fruit.Shape.Triangle -0.15566453 0.045138198 -0.009286429
## Elliptic 0.01906777 -0.053269862 0.160128982
## Circular 0.05934094 0.020363458 0.097776790
## Rectangular 0.13027715 0.154801562 -0.031926916
## Heart.Shape 0.07346132 -0.346280189 0.025952158
## Shoulder.Height 0.11033608 -0.376183199 0.013025389
## Proximal.Angle.Micro -0.05518210 -0.254096978 0.256778714
## Proximal.Angle.Macro 0.17704167 0.281453220 0.166479892
## Proximal.Indentation.Area 0.21338409 -0.262371603 -0.116325976
## Distal.Angle.Micro 0.13877491 -0.147647247 -0.070822908
## Distal.Angle.Macro 0.07834511 -0.262076224 0.015232588
## Distal.Indentation.Area -0.31518572 0.016866722 0.296412190
## Ovate -0.22631635 0.076811389 0.110587156
## V..Asymmetry 0.14038433 -0.017392533 -0.242000786
## H..Asymmetry.ov -0.17322469 0.141895009 0.064267066
## Width.Widest.Pos 0.27674743 -0.147006835 -0.246624857
## Eccentricity -0.01001510 0.073491568 0.141371752
## Proximal.Eccentricity 0.14876433 0.062663624 0.579881064
## Distal.Eccentricity -0.43050895 -0.349381265 -0.065268441
## Internal.Fruit.Shape.Index -0.08906756 -0.036896922 -0.108944418
## L -0.11353776 -0.234492565 0.110264730
## a 0.34260721 -0.062073693 0.307808090
## b 0.06688747 -0.209340018 0.076012325
## Hue -0.14301481 -0.119104422 -0.121225388
## Chroma 0.23816834 -0.212119037 0.225021320
## PC7
## Perimeter -0.07484913
## Area -0.05314605
## Width.Mid.height -0.02356044
## Width.Widest -0.02804902
## Height.Mid.width -0.04104603
## Height.Highest -0.05216920
## Fruit.Shape.Index.1 0.02635291
## Fruit.Shape.Index.2 -0.11371078
## Proximal.Fruit.Blockiness 0.13250161
## Distal.Fruit.Blockiness 0.18432278
## Fruit.Shape.Triangle 0.02607405
## Elliptic 0.09565116
## Circular 0.07135402
## Rectangular 0.33381721
## Heart.Shape -0.08116892
## Shoulder.Height -0.08118527
## Proximal.Angle.Micro -0.12590074
## Proximal.Angle.Macro 0.16128227
## Proximal.Indentation.Area 0.01835572
## Distal.Angle.Micro 0.10564174
## Distal.Angle.Macro -0.01776763
## Distal.Indentation.Area -0.16660868
## Ovate -0.05458043
## V..Asymmetry 0.07009325
## H..Asymmetry.ov -0.00733673
## Width.Widest.Pos 0.10290579
## Eccentricity 0.07092692
## Proximal.Eccentricity 0.40140770
## Distal.Eccentricity 0.70699879
## Internal.Fruit.Shape.Index -0.03558675
## L -0.04917349
## a -0.05576477
## b -0.02293644
## Hue 0.06728592
## Chroma -0.05754559summary (PCs)## Importance of components:
## PC1 PC2 PC3 PC4 PC5 PC6
## Standard deviation 3.5459 3.0256 2.5773 1.9858 1.3189 0.97322
## Proportion of Variance 0.3592 0.2616 0.1898 0.1127 0.0497 0.02706
## Cumulative Proportion 0.3592 0.6208 0.8106 0.9232 0.9729 1.00000
## PC7
## Standard deviation 6.072e-14
## Proportion of Variance 0.000e+00
## Cumulative Proportion 1.000e+00Vectores de carga
PCs$rotation## PC1 PC2 PC3
## Perimeter 0.275350526 0.019213587 0.058464510
## Area 0.276188317 0.028731203 0.051733768
## Width.Mid.height 0.275098287 0.053446563 0.040575609
## Width.Widest 0.275329010 0.046391302 0.041150039
## Height.Mid.width 0.265073384 0.018012320 0.109264387
## Height.Highest 0.266966783 -0.001564644 0.101146333
## Fruit.Shape.Index.1 -0.239155440 -0.139117200 0.094693506
## Fruit.Shape.Index.2 -0.233417351 -0.120734880 0.143134414
## Proximal.Fruit.Blockiness -0.006919632 -0.129262579 -0.323607924
## Distal.Fruit.Blockiness 0.194248299 0.150690573 -0.028377713
## Fruit.Shape.Triangle -0.143741128 -0.168991126 -0.239059342
## Elliptic -0.047356545 0.242091992 0.246813533
## Circular 0.213626646 0.182702279 -0.120819358
## Rectangular -0.028109638 0.075253615 -0.353202391
## Heart.Shape 0.195473615 -0.151423517 -0.109182156
## Shoulder.Height 0.201730163 -0.126437873 -0.084708237
## Proximal.Angle.Micro 0.068416916 -0.287054476 0.003358593
## Proximal.Angle.Macro 0.108944927 -0.128241239 -0.249225020
## Proximal.Indentation.Area 0.202447340 -0.134981362 -0.029497020
## Distal.Angle.Micro 0.041060200 -0.302249596 -0.059997450
## Distal.Angle.Macro 0.079971708 0.222090375 -0.220915624
## Distal.Indentation.Area 0.072499450 0.186878643 -0.144532664
## Ovate 0.027601926 -0.224831053 -0.213883578
## V..Asymmetry 0.143474735 -0.229720203 0.136842435
## H..Asymmetry.ov 0.126365821 -0.207413714 -0.193281285
## Width.Widest.Pos -0.028907634 0.214551208 0.160394737
## Eccentricity 0.044052904 0.278909173 0.188001731
## Proximal.Eccentricity -0.029944616 -0.159239810 0.227573131
## Distal.Eccentricity 0.031411408 -0.034337195 0.066737067
## Internal.Fruit.Shape.Index -0.231282491 -0.119761042 0.150891162
## L -0.150106387 0.159294904 -0.221678750
## a -0.149469178 -0.123671659 0.054554189
## b -0.113229586 0.203086037 -0.233417350
## Hue -0.060419196 0.240580545 -0.214289204
## Chroma -0.171766389 0.107209474 -0.161808596
## PC4 PC5 PC6
## Perimeter -0.07196950 0.006948201 0.010775038
## Area -0.06030025 0.022035704 0.019912130
## Width.Mid.height -0.04881089 0.023493139 0.032627770
## Width.Widest -0.05626928 0.032164979 0.041326939
## Height.Mid.width -0.09279900 0.010283903 0.011340803
## Height.Highest -0.09535513 0.003114561 0.004576938
## Fruit.Shape.Index.1 -0.06660572 -0.089664910 -0.115558104
## Fruit.Shape.Index.2 -0.09558576 -0.049344391 -0.073807105
## Proximal.Fruit.Blockiness 0.11587166 0.194102555 -0.184843154
## Distal.Fruit.Blockiness 0.26204226 0.114021225 -0.141488958
## Fruit.Shape.Triangle -0.15566453 0.045138198 -0.009286429
## Elliptic 0.01906777 -0.053269862 0.160128982
## Circular 0.05934094 0.020363458 0.097776790
## Rectangular 0.13027715 0.154801562 -0.031926916
## Heart.Shape 0.07346132 -0.346280189 0.025952158
## Shoulder.Height 0.11033608 -0.376183199 0.013025389
## Proximal.Angle.Micro -0.05518210 -0.254096978 0.256778714
## Proximal.Angle.Macro 0.17704167 0.281453220 0.166479892
## Proximal.Indentation.Area 0.21338409 -0.262371603 -0.116325976
## Distal.Angle.Micro 0.13877491 -0.147647247 -0.070822908
## Distal.Angle.Macro 0.07834511 -0.262076224 0.015232588
## Distal.Indentation.Area -0.31518572 0.016866722 0.296412190
## Ovate -0.22631635 0.076811389 0.110587156
## V..Asymmetry 0.14038433 -0.017392533 -0.242000786
## H..Asymmetry.ov -0.17322469 0.141895009 0.064267066
## Width.Widest.Pos 0.27674743 -0.147006835 -0.246624857
## Eccentricity -0.01001510 0.073491568 0.141371752
## Proximal.Eccentricity 0.14876433 0.062663624 0.579881064
## Distal.Eccentricity -0.43050895 -0.349381265 -0.065268441
## Internal.Fruit.Shape.Index -0.08906756 -0.036896922 -0.108944418
## L -0.11353776 -0.234492565 0.110264730
## a 0.34260721 -0.062073693 0.307808090
## b 0.06688747 -0.209340018 0.076012325
## Hue -0.14301481 -0.119104422 -0.121225388
## Chroma 0.23816834 -0.212119037 0.225021320
## PC7
## Perimeter -0.07484913
## Area -0.05314605
## Width.Mid.height -0.02356044
## Width.Widest -0.02804902
## Height.Mid.width -0.04104603
## Height.Highest -0.05216920
## Fruit.Shape.Index.1 0.02635291
## Fruit.Shape.Index.2 -0.11371078
## Proximal.Fruit.Blockiness 0.13250161
## Distal.Fruit.Blockiness 0.18432278
## Fruit.Shape.Triangle 0.02607405
## Elliptic 0.09565116
## Circular 0.07135402
## Rectangular 0.33381721
## Heart.Shape -0.08116892
## Shoulder.Height -0.08118527
## Proximal.Angle.Micro -0.12590074
## Proximal.Angle.Macro 0.16128227
## Proximal.Indentation.Area 0.01835572
## Distal.Angle.Micro 0.10564174
## Distal.Angle.Macro -0.01776763
## Distal.Indentation.Area -0.16660868
## Ovate -0.05458043
## V..Asymmetry 0.07009325
## H..Asymmetry.ov -0.00733673
## Width.Widest.Pos 0.10290579
## Eccentricity 0.07092692
## Proximal.Eccentricity 0.40140770
## Distal.Eccentricity 0.70699879
## Internal.Fruit.Shape.Index -0.03558675
## L -0.04917349
## a -0.05576477
## b -0.02293644
## Hue 0.06728592
## Chroma -0.05754559head(PCs$x)## PC1 PC2 PC3 PC4 PC5 PC6
## [1,] -3.8161575 4.7066867 -2.2727830 -1.5475517 -0.51585025 0.1589447
## [2,] -2.4291173 -5.4236107 -2.1489554 -1.3707802 -0.02895501 -0.5222877
## [3,] -0.7919394 -1.0965746 4.0545664 -0.6450799 -1.41331243 1.0805742
## [4,] -0.8723330 -0.3346911 -0.7378066 2.1266415 1.94882975 1.2530649
## [5,] 2.6197376 0.2156964 -1.7037908 3.0137500 -1.69059272 -0.4443642
## [6,] -1.4007832 1.2195832 3.1706416 0.6470489 1.03844269 -1.5646542
## PC7
## [1,] 5.641321e-14
## [2,] 5.590667e-14
## [3,] 5.663352e-14
## [4,] 5.608014e-14
## [5,] 5.606626e-14
## [6,] 5.625361e-14Grafica con los porcentajes de varianzas explicadas para los componentes
PCs_var <- PCs$sdev^2
porc_var <- PCs_var/(sum(PCs_var))
plot(porc_var,main="%de varianzas",col="salmon4", xlab="PC's",ylab="% varianzas PC's",type="b",lwd=2)
porc_var_acum <- cumsum(porc_var)Grafica con los porcentajes acumulados de varianzas explicadas
porc_var_acum <- cumsum(porc_var)
plot(porc_var_acum,main="% acumulados de Varianzas",col="tomato4",xlab="PC's",ylab="% varianzas PC's",type="b",lwd=2)
# Construccion del biplot
biplot (PCs, col=c("black","navy"), xlab="PC1 (38.92 %)",ylab="PC2 (27.68 %)", cex= c(1.5,.7))
abline(h=0, v=0 , col="black",cex= c(1,.7))