Función PCA
datos=read.table("C:/Users/LENOVO/Desktop/Tarea/R/AM/Ejercicio_Jugos50.csv" ,header=FALSE, sep=",")
pca<-function(datos, y1, y2, t, f, w, x){
y1=prcomp(datos, scale=t)
y2=princomp(datos, cor=f)
if(w==TRUE){
print(summary(y1))}
else{print(y2$scores)}
if(x==TRUE){
print(biplot(y2))}
else {print(biplot(y1))}
}
#sin escala, sin scores
pca(datos, y1, y2, t=FALSE, f=TRUE, x=TRUE, w=TRUE)
## Importance of components:
## PC1 PC2 PC3 PC4 PC5 PC6 PC7
## Standard deviation 3.0732 1.4036 0.54563 0.4569 0.4137 0.16863 0.09963
## Proportion of Variance 0.7782 0.1623 0.02453 0.0172 0.0141 0.00234 0.00082
## Cumulative Proportion 0.7782 0.9405 0.96503 0.9822 0.9963 0.99868 0.99950
## PC8 PC9 PC10 PC11
## Standard deviation 0.04837 0.04030 0.03766 0.02650
## Proportion of Variance 0.00019 0.00013 0.00012 0.00006
## Cumulative Proportion 0.99969 0.99983 0.99994 1.00000
## NULL
#con escala, sin scores
pca(datos, y1, y2, t=TRUE, f=TRUE, x=TRUE, w=TRUE)
## Importance of components:
## PC1 PC2 PC3 PC4 PC5 PC6 PC7
## Standard deviation 2.3314 1.4399 1.1897 0.81806 0.64777 0.5073 0.49213
## Proportion of Variance 0.4941 0.1885 0.1287 0.06084 0.03815 0.0234 0.02202
## Cumulative Proportion 0.4941 0.6826 0.8113 0.87214 0.91028 0.9337 0.95570
## PC8 PC9 PC10 PC11
## Standard deviation 0.42429 0.38218 0.31371 0.25066
## Proportion of Variance 0.01637 0.01328 0.00895 0.00571
## Cumulative Proportion 0.97206 0.98534 0.99429 1.00000
## NULL
#sin escala, con scores
pca(datos, y1, y2, t=FALSE, f=TRUE, x=TRUE, w=FALSE)
## Comp.1 Comp.2 Comp.3 Comp.4 Comp.5
## [1,] 3.0994493 -0.75249932 -0.064378326 -0.15192685 0.036351748
## [2,] -5.5197477 2.05268171 3.122170545 0.71665309 0.008172440
## [3,] -1.1096881 1.59390318 0.937972701 0.61005429 -0.597043213
## [4,] 2.0744998 0.18118314 0.600814611 -1.09427244 1.518256564
## [5,] 1.6592646 -1.41735207 -0.032388228 -0.71007628 -0.328651678
## [6,] -1.7773391 -2.04530692 -0.506919526 -1.04856118 0.980194918
## [7,] -0.1073088 3.81099059 1.397032148 -0.62335083 -0.834585319
## [8,] 1.7352236 -1.32985890 0.920666299 -0.55870517 -1.080129615
## [9,] 1.3099608 -0.32553183 1.711417504 0.32527489 1.110334056
## [10,] -0.7107484 -1.08627173 1.533017495 0.24405690 0.263675759
## [11,] 3.0654328 0.70798174 -1.837408427 2.45794691 -1.403309027
## [12,] 1.7225083 -0.75622560 -0.725724728 -0.27227661 -0.270024524
## [13,] 0.1553151 0.82931168 -0.520409029 -0.53984304 -0.543906348
## [14,] -1.7816009 -1.82907339 0.974085400 -0.31650954 -0.436414751
## [15,] 0.2548017 1.54715978 -0.367205385 -0.32310281 0.410194707
## [16,] -0.1381968 -1.03467667 -1.291155821 0.93640779 -0.314047405
## [17,] 2.1396636 -1.25527301 -0.208595750 -0.50554122 -0.133013274
## [18,] -2.6045653 -0.81138802 -1.244790762 1.05454881 -0.002362406
## [19,] 2.3366608 -0.13932200 3.260396688 1.46690659 0.916211820
## [20,] -3.2161559 0.76400690 0.006418516 1.19542339 -0.540807608
## [21,] -2.1046558 0.66888934 -1.315349184 -0.51811834 -0.200518566
## [22,] -0.6036089 1.41608502 -1.919853822 -0.05762263 1.227278352
## [23,] 1.2329324 0.12985615 0.186207388 -1.17563091 -0.430519842
## [24,] -1.3994803 -2.35031286 0.566728517 -0.43577667 -0.278225849
## [25,] 0.7958494 2.19877220 -0.701399356 -1.05294101 -0.138911873
## [26,] -3.5217601 0.48228133 -1.329812022 -0.02479733 0.597979575
## [27,] 4.4522349 -1.48040913 -1.419727892 1.48878635 1.215024791
## [28,] 0.9986393 -0.38116752 0.785788057 0.65470087 0.424784660
## [29,] -0.5984058 0.78261998 0.351184585 -1.38471380 0.537814579
## [30,] -2.0642453 -1.31468989 1.298556355 0.62607606 -0.029991931
## [31,] 3.6871451 1.72669681 -0.064734184 -0.19916377 0.927648697
## [32,] 0.3037084 0.82162686 0.286755352 -0.10987828 -0.496609478
## [33,] 0.8836770 1.56153486 0.680491826 0.69114998 -0.317944161
## [34,] -0.5438129 -1.26015501 -0.623651643 -1.15332587 -0.554651616
## [35,] 0.2365779 -0.66159945 -2.271301445 0.60766404 0.472332270
## [36,] -5.7337255 0.86879360 -1.604988161 0.01833863 -0.007588167
## [37,] 1.6739945 -1.67314193 -1.076567826 -1.14459646 -0.725580108
## [38,] -1.0512802 -1.28360724 -1.426039857 0.81274231 -0.665818577
## [39,] 1.6518845 2.12887838 -1.247371605 0.36203831 0.379714566
## [40,] 2.7955508 -0.04029265 -0.589245576 0.26786051 -0.028949188
## [41,] 4.3975785 0.61106754 1.129084367 -0.94443399 -0.817752317
## [42,] 1.3874664 1.58347966 0.442638056 -0.72843364 -0.838337424
## [43,] 0.1213048 -0.29649801 0.710463225 0.66679136 0.488485968
## [44,] -2.8146080 1.45282817 -1.186645489 -0.42386919 -0.190030986
## [45,] -4.0353033 -1.85775980 0.305202129 -0.87575839 0.367274436
## [46,] -1.0426781 -0.40560703 0.746769350 0.85673776 -0.419196618
## [47,] -0.4959084 2.69433437 -0.338588137 0.18414416 0.804592894
## [48,] -0.3790145 -0.75459070 0.054684318 -0.56130188 0.492479787
## [49,] 2.4208482 -1.43451812 1.152895446 0.38414211 -0.551776335
## [50,] -3.2383345 -2.63783418 0.752811301 0.30608303 -0.002104384
## Comp.6 Comp.7 Comp.8 Comp.9 Comp.10
## [1,] -0.580012946 0.461820221 0.07864644 0.26852381 0.40654453
## [2,] 0.011766220 0.102334065 -0.31671396 0.66842845 0.06816504
## [3,] -0.277452883 0.007197196 0.55030269 -0.59650977 -0.22210726
## [4,] 0.825988692 -0.924816206 -0.54013549 0.27512378 -0.80450634
## [5,] 0.844466509 1.180836056 -0.14181955 -0.07594707 0.23463585
## [6,] -0.080118836 -0.090374489 -0.26817487 0.32486469 0.14841653
## [7,] -0.300668312 0.156280871 0.05179366 0.23519832 0.08182654
## [8,] -0.300124192 -0.074476171 0.54315175 0.37410728 -0.52467303
## [9,] -0.780094735 0.124518784 0.74507132 -0.66290982 -0.19512147
## [10,] 0.758579845 -0.142023197 0.86539296 -0.34888622 -0.06534977
## [11,] 0.390398366 0.968180194 -0.26815887 -0.08415537 -0.40478613
## [12,] 0.402847476 -0.024789632 0.40112301 -0.41649420 -0.33433529
## [13,] 0.550233932 -0.679062539 -0.20513732 -0.40281944 0.50376123
## [14,] -0.546999073 1.087296098 0.46207809 0.26392073 -0.10123732
## [15,] -0.345947473 0.535872039 0.29277105 -0.55636045 0.25930000
## [16,] 0.146632337 -0.720368167 0.66326279 0.32933884 0.10626437
## [17,] -0.345393684 0.028338719 -0.53797153 0.23060910 0.27805541
## [18,] 0.559771984 0.265020224 -0.27883147 -0.04033819 -0.14874820
## [19,] -0.510322015 0.034513559 -0.48966554 -0.71784021 -0.07048293
## [20,] 0.280623234 -0.129613620 -0.10486225 -0.02696283 0.04874873
## [21,] 0.083961859 -0.252986702 -0.80357859 0.13061353 -0.04058750
## [22,] -0.838995719 0.319783205 0.10222614 0.31092887 -0.13595844
## [23,] 0.004214404 -0.418995267 0.61018139 -0.12888303 0.18401320
## [24,] 0.327036101 -0.059207650 0.13657298 -0.10088482 0.08640610
## [25,] 0.836908320 0.371911476 0.28530367 -0.26783271 0.71437141
## [26,] -0.009282288 1.278406496 -0.24118181 -0.47950123 -0.23290187
## [27,] 0.142261161 0.139526583 -0.27349146 0.08719640 0.01720537
## [28,] 0.315504399 -0.009260923 0.37055682 -0.36643611 0.54422472
## [29,] 0.408060729 0.372285935 0.31707823 0.33411136 -0.40367541
## [30,] 1.185685084 -0.282018060 -0.41308723 0.08846103 -0.01690715
## [31,] 0.189809324 0.470369902 -0.03072588 0.96605938 -0.01502933
## [32,] -0.189050488 -0.773307096 -0.82149320 -0.39245413 0.49073574
## [33,] -0.667462489 -0.112079593 -0.85286887 0.21140070 0.29587906
## [34,] 0.174434436 -0.251322912 -0.66400670 -0.77546803 -0.39461338
## [35,] -0.113171640 -0.518814029 0.59347563 0.31832018 0.57452328
## [36,] -0.553667951 0.024783983 0.04640569 -0.25262503 -0.07094763
## [37,] -1.412550138 -0.033221505 -0.39341155 -0.01402589 0.11097577
## [38,] -0.107697201 -0.483262131 0.26987764 0.18201359 -0.18346075
## [39,] -0.170820490 -0.899515640 0.45535852 0.03411853 -0.04495844
## [40,] -0.141266924 -0.255807258 -0.22016389 -0.14923421 -0.57443008
## [41,] 0.659306956 -0.011236996 -0.03444106 0.04186692 0.16054700
## [42,] -0.591885188 -0.133294302 0.21433480 0.26050588 -0.52124723
## [43,] -0.606182392 -0.847814585 0.05942553 -0.33198846 0.13961418
## [44,] 0.216119009 -0.461305311 0.15441834 -0.24368461 -0.47632748
## [45,] -0.415395107 0.192709997 -0.13884367 0.03856573 0.10778436
## [46,] 0.214863533 -0.165926016 0.47705126 0.98196450 0.12592728
## [47,] 0.383083200 0.245294181 -0.17494207 0.14161637 0.05282731
## [48,] 0.316884046 0.477209302 0.09010324 -0.20626867 0.21144508
## [49,] -0.153392946 0.229154446 -0.49652980 0.19593468 -0.09760662
## [50,] -0.191486043 -0.318743531 -0.12572698 0.34471783 0.12780100
## Comp.11
## [1,] 0.232164435
## [2,] 0.130636862
## [3,] 1.004460713
## [4,] 0.188377147
## [5,] 0.047055659
## [6,] -0.254391414
## [7,] -0.249190827
## [8,] -0.158069860
## [9,] -0.019629036
## [10,] 0.382012302
## [11,] -0.111574376
## [12,] -0.274081837
## [13,] -0.033861608
## [14,] -0.374388242
## [15,] -0.053211371
## [16,] 0.202686153
## [17,] 0.338238264
## [18,] -0.137672568
## [19,] -0.077423735
## [20,] -0.130022900
## [21,] 0.554256096
## [22,] -0.038423517
## [23,] 0.044473381
## [24,] 0.117341482
## [25,] 0.080493386
## [26,] 0.063102813
## [27,] 0.116896731
## [28,] -0.109960264
## [29,] -0.090482810
## [30,] -0.043815712
## [31,] 0.103261060
## [32,] -0.296351321
## [33,] -0.002214406
## [34,] -0.098060597
## [35,] 0.217761474
## [36,] 0.074611755
## [37,] 0.229959531
## [38,] -0.346955791
## [39,] -0.349053176
## [40,] 0.143037995
## [41,] -0.083995272
## [42,] 0.042875946
## [43,] -0.448592373
## [44,] -0.131409084
## [45,] -0.205510914
## [46,] -0.114581505
## [47,] -0.119660703
## [48,] -0.220375348
## [49,] -0.057689585
## [50,] 0.316946966
## NULL
#Con escala, con scores
pca(datos, y1, y2, t=TRUE, f=TRUE, x=TRUE, w=FALSE)
## Comp.1 Comp.2 Comp.3 Comp.4 Comp.5
## [1,] 3.0994493 -0.75249932 -0.064378326 -0.15192685 0.036351748
## [2,] -5.5197477 2.05268171 3.122170545 0.71665309 0.008172440
## [3,] -1.1096881 1.59390318 0.937972701 0.61005429 -0.597043213
## [4,] 2.0744998 0.18118314 0.600814611 -1.09427244 1.518256564
## [5,] 1.6592646 -1.41735207 -0.032388228 -0.71007628 -0.328651678
## [6,] -1.7773391 -2.04530692 -0.506919526 -1.04856118 0.980194918
## [7,] -0.1073088 3.81099059 1.397032148 -0.62335083 -0.834585319
## [8,] 1.7352236 -1.32985890 0.920666299 -0.55870517 -1.080129615
## [9,] 1.3099608 -0.32553183 1.711417504 0.32527489 1.110334056
## [10,] -0.7107484 -1.08627173 1.533017495 0.24405690 0.263675759
## [11,] 3.0654328 0.70798174 -1.837408427 2.45794691 -1.403309027
## [12,] 1.7225083 -0.75622560 -0.725724728 -0.27227661 -0.270024524
## [13,] 0.1553151 0.82931168 -0.520409029 -0.53984304 -0.543906348
## [14,] -1.7816009 -1.82907339 0.974085400 -0.31650954 -0.436414751
## [15,] 0.2548017 1.54715978 -0.367205385 -0.32310281 0.410194707
## [16,] -0.1381968 -1.03467667 -1.291155821 0.93640779 -0.314047405
## [17,] 2.1396636 -1.25527301 -0.208595750 -0.50554122 -0.133013274
## [18,] -2.6045653 -0.81138802 -1.244790762 1.05454881 -0.002362406
## [19,] 2.3366608 -0.13932200 3.260396688 1.46690659 0.916211820
## [20,] -3.2161559 0.76400690 0.006418516 1.19542339 -0.540807608
## [21,] -2.1046558 0.66888934 -1.315349184 -0.51811834 -0.200518566
## [22,] -0.6036089 1.41608502 -1.919853822 -0.05762263 1.227278352
## [23,] 1.2329324 0.12985615 0.186207388 -1.17563091 -0.430519842
## [24,] -1.3994803 -2.35031286 0.566728517 -0.43577667 -0.278225849
## [25,] 0.7958494 2.19877220 -0.701399356 -1.05294101 -0.138911873
## [26,] -3.5217601 0.48228133 -1.329812022 -0.02479733 0.597979575
## [27,] 4.4522349 -1.48040913 -1.419727892 1.48878635 1.215024791
## [28,] 0.9986393 -0.38116752 0.785788057 0.65470087 0.424784660
## [29,] -0.5984058 0.78261998 0.351184585 -1.38471380 0.537814579
## [30,] -2.0642453 -1.31468989 1.298556355 0.62607606 -0.029991931
## [31,] 3.6871451 1.72669681 -0.064734184 -0.19916377 0.927648697
## [32,] 0.3037084 0.82162686 0.286755352 -0.10987828 -0.496609478
## [33,] 0.8836770 1.56153486 0.680491826 0.69114998 -0.317944161
## [34,] -0.5438129 -1.26015501 -0.623651643 -1.15332587 -0.554651616
## [35,] 0.2365779 -0.66159945 -2.271301445 0.60766404 0.472332270
## [36,] -5.7337255 0.86879360 -1.604988161 0.01833863 -0.007588167
## [37,] 1.6739945 -1.67314193 -1.076567826 -1.14459646 -0.725580108
## [38,] -1.0512802 -1.28360724 -1.426039857 0.81274231 -0.665818577
## [39,] 1.6518845 2.12887838 -1.247371605 0.36203831 0.379714566
## [40,] 2.7955508 -0.04029265 -0.589245576 0.26786051 -0.028949188
## [41,] 4.3975785 0.61106754 1.129084367 -0.94443399 -0.817752317
## [42,] 1.3874664 1.58347966 0.442638056 -0.72843364 -0.838337424
## [43,] 0.1213048 -0.29649801 0.710463225 0.66679136 0.488485968
## [44,] -2.8146080 1.45282817 -1.186645489 -0.42386919 -0.190030986
## [45,] -4.0353033 -1.85775980 0.305202129 -0.87575839 0.367274436
## [46,] -1.0426781 -0.40560703 0.746769350 0.85673776 -0.419196618
## [47,] -0.4959084 2.69433437 -0.338588137 0.18414416 0.804592894
## [48,] -0.3790145 -0.75459070 0.054684318 -0.56130188 0.492479787
## [49,] 2.4208482 -1.43451812 1.152895446 0.38414211 -0.551776335
## [50,] -3.2383345 -2.63783418 0.752811301 0.30608303 -0.002104384
## Comp.6 Comp.7 Comp.8 Comp.9 Comp.10
## [1,] -0.580012946 0.461820221 0.07864644 0.26852381 0.40654453
## [2,] 0.011766220 0.102334065 -0.31671396 0.66842845 0.06816504
## [3,] -0.277452883 0.007197196 0.55030269 -0.59650977 -0.22210726
## [4,] 0.825988692 -0.924816206 -0.54013549 0.27512378 -0.80450634
## [5,] 0.844466509 1.180836056 -0.14181955 -0.07594707 0.23463585
## [6,] -0.080118836 -0.090374489 -0.26817487 0.32486469 0.14841653
## [7,] -0.300668312 0.156280871 0.05179366 0.23519832 0.08182654
## [8,] -0.300124192 -0.074476171 0.54315175 0.37410728 -0.52467303
## [9,] -0.780094735 0.124518784 0.74507132 -0.66290982 -0.19512147
## [10,] 0.758579845 -0.142023197 0.86539296 -0.34888622 -0.06534977
## [11,] 0.390398366 0.968180194 -0.26815887 -0.08415537 -0.40478613
## [12,] 0.402847476 -0.024789632 0.40112301 -0.41649420 -0.33433529
## [13,] 0.550233932 -0.679062539 -0.20513732 -0.40281944 0.50376123
## [14,] -0.546999073 1.087296098 0.46207809 0.26392073 -0.10123732
## [15,] -0.345947473 0.535872039 0.29277105 -0.55636045 0.25930000
## [16,] 0.146632337 -0.720368167 0.66326279 0.32933884 0.10626437
## [17,] -0.345393684 0.028338719 -0.53797153 0.23060910 0.27805541
## [18,] 0.559771984 0.265020224 -0.27883147 -0.04033819 -0.14874820
## [19,] -0.510322015 0.034513559 -0.48966554 -0.71784021 -0.07048293
## [20,] 0.280623234 -0.129613620 -0.10486225 -0.02696283 0.04874873
## [21,] 0.083961859 -0.252986702 -0.80357859 0.13061353 -0.04058750
## [22,] -0.838995719 0.319783205 0.10222614 0.31092887 -0.13595844
## [23,] 0.004214404 -0.418995267 0.61018139 -0.12888303 0.18401320
## [24,] 0.327036101 -0.059207650 0.13657298 -0.10088482 0.08640610
## [25,] 0.836908320 0.371911476 0.28530367 -0.26783271 0.71437141
## [26,] -0.009282288 1.278406496 -0.24118181 -0.47950123 -0.23290187
## [27,] 0.142261161 0.139526583 -0.27349146 0.08719640 0.01720537
## [28,] 0.315504399 -0.009260923 0.37055682 -0.36643611 0.54422472
## [29,] 0.408060729 0.372285935 0.31707823 0.33411136 -0.40367541
## [30,] 1.185685084 -0.282018060 -0.41308723 0.08846103 -0.01690715
## [31,] 0.189809324 0.470369902 -0.03072588 0.96605938 -0.01502933
## [32,] -0.189050488 -0.773307096 -0.82149320 -0.39245413 0.49073574
## [33,] -0.667462489 -0.112079593 -0.85286887 0.21140070 0.29587906
## [34,] 0.174434436 -0.251322912 -0.66400670 -0.77546803 -0.39461338
## [35,] -0.113171640 -0.518814029 0.59347563 0.31832018 0.57452328
## [36,] -0.553667951 0.024783983 0.04640569 -0.25262503 -0.07094763
## [37,] -1.412550138 -0.033221505 -0.39341155 -0.01402589 0.11097577
## [38,] -0.107697201 -0.483262131 0.26987764 0.18201359 -0.18346075
## [39,] -0.170820490 -0.899515640 0.45535852 0.03411853 -0.04495844
## [40,] -0.141266924 -0.255807258 -0.22016389 -0.14923421 -0.57443008
## [41,] 0.659306956 -0.011236996 -0.03444106 0.04186692 0.16054700
## [42,] -0.591885188 -0.133294302 0.21433480 0.26050588 -0.52124723
## [43,] -0.606182392 -0.847814585 0.05942553 -0.33198846 0.13961418
## [44,] 0.216119009 -0.461305311 0.15441834 -0.24368461 -0.47632748
## [45,] -0.415395107 0.192709997 -0.13884367 0.03856573 0.10778436
## [46,] 0.214863533 -0.165926016 0.47705126 0.98196450 0.12592728
## [47,] 0.383083200 0.245294181 -0.17494207 0.14161637 0.05282731
## [48,] 0.316884046 0.477209302 0.09010324 -0.20626867 0.21144508
## [49,] -0.153392946 0.229154446 -0.49652980 0.19593468 -0.09760662
## [50,] -0.191486043 -0.318743531 -0.12572698 0.34471783 0.12780100
## Comp.11
## [1,] 0.232164435
## [2,] 0.130636862
## [3,] 1.004460713
## [4,] 0.188377147
## [5,] 0.047055659
## [6,] -0.254391414
## [7,] -0.249190827
## [8,] -0.158069860
## [9,] -0.019629036
## [10,] 0.382012302
## [11,] -0.111574376
## [12,] -0.274081837
## [13,] -0.033861608
## [14,] -0.374388242
## [15,] -0.053211371
## [16,] 0.202686153
## [17,] 0.338238264
## [18,] -0.137672568
## [19,] -0.077423735
## [20,] -0.130022900
## [21,] 0.554256096
## [22,] -0.038423517
## [23,] 0.044473381
## [24,] 0.117341482
## [25,] 0.080493386
## [26,] 0.063102813
## [27,] 0.116896731
## [28,] -0.109960264
## [29,] -0.090482810
## [30,] -0.043815712
## [31,] 0.103261060
## [32,] -0.296351321
## [33,] -0.002214406
## [34,] -0.098060597
## [35,] 0.217761474
## [36,] 0.074611755
## [37,] 0.229959531
## [38,] -0.346955791
## [39,] -0.349053176
## [40,] 0.143037995
## [41,] -0.083995272
## [42,] 0.042875946
## [43,] -0.448592373
## [44,] -0.131409084
## [45,] -0.205510914
## [46,] -0.114581505
## [47,] -0.119660703
## [48,] -0.220375348
## [49,] -0.057689585
## [50,] 0.316946966
## NULL