> d<-[Link]("E:/Qodri/Data2.

csv",header = TRUE,sep = ":")

> pca<-princomp(Data3[-1],cor = T,scores = T)
> loadings(pca) #menunjukkan vektor ciri

Loadings:
Comp.1 Comp.2 Comp.3 Comp.4 Comp.5 Comp.6 Comp.7 Comp.8
X2 0.537 0.186 0.137 0.162 0.509 0.602
X3 -0.182 0.801 -0.226 -0.266 0.400 0.191
X4 0.528 -0.161 -0.597 0.291 -0.304 0.394
X5 -0.264 0.346 0.314 0.532 0.614 -0.206
X6 0.493 -0.113 -0.252 0.341 -0.133 0.574 -0.462
X7 -0.299 -0.527 -0.351 0.126 0.342 -0.204 0.351 0.460
X8 -0.262 0.493 -0.207 0.411 -0.542 -0.239 0.108 0.338
X9 0.484 0.188 0.182 -0.690 -0.450 0.137

Comp.1 Comp.2 Comp.3 Comp.4 Comp.5 Comp.6 Comp.7 Comp.8

SS loadings 1.000 1.000 1.000 1.000 1.000 1.000 1.000 1.000
Proportion Var 0.125 0.125 0.125 0.125 0.125 0.125 0.125 0.125
Cumulative Var 0.125 0.250 0.375 0.500 0.625 0.750 0.875 1.000
> summary(pca)
Importance of components:
Comp.1 Comp.2 Comp.3 Comp.4 Comp.5
Comp.6
Standard deviation 1.2621535 1.1068610 1.0456131 0.9933843 0.9212732
0.9090198
Proportion of Variance 0.1991289 0.1531427 0.1366633 0.1233515 0.1060930
0.1032896
Cumulative Proportion 0.1991289 0.3522716 0.4889349 0.6122865 0.7183795
0.8216691
Comp.7 Comp.8
Standard deviation 0.88301180 0.80432397
Proportion of Variance 0.09746373 0.08086713
Cumulative Proportion 0.91913287 1.00000000
> pca$scores
Comp.1 Comp.2 Comp.3 Comp.4 Comp.5
Comp.6
[1,] -0.231546317 1.46870308 -1.277609850 0.77815857 -0.8803944960 -
1.59459819
[2,] -0.219986531 -0.61533588 0.211465273 -0.77261378 0.3253018560
0.22674519
[3,] 0.210973486 -0.27363824 0.484755800 -0.97486027 0.4743868986
1.05674513
[4,] 0.047444973 -0.70294913 0.956521553 0.11700920 -0.3300653331
1.16910865
[5,] 0.796053023 -0.49250484 -0.259005446 -1.62218986 0.1939180512 -
0.79431182
[6,] -0.053235714 1.20948815 -1.540075612 -1.14936706 0.5221367831
0.12900646
[7,] 0.006487820 1.21723035 -0.259146805 -1.39260668 0.2542629684
0.02319613
[8,] -0.888932717 0.69913136 0.569336475 0.65022163 -0.2636120001
0.38725360
[9,] 0.496370623 0.28190365 -0.232702675 -1.77038077 -0.1828445961
0.26808700
[10,] -0.864640255 -0.06327094 0.215951291 -0.31433060 -0.5572518281
0.28694273
[11,] -0.492001362 -1.00708788 0.626700546 -0.60278330 0.0025026007
0.01376955
[12,] 1.524423849 -0.86722886 0.157979535 -1.07976929 0.2362157497 -
1.82096143
[13,] 0.857893320 -0.72783523 0.224602759 -0.08522281 0.6207959661
0.95867677
[14,] 0.599075440 1.35785952 0.710929959 1.36814964 1.3878746259
1.71812062
[15,] 1.176054726 -0.18939484 0.688620869 0.02449106 0.1127695838
0.59736247
[16,] 0.630493663 -0.73293307 0.309179909 -0.20510218 0.5408980202
0.45003520
[17,] 0.195318128 -0.27309705 0.894708298 -1.06119094 0.3639364756
1.15783388
[18,] -1.260163208 -0.07312684 -1.343524817 0.71842140 -0.7535217524
0.90849767
[19,] 0.432716143 1.74922870 -1.110063247 0.25891999 -0.2617344397
0.22174837
[20,] -0.416410575 0.19051439 0.589293174 0.78705376 0.0887680923
0.78952309
[21,] -0.389776130 0.53257113 -0.565147114 0.24593204 -0.5358198645 -
0.15526149
[22,] 0.437154254 -0.16605698 3.885687745 -0.21067587 -1.5227950659 -
1.35500104
[23,] 0.167581609 -0.99391904 0.400612607 -0.08800993 0.1708070033
0.53113112
[24,] -0.865292010 -1.00095321 -0.365218361 0.10053202 -0.0448772425
0.74838640
[25,] -1.216714153 0.44157779 0.043575819 0.52062651 -1.4887631690
0.12102285
[26,] 0.009972981 1.19037167 1.018667197 -1.64544125 -0.0608735622 -
0.35144094
[27,] 1.130002235 -1.40248801 0.552154601 0.40117386 0.4051555073 -
1.60277859
[28,] 0.213314606 -0.57041145 -0.226979908 -0.04113619 -1.1198207456
1.11099001
[29,] 0.450578902 -0.59652495 -0.263967832 0.07340383 -1.0785872694
0.86962357
[30,] 0.508143380 -0.34393096 -0.307818631 -0.21122834 -0.8977831718
0.61993705
[31,] -0.007432148 -0.38668323 0.038302913 -1.34864493 -0.6181231278
0.26958084
[32,] 0.696474111 -1.09411735 1.902066527 0.33032850 -0.3715550127 -
0.04324256
[33,] -0.851498687 1.18399835 0.569835541 -0.83627186 0.6127981704 -
0.24718560
[34,] 0.332632460 -0.40658771 -1.131747404 -1.65552259 0.5053050319
1.23150891
[35,] 1.124993567 -0.05435151 0.524733654 -0.06063035 0.3534144898
0.03201379
[36,] 1.052622645 0.01900601 0.541056668 -0.11133926 0.3135133624
0.54434312
[37,] 0.402045078 0.19952181 -0.420200811 -0.44812753 0.4902630741
1.09357959
[38,] -0.281160960 1.26187147 -1.499315857 0.43667746 -0.5021311090 -
0.57919301
[39,] -0.073539754 -0.00961512 0.397884347 0.16493633 -0.5004488714
0.98960883
[40,] 7.545004133 -1.12553247 -2.428531394 3.10276525 -0.9436596553 -
0.52207664
[41,] -1.352961580 2.46177981 -0.763397342 -0.54604135 0.0891893006 -
0.35336158
[42,] 2.339470620 0.87883022 0.483588687 0.76514767 0.2740363445 -
0.85187731
[43,] -0.488295939 -0.11403724 0.689970950 -0.89807638 -0.1722469336
0.49943441
[44,] -0.141415927 0.47677496 -0.902463061 0.25554283 -1.6520054066
0.77209793
[45,] 0.396675347 -0.15982743 -0.082302052 0.43297208 1.3491935474
1.07799176
[46,] -1.773281637 1.95469658 2.782903758 3.82356562 4.3927036227 -
0.10243925
[47,] 0.183137660 -0.62013519 0.341421826 -1.25715107 -0.6455471600 -
0.87518067
[48,] -0.707768907 -0.37078570 -0.018993662 -0.54529705 -0.1423105545
0.29458283
[49,] 0.855723424 0.27136870 0.779761150 -1.41541424 0.8249438837
0.46712626
[50,] -1.639718095 2.20874836 -0.867190903 1.82646804 0.0353690441
0.63116388
[51,] -0.022149958 0.13200188 -1.200730019 -0.43048512 0.3159661868 -
0.06843744
[52,] -0.117435862 -2.18187969 -0.896898404 0.63706989 1.2988944886 -
2.34594604
[53,] -0.307432205 -0.75020223 -0.294644397 0.28235139 -1.4949353640
0.25958180
[54,] 0.569829429 1.76782357 -1.640458809 -0.72731438 0.6333236242 -
2.56355060
[55,] -2.136843757 -2.49642981 -0.917350717 1.10376933 0.2536283956 -
0.54500248
[56,] -1.055535705 0.48133429 0.047976954 0.56958171 -1.4237752274
0.27689119
[57,] 0.548509450 -1.24198475 1.284395117 0.19820244 0.0330009664 -
1.72721826
[58,] 1.742118178 2.38839378 -0.986010372 -1.67314243 1.3668407626 -
1.23524946
[59,] -0.895575990 -0.17050094 -0.049283157 -0.01167650 -0.6834557078
0.67841686
[60,] -0.976891320 -1.28571897 2.621174727 -0.82585684 -0.7849196838 -
0.51374872
[61,] 0.527024439 -0.95730843 0.387678302 0.33979752 -0.1083105009
0.33470986
[62,] -1.751222655 -3.65573666 -0.532745580 0.23967071 1.3325288925 -
0.61045490
[63,] 1.696926044 -0.23338911 0.865470426 0.14495557 0.4796871685 -
1.29349698
[64,] 0.231253607 0.68506491 -0.090435027 -0.29063458 -0.1155078242
1.38252368
[65,] 0.233653869 0.83937774 0.528308430 1.91191446 -0.3794538224
0.18964424
[66,] 0.248642038 -0.37272353 0.447503579 0.60965095 -0.4443606111
0.14270623
[67,] -0.121467562 -0.29709497 0.368655933 -0.41899938 0.0485494463
0.80136547
[68,] -0.723513043 0.73823835 -0.240792933 1.71271912 -0.4935413488 -
0.26629702
[69,] -1.030888422 -0.45304236 1.312809749 0.33587142 1.6116280133 -
0.21740772
[70,] -0.584329682 1.23575488 -0.908691652 -1.54242268 0.4131831361 -
0.44252538
[71,] -0.262341358 0.48997962 -1.369044664 -0.64215337 0.5329204403
1.52856005
[72,] -3.020572062 -3.46798052 -4.149410623 0.37098998 2.4797320766 -
0.02445661
[73,] -0.961188065 0.13910435 0.629697047 1.02240477 -0.2503428946
0.24698521
[74,] -0.441141413 1.27690952 0.006010176 -0.83310399 1.1556067282 -
1.04798399
[75,] -0.651489179 0.93529025 -0.309603471 -2.02140441 0.4749293231 -
0.25708563
[76,] 0.032290215 -0.08264606 0.354357108 -0.21584586 0.0001251183 -
0.67605027
[77,] -0.489697653 1.19940737 0.319896353 0.66160570 0.0497708207 -
1.25759595
[78,] 3.945774334 0.84054466 -0.227217954 0.20431427 1.9900045254
1.95244978
[79,] -2.149997252 1.72736941 -0.250521842 1.08556088 -1.4244309325 -
0.56548957
[80,] 0.751550496 -1.19517837 -0.655462324 -0.43882606 -0.1331470541
0.66751459
[81,] -0.018382414 -1.32500584 0.384638417 0.48698359 -0.4599654635
0.48716099
[82,] -0.647940991 0.39383605 -0.654481701 0.20492157 -0.2686320941 -
1.86137102
[83,] -0.307222597 -0.36503298 -0.341526298 1.01656269 -0.9168266855 -
0.75283199
[84,] -0.587073312 0.52514013 -0.135384623 0.55428431 -1.1759100436 -
1.14194963
[85,] -0.377162748 -0.13410791 -0.817310217 0.77335743 -0.6099218328 -
0.81176668
[86,] -0.666146753 0.55251168 -0.973151934 1.12172294 -1.1843621854
1.07285400
[87,] -0.736276403 -0.12600324 0.291777163 0.62160905 -1.1429307222 -
0.02338864
[88,] 0.024208852 -0.59779647 0.868668212 -0.13936820 -0.2456122342 -
0.01924614
[89,] -0.188477756 -0.57963040 0.505887444 -0.16549142 -0.1886351246 -
0.06648667
[90,] 0.073555562 -0.19950490 0.689384935 -0.66621806 0.0449695576 -
0.70419166
Comp.7 Comp.8
[1,] -1.078712643 0.27739496
[2,] -0.551263099 -1.08519091
[3,] 0.337101815 -0.29528462
[4,] -0.092772448 0.14525153
[5,] -0.782591235 -0.59019759
[6,] 1.268271174 -0.46522246
[7,] 1.459726574 0.08381470
[8,] 0.570965748 -0.06635921
[9,] 0.220595541 0.12079655
[10,] 0.159098008 -0.44144036
[11,] -0.623304630 -1.32199812
[12,] -1.448886512 -0.32651652
[13,] -0.499851744 0.06270668
[14,] 0.255328437 0.97993809
[15,] 0.309533119 0.39711677
[16,] -0.897022601 -0.26917212
[17,] 0.516643609 -0.11557825
[18,] -0.533835786 -0.54490041
[19,] -0.262681908 1.07945186
[20,] 0.271957987 -0.21848976
[21,] -0.590677849 -0.08717450
[22,] 2.118652368 1.55390870
[23,] -1.025164288 -0.82902940
[24,] -0.543288588 -0.61277417
[25,] 0.092091778 -0.05700206
[26,] 1.541709257 0.41872673
[27,] -1.666591181 -0.91480730
[28,] -0.514289690 0.42749305
[29,] -0.579672514 0.40431069
[30,] -0.541425656 0.50072042
[31,] -0.023521350 -0.25999469
[32,] 0.069931833 0.56350626
[33,] 1.234288931 -0.24552754
[34,] 0.046086825 0.09685765
[35,] -0.678817504 0.46677493
[36,] -0.421566730 0.59088787
[37,] 0.067224267 0.15858727
[38,] -0.870180496 0.02539162
[39,] -0.005652717 0.26356993
[40,] 3.988539011 -2.61049044
[41,] 1.007846416 -0.40587916
[42,] -0.564335469 2.33417919
[43,] 0.520762779 -0.47615118
[44,] -0.412619461 0.82885209
[45,] -0.894977849 -0.56204708
[46,] -0.034825280 -1.87251409
[47,] -0.327865979 -0.45273706
[48,] -0.145716418 -1.01770271
[49,] 0.517938666 0.21324300
[50,] -0.133115833 -0.17826799
[51,] -0.657840748 -1.43979244
[52,] -0.856509956 0.78142666
[53,] -0.107528608 0.56954337
[54,] -1.179105400 -0.25904196
[55,] 1.503132741 2.03833576
[56,] 0.135207728 0.15382621
[57,] -0.534122833 0.09907849
[58,] 0.493391606 0.82219892
[59,] -0.093368122 -0.68394756
[60,] 1.534775936 -0.07500187
[61,] 0.665133106 -0.20764733
[62,] 1.092263558 0.97407035
[63,] -1.222874797 0.57048478
[64,] 0.458755441 0.48739996
[65,] -0.464413723 1.10010166
[66,] -0.753480272 0.26431527
[67,] 0.141950312 -0.01438911
[68,] -0.910301255 -0.08603231
[69,] 0.224380920 -1.12302754
[70,] 0.629563663 -0.42534961
[71,] -0.498910638 -0.56838919
[72,] 1.706025483 1.45118791
[73,] 0.606099830 0.19022597
[74,] 0.937721545 -0.01211475
[75,] 0.712961379 -0.93895744
[76,] 0.147110726 0.46487463
[77,] 0.501272609 0.76135883
[78,] -1.087898407 2.62855312
[79,] 1.055907788 -0.11030460
[80,] -1.528441085 -0.53249138
[81,] 0.742822698 -0.75619266
[82,] 0.274467241 0.90749946
[83,] -0.624051130 -0.53588281
[84,] -0.184067696 -0.14331989
[85,] -0.587405751 -0.48395755
[86,] -0.348163907 0.15749382
[87,] -0.505194977 -0.23495915
[88,] -0.407180229 -0.37216368
[89,] -0.631664875 -0.62407198
[90,] -0.209486587 -0.46597116
> plot(pca,type = "lines") #screeplot
> plot(pca$scores) #plot skor KU
> plot(pca$scores,labels=d$name) #memberikan label nama pada plot
> abline(h=0,v=0)