resume fa
MEISYA PUTERI SIAGIAN
2025-03-15
- Import Data
library(readxl)
DATA_WINE_CLUSTERING <- read_excel("D:/Meisya/Kuliah/Semester 4/Statistika Multivariat/DATA WINE CLUSTERING.xlsx")
View(DATA_WINE_CLUSTERING)- Standarisasi Data karena data memiliki satuan yang berbeda
# Standarisasi Data ke Z-score
data_z <- scale(DATA_WINE_CLUSTERING)
data_z## X1 X2 X3 X4 X5
## [1,] 1.51434077 -0.56066822 0.23139979 -1.166303174 1.90852151
## [2,] 0.24559683 -0.49800856 -0.82566722 -2.483840525 0.01809398
## [3,] 0.19632522 0.02117152 1.10621386 -0.267982252 0.08810981
## [4,] 1.68679140 -0.34583508 0.48655389 -0.806974805 0.92829983
## [5,] 0.29486844 0.22705328 1.83522559 0.450674485 1.27837900
## [6,] 1.47738706 -0.51591132 0.30430096 -1.286079296 0.85828399
## [7,] 1.71142720 -0.41744613 0.30430096 -1.465743481 -0.26196936
## [8,] 1.30493643 -0.16680747 0.88751034 -0.567422559 1.48842650
## [9,] 2.25341491 -0.62332789 -0.71631546 -1.645407665 -0.19195352
## [10,] 1.05857838 -0.88291793 -0.35180959 -1.046527051 -0.12193769
## [11,] 1.35420804 -0.15785609 -0.24245783 -0.447646437 0.36817315
## [12,] 1.37884384 -0.76654998 -0.16955666 -0.806974805 -0.33198519
## [13,] 0.92308146 -0.54276546 0.15849862 -1.046527051 -0.75208020
## [14,] 2.15487169 -0.54276546 0.08559744 -2.423952463 -0.61204853
## [15,] 1.69910930 -0.41744613 0.04914686 -2.244288279 0.15812565
## [16,] 0.77526663 -0.47115441 1.21556562 -0.687198682 0.85828399
## [17,] 1.60056608 -0.37268923 1.28846679 0.151234178 1.41841067
## [18,] 1.02162467 -0.68598755 0.92396093 0.151234178 1.06833150
## [19,] 1.46506916 -0.66808479 0.41365272 -0.896806897 0.57822065
## [20,] 0.78758453 0.68357369 0.70525741 -1.286079296 1.13834733
## [21,] 1.30493643 -0.63227927 -0.31535901 -1.046527051 1.83850567
## [22,] -0.08698653 1.31017034 1.03331269 -0.267982252 0.15812565
## [23,] 0.87380985 -0.42639751 -0.02375431 -0.866862867 0.08810981
## [24,] -0.18552975 -0.65913341 0.55945507 -0.507534498 -0.33198519
## [25,] 0.61513390 -0.47115441 0.88751034 0.151234178 -0.26196936
## [26,] 0.06082829 -0.25632128 3.11099611 1.648435713 1.69847400
## [27,] 0.47963697 -0.50695994 0.92396093 -1.016583020 -0.47201686
## [28,] 0.36877585 -0.55171684 -0.82566722 -0.747086744 -0.40200103
## [29,] 1.07089628 -0.39059199 1.58007149 -0.028430007 0.50820482
## [30,] 1.25566482 -0.58752236 -0.57051311 -1.046527051 -0.26196936
## [31,] 0.89844565 -0.74864721 1.21556562 0.899834945 0.08810981
## [32,] 0.71367712 -0.60542512 -0.02375431 -0.118262099 0.43818899
## [33,] 0.83685614 -0.45325165 -0.02375431 -0.687198682 0.29815732
## [34,] 0.93539936 -0.72179307 1.21556562 0.001514024 2.25860068
## [35,] 0.62745180 -0.48010579 1.03331269 -0.148206130 0.71825232
## [36,] 0.59049809 -0.47115441 0.15849862 0.300954331 0.01809398
## [37,] 0.34414005 -0.62332789 1.72587383 -1.196247204 0.71825232
## [38,] 0.06082829 -0.61437650 0.66880683 -0.447646437 -0.12193769
## [39,] 0.08546410 -0.74864721 -0.97146956 -1.196247204 -0.12193769
## [40,] 1.50202286 1.48024658 0.52300448 -1.884959911 1.97853734
## [41,] 0.68904131 -0.56066822 -0.20600725 -0.986638989 1.20836316
## [42,] 0.50427278 1.34597587 -0.89856839 -0.208094191 -0.68206436
## [43,] 1.08321419 -0.39954337 0.81460917 -1.345967358 0.08810981
## [44,] 0.29486844 1.47129519 -0.27890842 -0.597366590 0.22814148
## [45,] 0.06082829 -0.50695994 -0.97146956 -0.747086744 0.50820482
## [46,] 1.48970496 1.52500348 0.26785038 -0.178150160 0.78826816
## [47,] 1.69910930 1.12219135 -0.31535901 -1.046527051 0.15812565
## [48,] 1.10784999 -0.58752236 -0.89856839 -1.046527051 0.08810981
## [49,] 1.35420804 -0.28317542 0.12204803 -0.208094191 0.22814148
## [50,] 1.15712160 -0.54276546 -0.35180959 -0.627310621 0.57822065
## [51,] 0.06082829 -0.54276546 -1.19017308 -2.124512156 -0.54203270
## [52,] 1.02162467 -0.61437650 0.85105976 -0.687198682 -0.40200103
## [53,] 1.00930677 -0.52486270 0.19494920 -1.645407665 0.78826816
## [54,] 0.94771726 -0.39059199 1.14266445 -0.717142713 1.06833150
## [55,] 0.91076355 -0.59647374 -0.42471076 -0.926750928 1.27837900
## [56,] 0.68904131 -0.54276546 0.34075155 0.300954331 1.13834733
## [57,] 1.50202286 -0.56961960 -0.24245783 -0.956694959 1.27837900
## [58,] 0.35645795 -0.32793232 1.14266445 -0.806974805 0.15812565
## [59,] 0.88612775 -0.81130688 0.48655389 -0.836918836 0.57822065
## [60,] -0.77678907 -1.24992453 -3.66881295 -2.663504709 -0.82209603
## [61,] -0.82606067 -1.10670244 -0.31535901 -1.046527051 0.08810981
## [62,] -0.44420570 -0.87396654 -1.26307425 -0.806974805 0.01809398
## [63,] 0.82453824 -0.97243173 -1.62758012 -0.447646437 -0.40200103
## [64,] -0.77678907 -1.07984830 -0.75276604 -0.148206130 -0.89211187
## [65,] -1.02314711 -0.79340412 0.59590565 -0.148206130 0.29815732
## [66,] -0.77678907 -1.00823725 0.70525741 -0.417702406 -0.12193769
## [67,] 0.13473571 -1.18726487 -2.42949302 -1.345967358 -1.52225438
## [68,] -0.77678907 -1.04404278 -1.62758012 0.031458055 -1.52225438
## [69,] 0.41804746 -1.24992453 -0.02375431 -0.747086744 0.71825232
## [70,] -0.97387550 -1.02614002 -2.24724008 -0.806974805 3.58890153
## [71,] -0.87533228 -0.65018203 -0.57051311 0.271010300 0.22814148
## [72,] 1.05857838 -0.73969583 1.10621386 1.648435713 -0.96212770
## [73,] 0.60281600 -0.60542512 -0.46116135 1.348995406 -0.89211187
## [74,] -0.01307912 -0.59647374 0.85105976 3.145637249 2.74871152
## [75,] -1.28182306 -1.11565382 -0.24245783 0.450674485 0.08810981
## [76,] -1.65136013 -0.40849475 -1.62758012 -1.046527051 -0.19195352
## [77,] 0.03619249 -1.28573006 -2.39304243 -1.046527051 -0.96212770
## [78,] -1.42963789 0.49559470 -0.49761194 -0.447646437 0.85828399
## [79,] -0.82606067 -1.20516763 -1.51822836 -1.405855419 2.53866402
## [80,] -0.37029829 1.37283001 0.12204803 1.049555099 0.08810981
## [81,] -1.23255145 -1.26782729 -1.33597542 -0.148206130 -0.96212770
## [82,] -0.34566248 -0.47115441 -0.60696370 -0.208094191 -0.96212770
## [83,] -1.13400823 -1.07984830 0.52300448 1.348995406 -1.52225438
## [84,] 0.06082829 1.36387863 -0.16955666 0.899834945 -1.03214354
## [85,] -1.42963789 -1.29468144 0.77815859 -0.447646437 -0.40200103
## [86,] -0.40725200 -1.21411901 -0.46116135 -0.447646437 -0.05192185
## [87,] -1.03546501 -0.65018203 -0.20600725 0.989667037 -0.68206436
## [88,] -1.66367803 -0.59647374 0.92396093 1.947876020 -0.82209603
## [89,] -1.67599593 -0.24736990 0.34075155 0.630338669 -1.10215937
## [90,] -1.13400823 -0.90082069 -0.24245783 1.229219283 -2.08238105
## [91,] -1.13400823 -0.45325165 -0.16955666 -0.297926283 -1.31220687
## [92,] -1.23255145 -0.73969583 0.19494920 0.750114792 -0.96212770
## [93,] -0.38261619 -0.72179307 -0.38826018 0.360842393 -1.38222271
## [94,] -0.87533228 0.44188642 -0.53406252 -0.447646437 -0.82209603
## [95,] -1.70063174 -0.31002956 -0.31535901 -0.447646437 -0.12193769
## [96,] -0.65361004 -0.73074445 -0.60696370 -0.148206130 4.35907571
## [97,] -1.46659160 -0.19366161 1.36136797 0.600394638 2.39863235
## [98,] -0.87533228 -0.82920964 -1.40887660 -1.046527051 -1.03214354
## [99,] -0.77678907 -1.13355658 -0.97146956 -0.297926283 -0.82209603
## [100,] -0.87533228 0.74623336 -0.57051311 -0.447646437 -0.82209603
## [101,] -1.13400823 -0.22946714 -2.42949302 -0.597366590 -0.19195352
## [102,] -0.49347731 -0.89186931 -1.70048129 -0.297926283 -0.82209603
## [103,] -0.81374277 0.10173395 0.34075155 0.450674485 -0.12193769
## [104,] -1.45427369 -0.55171684 -1.77338246 0.001514024 -0.96212770
## [105,] -0.60433843 -0.54276546 -1.40887660 0.300954331 -1.03214354
## [106,] -0.71519955 0.19124776 -0.35180959 0.750114792 -0.68206436
## [107,] -0.92460389 -0.54276546 -0.89856839 -0.148206130 -1.38222271
## [108,] -0.34566248 -0.52486270 -0.31535901 0.899834945 -1.10215937
## [109,] -0.96155760 -0.93662621 -1.55467894 -0.148206130 -0.54203270
## [110,] -1.71294964 -0.88291793 1.21556562 0.151234178 -0.40200103
## [111,] -1.89771818 1.25646206 -1.99208598 0.001514024 0.50820482
## [112,] -0.59202053 0.08383119 -0.71631546 0.450674485 -0.82209603
## [113,] -1.52818111 0.30761571 2.01747852 0.151234178 0.22814148
## [114,] -1.95930769 -1.42895215 0.48655389 0.450674485 -0.82209603
## [115,] -1.13400823 -0.84711240 0.48655389 0.899834945 -1.10215937
## [116,] -2.42738798 -0.73969583 -0.60696370 0.600394638 -1.03214354
## [117,] -1.45427369 -0.77550136 -1.37242601 0.390786423 -0.96212770
## [118,] -0.71519955 -0.65018203 -0.64341428 0.899834945 0.57822065
## [119,] -0.28407297 0.97896926 -1.40887660 -1.046527051 -1.38222271
## [120,] -1.23255145 0.97896926 -1.33597542 -0.148206130 -0.89211187
## [121,] -1.91003608 0.05697705 0.19494920 0.151234178 -0.26196936
## [122,] -1.77453915 -0.25632128 3.14744670 2.696476788 1.34839483
## [123,] -0.71519955 1.87410733 1.32491738 2.097596174 0.15812565
## [124,] 0.06082829 3.10044648 -0.86211780 0.600394638 -0.96212770
## [125,] -1.39268418 1.76669076 0.08559744 0.450674485 -1.24219104
## [126,] -1.14632613 -0.15785609 -0.71631546 0.450674485 -1.03214354
## [127,] -0.70288165 -0.72179307 -0.27890842 0.600394638 -0.96212770
## [128,] -1.49122740 -0.18471023 1.50717031 2.696476788 -0.54203270
## [129,] -0.77678907 -0.63227927 -0.24245783 1.498715559 -0.82209603
## [130,] -1.18327984 1.75773938 0.04914686 0.750114792 -1.38222271
## [131,] -0.17321185 -0.88291793 -0.16955666 -0.447646437 1.55844234
## [132,] -0.14857605 0.58510851 0.12204803 0.151234178 0.29815732
## [133,] -0.23480136 -0.02358538 0.12204803 1.348995406 -0.12193769
## [134,] -0.37029829 1.08638583 -0.02375431 0.600394638 0.43818899
## [135,] -0.60433843 -0.98138311 -0.42471076 -0.597366590 -1.03214354
## [136,] -0.49347731 0.11068533 -0.60696370 -0.297926283 -0.40200103
## [137,] -0.92460389 2.13369737 0.63235624 0.450674485 -0.75208020
## [138,] -0.57970263 2.84085644 0.99686210 1.648435713 -0.26196936
## [139,] 0.60281600 1.12219135 -0.64341428 0.001514024 -0.82209603
## [140,] -0.19784766 0.55825437 0.88751034 1.348995406 0.08810981
## [141,] -0.08698653 0.42398365 1.21556562 0.450674485 -0.26196936
## [142,] 0.44268327 0.20019914 -0.06020490 0.151234178 -0.75208020
## [143,] 0.63976970 0.74623336 1.28846679 1.199275252 -0.19195352
## [144,] 0.76294873 2.33957912 -0.06020490 0.151234178 -0.54203270
## [145,] -0.92460389 1.38178139 -0.60696370 -0.297926283 0.85828399
## [146,] 0.19632522 1.10428859 -0.78921663 0.450674485 0.15812565
## [147,] 1.08321419 2.42014155 -0.49761194 0.151234178 -1.38222271
## [148,] -0.16089395 2.03523218 0.41365272 0.600394638 -0.96212770
## [149,] 0.39341166 0.80889302 0.04914686 0.600394638 -0.54203270
## [150,] 0.09778200 1.39968415 -0.02375431 0.600394638 0.92829983
## [151,] 0.61513390 0.70147646 0.92396093 1.348995406 1.62845817
## [152,] -0.25943717 0.29866433 0.41365272 0.750114792 0.85828399
## [153,] 0.13473571 -0.39059199 1.39781855 1.798155867 1.13834733
## [154,] 0.28255053 0.86260131 -0.31535901 -0.297926283 -0.12193769
## [155,] -0.51811312 -0.93662621 -0.97146956 0.151234178 0.22814148
## [156,] 0.20864312 2.55441226 -0.16955666 0.750114792 -0.47201686
## [157,] 1.03394258 1.59661452 0.04914686 0.001514024 -0.75208020
## [158,] -0.67824585 0.62091403 0.99686210 2.247316327 -0.19195352
## [159,] 1.64983769 -0.58752236 1.21556562 1.648435713 -0.12193769
## [160,] 0.59049809 -0.59647374 0.99686210 0.899834945 -0.75208020
## [161,] -0.78910697 1.33702448 0.04914686 0.450674485 -0.82209603
## [162,] 0.84917404 0.82679579 0.63235624 0.151234178 0.50820482
## [163,] -0.18552975 0.83574717 0.77815859 0.750114792 0.43818899
## [164,] -0.05003283 0.99687202 -0.06020490 -0.297926283 0.43818899
## [165,] 0.96003516 0.37922675 -0.24245783 0.750114792 -0.68206436
## [166,] 0.89844565 1.81144766 -0.38826018 0.899834945 -0.82209603
## [167,] 0.55354439 1.22065654 0.85105976 1.049555099 0.78826816
## [168,] -0.22248346 0.92526097 -0.24245783 0.001514024 -0.82209603
## [169,] 0.71367712 0.21810190 1.17911504 1.498715559 0.36817315
## [170,] 0.49195487 2.02628080 1.79877500 1.648435713 0.85828399
## [171,] -0.98619340 0.62091403 -0.16955666 -0.148206130 -0.26196936
## [172,] -0.28407297 0.04802567 -0.31535901 0.001514024 -0.96212770
## [173,] 1.42811545 0.15544223 0.41365272 0.151234178 -0.61204853
## [174,] 0.87380985 2.96617577 0.30430096 0.300954331 -0.33198519
## [175,] 0.49195487 1.40863553 0.41365272 1.049555099 0.15812565
## [176,] 0.33182214 1.73983662 -0.38826018 0.151234178 1.41841067
## [177,] 0.20864312 0.22705328 0.01269627 0.151234178 1.41841067
## [178,] 1.39116174 1.57871176 1.36136797 1.498715559 -0.26196936
## X6 X7 X8 X9 X10
## [1,] 0.806721729 1.0319080692 -0.65770780 1.22143845 -0.07495235
## [2,] 0.567048088 0.7315652835 -0.81841060 -0.54318872 -0.07495405
## [3,] 0.806721729 1.2121137407 -0.49700500 2.12995937 -0.07495229
## [4,] 2.484437221 1.4623993954 -0.97911340 1.02925134 -0.07494944
## [5,] 0.806721729 0.6614853002 0.22615759 0.40027531 -0.07495413
## [6,] 1.557699140 1.3622851335 -0.17559941 0.66234866 -0.07495085
## [7,] 0.327374446 0.4912910549 -0.49700500 0.67982021 -0.07495287
## [8,] 0.487156874 0.4812796287 -0.41665360 -0.59560339 -0.07495314
## [9,] 0.806721729 0.9518166597 -0.57735640 0.67982021 -0.07495294
## [10,] 1.094330099 1.1220109049 -1.13981619 0.45268998 -0.07495022
## [11,] 1.046395371 1.2922051502 -1.13981619 1.37868246 -0.07495220
## [12,] -0.151972837 0.4011882192 -0.81841060 -0.03651359 -0.07495321
## [13,] 0.487156874 0.7315652835 -0.57735640 0.38280376 -0.07495240
## [14,] 1.286069013 1.6626279192 0.54756319 2.12995937 -0.07495267
## [15,] 1.605633868 1.6125707883 -0.57735640 2.39203271 -0.07494984
## [16,] 0.886612943 0.8817366764 -0.49700500 -0.22870071 -0.07495011
## [17,] 0.806721729 1.1119994787 -0.25595080 0.66234866 -0.07495159
## [18,] 1.046395371 1.3722965597 0.30650899 0.22555975 -0.07495105
## [19,] 1.605633868 1.9029021478 -0.33630220 0.47016154 -0.07494822
## [20,] 0.646939302 1.0018737906 -1.54157319 0.12073042 -0.07495308
## [21,] 1.126286585 1.1420337573 -0.97911340 0.88947889 -0.07495233
## [22,] 0.183570261 0.3811653668 -0.89876200 0.67982021 -0.07495388
## [23,] 0.503135117 0.8517023978 -0.73805920 0.17314508 -0.07495483
## [24,] 0.295417961 0.3411196621 -0.81841060 -0.22870071 -0.07495465
## [25,] 0.375309174 0.5813938906 -0.65770780 0.12073042 -0.07495520
## [26,] 0.535091602 0.6514738740 0.86896878 0.57499088 -0.07495512
## [27,] 0.886612943 0.9117709549 -0.17559941 -0.24617226 -0.07495348
## [28,] 0.167592018 0.1609139906 -0.73805920 -0.42088782 -0.07495463
## [29,] 1.046395371 0.9418052335 0.06545479 0.29544598 -0.07495388
## [30,] 0.567048088 0.3010739573 -0.81841060 0.67982021 -0.07495361
## [31,] 1.126286585 1.2221251668 -0.57735640 1.37868246 -0.07495227
## [32,] 0.902591186 1.1620566097 -1.13981619 0.62740554 -0.07495065
## [33,] 0.199548504 0.6614853002 0.46721179 0.66234866 -0.07495477
## [34,] 1.046395371 0.7115424311 1.11002298 -0.42088782 -0.07495267
## [35,] 0.087700804 0.5013024811 -0.57735640 -0.08892826 -0.07495429
## [36,] 0.646939302 0.9518166597 -0.81841060 0.47016154 -0.07495308
## [37,] 0.487156874 0.6514738740 -0.17559941 -0.40341627 -0.07495375
## [38,] 0.247483232 0.4011882192 -0.57735640 -0.26364382 -0.07495422
## [39,] 0.167592018 0.6114281692 -0.65770780 -0.38594471 -0.07495496
## [40,] 1.126286585 1.0118852168 -1.30051899 0.85453577 -0.07495308
## [41,] 1.365960227 1.2621708716 -0.17559941 1.30879623 -0.07495169
## [42,] 0.247483232 0.6514738740 -0.73805920 -0.19375759 -0.07495418
## [43,] 1.525742654 1.5324793788 -1.54157319 0.19061664 -0.07495263
## [44,] 0.551069845 0.6014167430 -0.33630220 0.12073042 -0.07495407
## [45,] 1.126286585 0.9718395121 -0.65770780 0.76717799 -0.07495316
## [46,] 0.886612943 0.6214395954 -0.49700500 -0.59560339 -0.07495289
## [47,] 1.525742654 1.1420337573 -0.73805920 1.04672289 -0.07495335
## [48,] 1.286069013 1.3622851335 -1.22016759 0.95936511 -0.07495173
## [49,] 0.726830515 0.8917481025 -0.33630220 1.37868246 -0.07495159
## [50,] 0.934547672 1.5124565264 -0.33630220 0.85453577 -0.07494795
## [51,] 0.678895787 1.2421480192 -1.54157319 2.30467493 -0.07495025
## [52,] 0.247483232 0.9618280859 -1.13981619 1.22143845 -0.07495240
## [53,] 2.532371949 1.7126850502 -0.33630220 0.48763309 -0.07495045
## [54,] 1.126286585 0.7615995621 0.22615759 0.15567353 -0.07495146
## [55,] 0.487156874 0.8717252502 -1.22016759 0.05084419 -0.07495206
## [56,] 1.062373614 0.7515881359 -1.30051899 1.50098335 -0.07495153
## [57,] 1.445851440 0.9718395121 -0.81841060 0.76717799 -0.07495135
## [58,] 1.126286585 1.2021023145 -0.41665360 0.12073042 -0.07495186
## [59,] 1.765416296 1.6426050669 -1.38087039 0.78464955 -0.07495078
## [60,] -0.503494178 -1.4609370523 -0.65770780 -2.04574255 -0.07495732
## [61,] -0.391646479 -0.9403428904 2.15459116 -2.06321410 -0.07495554
## [62,] -0.439581207 -0.6199772522 1.35107717 -1.69631142 -0.07495220
## [63,] -0.311755265 -0.2395430570 -0.33630220 -1.50412430 -0.07495483
## [64,] 1.925198724 1.0719537740 -1.38087039 0.48763309 -0.07495395
## [65,] -0.647298363 -0.2795887618 0.70826598 -0.97997762 -0.07495597
## [66,] 0.199548504 0.6214395954 0.06545479 0.85453577 -0.07495375
## [67,] 1.094330099 1.1520451835 -0.81841060 1.20396690 -0.07495281
## [68,] -0.295777022 -0.0293031070 -0.73805920 -0.96250606 -0.07495364
## [69,] 0.375309174 -0.7301029403 1.51177997 -2.04574255 -0.07495568
## [70,] -0.711211334 -0.7501257927 -1.78262739 1.58834113 -0.07495611
## [71,] -1.909579543 -1.0104228737 0.06545479 -0.22870071 -0.07495584
## [72,] 1.046395371 0.8316795454 -1.22016759 0.48763309 -0.07495539
## [73,] -0.663276606 -0.1894859260 -0.73805920 -0.97997762 -0.07495491
## [74,] 1.605633868 0.8617138240 -1.22016759 0.64487710 -0.07495543
## [75,] 1.733459810 0.1108568597 -1.86297878 0.10325886 -0.07495562
## [76,] -1.094689161 -0.4597944332 -0.17559941 -0.77031895 -0.07495483
## [77,] -0.551428907 0.0007311716 -0.97911340 -0.22870071 -0.07495375
## [78,] -0.918928490 -0.7100800880 0.54756319 -1.11975007 -0.07495638
## [79,] -0.631320120 -0.1794744999 -0.09524801 2.04260159 -0.07495537
## [80,] 0.854656458 0.5213253335 0.54756319 0.62740554 -0.07495649
## [81,] 0.199548504 0.2309939740 -0.49700500 -0.28111538 -0.07495658
## [82,] -0.151972837 0.5013024811 -0.81841060 0.31291753 -0.07495469
## [83,] -0.471537693 -0.4497830070 0.30650899 -0.33353004 -0.07495698
## [84,] -1.030776190 -0.4397715808 1.99388837 0.05084419 -0.07495348
## [85,] -0.151972837 0.1809368430 -1.13981619 1.32626779 -0.07495584
## [86,] -0.151972837 -0.0893716641 -0.49700500 -0.22870071 -0.07495642
## [87,] -0.823059034 -0.3396573189 0.54756319 -0.05398515 -0.07495665
## [88,] -0.599363635 -0.4197487284 0.30650899 -0.43835938 -0.07495644
## [89,] -0.551428907 -0.3396573189 0.94932018 -0.42088782 -0.07495618
## [90,] -0.151972837 -0.4397715808 0.46721179 -0.36847316 -0.07495760
## [91,] -1.110667404 -0.5298744165 1.27072578 0.08578730 -0.07495671
## [92,] -1.350341045 -0.7801600713 1.11002298 0.06831575 -0.07495510
## [93,] -1.462188745 -0.5699201213 1.75283417 0.05084419 -0.07495584
## [94,] 0.247483232 0.2209825478 -0.89876200 0.69729177 -0.07495705
## [95,] 1.158243070 0.2309939740 -1.54157319 -0.42088782 -0.07495557
## [96,] 0.327374446 0.2410054002 -0.33630220 2.95112251 -0.07495644
## [97,] -1.110667404 -1.0404571523 -1.78262739 -0.05398515 -0.07495658
## [98,] 0.407265660 0.4712682025 -0.57735640 0.31291753 -0.07495604
## [99,] 1.957155209 1.7226964764 -0.97911340 0.62740554 -0.07495388
## [100,] 0.886612943 0.9618280859 0.70826598 2.12995937 -0.07495685
## [101,] -0.104038109 0.1408911382 -0.81841060 -0.33353004 -0.07495550
## [102,] -1.350341045 -0.6700343832 -0.57735640 -0.42088782 -0.07495665
## [103,] 0.423243903 0.0808225811 -0.17559941 -0.49077405 -0.07495618
## [104,] 0.327374446 -0.3897144499 0.06545479 -0.29858693 -0.07495717
## [105,] -0.151972837 -0.1093945165 -0.33630220 -0.19375759 -0.07495599
## [106,] -0.982841462 -0.1894859260 2.39564536 -0.29858693 -0.07495631
## [107,] -1.030776190 0.0007311716 0.06545479 0.06831575 -0.07495537
## [108,] -1.462188745 -0.2695773356 0.94932018 0.06831575 -0.07495550
## [109,] 0.103679047 0.0107425978 0.22615759 0.85453577 -0.07495631
## [110,] 0.710852273 0.8917481025 -0.57735640 1.57086958 -0.07495638
## [111,] 1.413894955 0.5513596121 -0.97911340 3.47526919 -0.07495604
## [112,] 0.407265660 0.2410054002 -0.81841060 -0.64801805 -0.07495725
## [113,] -0.870993762 0.0007311716 1.91353697 -0.94503451 -0.07495483
## [114,] 0.295417961 -0.0192916808 0.46721179 -0.26364382 -0.07495580
## [115,] 0.423243903 0.2610282525 0.54756319 -0.96250606 -0.07495604
## [116,] 0.263461475 0.1408911382 1.27072578 0.73223488 -0.07495739
## [117,] -0.503494178 -0.4297601546 -0.49700500 -0.10639981 -0.07495732
## [118,] -0.471537693 0.0607997287 -0.17559941 0.03337264 -0.07495717
## [119,] -1.062732675 -0.7801600713 0.54756319 -1.32940874 -0.07495537
## [120,] -0.471537693 -0.3897144499 0.06545479 0.48763309 -0.07495822
## [121,] 0.966504157 0.7615995621 -0.33630220 0.41774687 -0.07495557
## [122,] 1.413894955 3.0542161597 0.86896878 0.48763309 -0.07495186
## [123,] -0.151972837 0.1008454335 0.54756319 0.20808820 -0.07495715
## [124,] 0.519113359 0.6214395954 -0.49700500 0.73223488 -0.07495644
## [125,] 0.902591186 1.0018737906 -1.22016759 2.30467493 -0.07495618
## [126,] 0.487156874 0.6214395954 0.06545479 -0.42088782 -0.07495623
## [127,] 0.710852273 1.1220109049 0.22615759 0.31291753 -0.07495464
## [128,] -0.263820537 0.2109711216 1.75283417 0.29544598 -0.07495591
## [129,] -0.120016352 0.4212110716 0.30650899 0.54004776 -0.07495709
## [130,] -0.311755265 -0.2795887618 0.46721179 -0.42088782 -0.07495644
## [131,] -1.254471589 -0.7801600713 -1.22016759 -1.13722163 -0.07495442
## [132,] -1.590014687 -0.8101943499 -0.97911340 -1.32940874 -0.07495267
## [133,] -1.829688329 -0.9403428904 -0.73805920 -1.32940874 -0.07495227
## [134,] -0.950884976 -0.8302172023 -1.54157319 -1.31193719 -0.07495321
## [135,] -0.471537693 -1.4509256261 1.91353697 -0.59560339 -0.07495260
## [136,] -1.078710918 -1.3708342166 2.15459116 -1.13722163 -0.07495038
## [137,] -1.462188745 -1.5610513142 1.35107717 -1.38182341 -0.07495476
## [138,] -0.807080791 -1.4309027737 2.15459116 -0.85767673 -0.07495321
## [139,] -1.078710918 -1.5510398880 1.75283417 -1.24205096 -0.07495227
## [140,] 0.039766076 -1.4309027737 1.35107717 -1.36435186 -0.07495332
## [141,] -1.206536860 -1.5310170356 1.35107717 -1.46918119 -0.07495375
## [142,] -1.430232259 -1.5310170356 0.06545479 -1.66136831 -0.07495240
## [143,] -1.190558618 -1.5109941832 1.11002298 -1.81861232 -0.07495409
## [144,] -0.471537693 -1.2306742499 0.86896878 -0.99744918 -0.07495402
## [145,] -1.462188745 -1.2506971023 -0.57735640 -0.78779050 -0.07494888
## [146,] -1.270449832 -1.4809599046 0.54756319 -0.50824560 -0.07495456
## [147,] -2.101318456 -1.6911998547 0.30650899 -1.59148209 -0.07495335
## [148,] -0.950884976 -1.3808456427 0.86896878 -1.27699407 -0.07494964
## [149,] -0.583385392 -1.2707199546 0.70826598 -0.59560339 -0.07494860
## [150,] -1.414254017 -0.6400001046 -0.17559941 -0.78779050 -0.07494728
## [151,] -1.430232259 -0.4597944332 -1.13981619 -0.59560339 -0.07494836
## [152,] -1.302406317 -0.6700343832 -0.97911340 -0.57813183 -0.07494539
## [153,] -0.151972837 -0.7501257927 -0.81841060 -0.05398515 -0.07495038
## [154,] -0.791102548 -1.2006399713 1.99388837 0.48763309 -0.07494577
## [155,] -1.302406317 -1.4509256261 1.35107717 -0.33353004 -0.07494971
## [156,] -0.886972005 -1.4008684951 1.99388837 -0.07145670 -0.07494930
## [157,] -0.791102548 -1.2006399713 0.94932018 -0.05398515 -0.07494781
## [158,] -0.631320120 -1.4509256261 2.15459116 -0.78779050 -0.07494984
## [159,] 0.806721729 -0.7200915142 1.35107717 1.93777225 -0.07494243
## [160,] 0.487156874 -0.9303314642 1.27072578 1.22143845 -0.07494411
## [161,] 0.007809591 -1.1105371356 1.11002298 -0.96250606 -0.07494964
## [162,] -0.743167820 -1.4709484785 1.11002298 -1.38182341 -0.07495202
## [163,] -1.030776190 -1.4309027737 1.91353697 -1.10227851 -0.07495243
## [164,] -1.446210502 -1.3307885118 0.30650899 -1.13722163 -0.07495283
## [165,] -1.510123473 -1.3508113642 0.38686039 -0.97997762 -0.07494704
## [166,] -1.621971173 -1.5610513142 1.27072578 -0.77031895 -0.07495103
## [167,] -0.950884976 -1.1105371356 0.54756319 -0.22870071 -0.07494556
## [168,] -1.302406317 -1.3708342166 0.30650899 -1.08480696 -0.07494612
## [169,] -1.190558618 -1.1906285451 0.22615759 -0.08892826 -0.07494828
## [170,] -0.503494178 -1.0704914308 -0.73805920 -0.84020517 -0.07494849
## [171,] -1.669905901 -1.5410284618 0.30650899 -1.50412430 -0.07495254
## [172,] -1.446210502 -1.5210056094 0.94932018 -1.66136831 13.26671090
## [173,] -0.982841462 -1.3307885118 0.62791458 -0.61307494 -0.07494688
## [174,] -0.982841462 -1.4208913475 1.27072578 -0.92756295 -0.07494957
## [175,] -0.791102548 -1.2807313808 0.54756319 -0.31605849 -0.07495011
## [176,] -1.126645647 -1.3407999380 0.54756319 -0.42088782 -0.07494620
## [177,] -1.030776190 -1.3508113642 1.35107717 -0.22870071 -0.07494742
## [178,] -0.391646479 -1.2707199546 1.59213137 -0.42088782 -0.07494755
## X11 X12 X13
## [1,] 0.36115849 1.84272147 1.010159388
## [2,] 0.40490846 1.11031723 0.962526349
## [3,] 0.31740852 0.78636920 1.391223700
## [4,] -0.42634104 1.18074072 2.328006800
## [5,] 0.36115849 0.44833648 -0.037767469
## [6,] 0.40490846 0.33565890 2.232740722
## [7,] 0.27365854 1.36384178 1.724654973
## [8,] 0.44865844 1.36384178 1.740532653
## [9,] 0.53615839 0.33565890 0.946648670
## [10,] 0.22990857 1.32158768 0.946648670
## [11,] 1.27990794 0.78636920 2.423272878
## [12,] 0.92990815 0.29340481 1.692899614
## [13,] 0.84240820 0.40608239 1.819921051
## [14,] 1.27990794 0.16664254 1.280079943
## [15,] 1.06115807 0.54692935 2.540767708
## [16,] 1.41115786 0.37791299 1.788165692
## [17,] 0.49240841 0.05396496 1.692899614
## [18,] 0.75490825 -0.05871261 1.216569224
## [19,] 1.19240799 0.29340481 2.963113987
## [20,] 0.01115870 1.05397844 0.311541483
## [21,] 0.57990836 1.54694284 0.105131647
## [22,] 0.31740852 1.27933359 0.073376288
## [23,] 0.66740831 1.95539905 0.914893310
## [24,] 0.57990836 1.43426526 0.851382592
## [25,] 0.71115828 1.70187450 0.311541483
## [26,] 0.75490825 0.82862329 0.263908444
## [27,] -0.16384119 0.85679269 1.422979059
## [28,] 0.27365854 0.22298133 1.708777293
## [29,] 1.27990794 1.11031723 0.533828998
## [30,] 0.36115849 1.37792647 0.914893310
## [31,] 1.01740810 0.13847314 1.708777293
## [32,] 0.57990836 0.37791299 2.439150558
## [33,] 1.19240799 0.36382829 0.771994193
## [34,] 1.27990794 0.54692935 1.550000497
## [35,] 0.62365833 0.36382829 1.105425466
## [36,] 0.36115849 1.20891011 0.549706678
## [37,] 0.57990836 0.23706602 0.422685241
## [38,] 0.71115828 -0.14322079 1.137180826
## [39,] 0.97365812 0.11030375 0.867260271
## [40,] -0.29509111 1.29341829 0.041620929
## [41,] -0.03259127 1.08214784 0.152764686
## [42,] -0.20759117 0.54692935 0.914893310
## [43,] -0.33884109 1.33567238 1.105425466
## [44,] -0.60134093 0.54692935 -0.212421946
## [45,] -0.33884109 1.03989375 0.438562920
## [46,] -0.38259106 1.01172435 1.057792427
## [47,] 0.36115849 1.16665602 1.010159388
## [48,] -0.20759117 1.01172435 0.756116514
## [49,] 0.49240841 0.19481193 0.994281709
## [50,] 0.71115828 0.68777632 1.629388895
## [51,] 0.71115828 0.42016708 1.280079943
## [52,] 1.23615797 1.06806314 1.645266575
## [53,] 0.22990857 0.91313147 1.407101380
## [54,] 0.75490825 0.44833648 1.994575527
## [55,] -0.16384119 0.82862329 0.994281709
## [56,] 0.09865865 0.58918345 1.184813865
## [57,] -0.07634125 0.98355496 0.708483475
## [58,] 0.49240841 0.32157420 1.661144254
## [59,] -0.29509111 0.36382829 1.708777293
## [60,] 0.40490846 -1.11506488 -0.720507695
## [61,] 1.27990794 -1.32633534 -0.212421946
## [62,] 0.09865865 -1.43901291 -0.942795210
## [63,] 1.19240799 -0.21364428 -0.371198742
## [64,] 1.14865802 0.36382829 -1.038061288
## [65,] 2.15490741 -0.53759231 -1.244471124
## [66,] 1.01740810 -0.43899943 -0.218773018
## [67,] 0.71115828 0.80045390 -0.777667342
## [68,] 0.71115828 1.22299481 -0.752263054
## [69,] 0.27365854 -0.96013322 0.009865569
## [70,] 1.41115786 0.64552223 -0.091751580
## [71,] -0.22509116 -1.11506488 0.390929881
## [72,] 1.76115765 0.77228450 -1.069816648
## [73,] 0.09865865 0.23706602 -0.872933420
## [74,] 1.54240778 1.25116420 0.756116514
## [75,] 0.14240862 0.73003041 0.441738456
## [76,] 1.19240799 -0.66435458 -1.012657001
## [77,] 1.01740810 -0.18547489 -1.126976294
## [78,] 0.01115870 -0.12913610 -0.784018414
## [79,] 0.44865844 -0.42491473 0.009865569
## [80,] 1.01740810 0.73003041 -0.901513243
## [81,] 1.84865760 0.71594572 -1.488987391
## [82,] 0.88615818 0.74411511 -0.104453724
## [83,] 1.54240778 0.15255784 -0.371198742
## [84,] -0.51384098 -0.84745564 -0.736385375
## [85,] -0.73259085 0.65960693 -0.720507695
## [86,] 1.19240799 0.77228450 -0.942795210
## [87,] 1.62990773 -0.49533822 -0.799896093
## [88,] 1.76115765 0.84270799 -0.587135186
## [89,] 0.18615860 0.19481193 -0.212421946
## [90,] 0.49240841 0.84270799 -0.387076422
## [91,] 0.53615839 -0.48125352 -0.847529132
## [92,] 0.40490846 0.05396496 -0.942795210
## [93,] 0.01115870 -0.77703216 -0.799896093
## [94,] 0.84240820 0.96947026 -1.450880959
## [95,] 0.88615818 0.49059057 -1.276226483
## [96,] 0.88615818 0.02579557 0.603690789
## [97,] -0.03259127 -0.49533822 -0.387076422
## [98,] 1.19240799 0.18072723 -1.012657001
## [99,] 0.36115849 0.22298133 -0.275932664
## [100,] 2.02365749 0.30748951 -1.082518791
## [101,] 1.36740789 0.49059057 -0.117155868
## [102,] 0.36115849 0.22298133 -0.587135186
## [103,] -0.68884088 1.08214784 -0.980901641
## [104,] -0.07634125 -0.24181367 -1.053938968
## [105,] 0.36115849 1.34975708 -0.237826233
## [106,] -0.42634104 0.96947026 -1.371492561
## [107,] 0.18615860 0.78636920 -0.752263054
## [108,] -0.33884109 -0.26998307 -0.822124845
## [109,] -0.42634104 0.57509875 -1.381019169
## [110,] 0.01115870 0.91313147 -0.212421946
## [111,] -0.90759075 0.27932011 -0.587135186
## [112,] -0.25134114 0.23706602 -1.339737202
## [113,] 1.19240799 -0.15730549 -0.444236069
## [114,] 0.62365833 -0.42491473 -0.993603785
## [115,] -0.12009122 0.81453860 -1.149205046
## [116,] 3.29240673 0.36382829 -1.079343255
## [117,] -0.03259127 1.01172435 -0.799896093
## [118,] 0.44865844 0.49059057 -1.276226483
## [119,] -1.12634062 -0.69252397 -1.190487013
## [120,] -0.12009122 0.61735284 -0.580784114
## [121,] -0.68884088 1.09623253 -0.387076422
## [122,] -0.12009122 1.51877344 -0.895162171
## [123,] -0.16384119 0.71594572 -1.212715765
## [124,] -0.99509069 0.68777632 -1.165082726
## [125,] -0.90759075 1.44834996 -1.165082726
## [126,] -0.42634104 0.94130087 -1.171433797
## [127,] -1.17009059 0.32157420 -1.253997732
## [128,] 0.05490867 -0.24181367 -0.891986635
## [129,] -0.29509111 0.23706602 -1.285753091
## [130,] -0.73259085 -0.05871261 -0.529975539
## [131,] -0.86384077 -1.86155382 -0.371198742
## [132,] -0.95134072 -1.67845276 -0.688752336
## [133,] -1.30134051 -1.76296094 -0.593486258
## [134,] -0.77634083 -1.86155382 -0.466464820
## [135,] -0.90759075 -1.55169049 -0.307688024
## [136,] -0.99509069 -1.45309761 -0.164788907
## [137,] -0.90759075 -1.88972321 -0.085400508
## [138,] -0.60134093 -1.29816594 -0.736385375
## [139,] -0.64509090 -1.11506488 -0.529975539
## [140,] -0.29509111 -0.65026988 -0.498220180
## [141,] -0.82009080 -0.42491473 -0.466464820
## [142,] -1.12634062 -0.19955958 0.105131647
## [143,] -0.29509111 -0.77703216 -0.720507695
## [144,] -0.20759117 -0.79111685 -0.625241617
## [145,] -1.34509048 -0.86154034 0.343296842
## [146,] -1.56384035 -1.31225064 0.263908444
## [147,] -1.65134030 -1.80521503 -1.053938968
## [148,] -1.82634020 -1.05872609 -0.387076422
## [149,] -1.78259022 -1.39675882 -0.307688024
## [150,] -1.69509027 -1.80521503 -0.625241617
## [151,] -1.60759033 -1.84746912 -0.784018414
## [152,] -2.08884004 -1.60802927 -0.847529132
## [153,] -1.52009038 -1.80521503 -1.022183609
## [154,] -1.73884025 -1.55169049 -0.228299625
## [155,] -1.65134030 -1.49535170 -0.339443383
## [156,] -1.56384035 -1.59394458 -0.069522829
## [157,] -1.69509027 -1.36858943 -0.847529132
## [158,] -1.25759054 -1.24182715 0.422685241
## [159,] -1.69509027 -0.91787912 -0.275932664
## [160,] -1.69509027 -1.17140367 -0.402954102
## [161,] -1.73884025 -1.45309761 -0.720507695
## [162,] 0.01115870 -1.11506488 -0.212421946
## [163,] -0.38259106 -0.70660867 -0.561730898
## [164,] -1.21384056 -1.21365776 -0.228299625
## [165,] -1.12634062 -1.31225064 -0.418831781
## [166,] -0.77634083 -1.21365776 -0.720507695
## [167,] -0.47009101 -1.48126700 -0.164788907
## [168,] -1.03884067 -1.21365776 -0.196544266
## [169,] -0.95134072 -1.14323428 0.009865569
## [170,] -1.25759054 -0.97421791 -0.371198742
## [171,] -1.30134051 -1.10098018 -0.752263054
## [172,] -1.69509027 -1.38267412 -0.879284492
## [173,] -1.47634041 -1.26999655 -0.275932664
## [174,] -1.38884046 -1.22774246 -0.021889790
## [175,] -1.12634062 -1.48126700 0.009865569
## [176,] -1.60759033 -1.48126700 0.279786124
## [177,] -1.56384035 -1.39675882 0.295663803
## [178,] -1.52009038 -1.42492821 -0.593486258
## attr(,"scaled:center")
## X1 X2 X3 X4 X5 X6
## 1.300062e+01 2.336348e+00 2.366517e+00 1.949494e+01 9.974157e+01 2.295112e+00
## X7 X8 X9 X10 X11 X12
## 2.029270e+00 3.618539e-01 1.590899e+00 5.562297e+04 9.574494e-01 2.611685e+00
## X13
## 7.468933e+02
## attr(,"scaled:scale")
## X1 X2 X3 X4 X5 X6
## 8.118265e-01 1.117146e+00 2.743440e-01 3.339564e+00 1.428248e+01 6.258510e-01
## X7 X8 X9 X10 X11 X12
## 9.988587e-01 1.244533e-01 5.723589e-01 7.420359e+05 2.285716e-01 7.099904e-01
## X13
## 3.149075e+02- Matriks Korelasi
# Hitung Matriks Korelasi
cor_matrix <- cor(data_z)
cor_matrix## X1 X2 X3 X4 X5 X6
## X1 1.00000000 0.094396941 0.211544596 -0.3102351369 0.27079823 0.2891011
## X2 0.09439694 1.000000000 0.164045470 0.2885004028 -0.05457510 -0.3351670
## X3 0.21154460 0.164045470 1.000000000 0.4433671866 0.28658669 0.1289795
## X4 -0.31023514 0.288500403 0.443367187 1.0000000000 -0.08333309 -0.3211133
## X5 0.27079823 -0.054575096 0.286586691 -0.0833330886 1.00000000 0.2144012
## X6 0.28910112 -0.335166997 0.128979538 -0.3211133173 0.21440123 1.0000000
## X7 0.23681493 -0.411006588 0.115077279 -0.3513698601 0.19578377 0.8645635
## X8 -0.15592947 0.292977133 0.186230446 0.3619217186 -0.25629405 -0.4499353
## X9 0.13669791 -0.220746187 0.009651935 -0.1973268357 0.23644061 0.6124131
## X10 -0.02141075 0.003620789 -0.023769880 0.0001141805 -0.07252129 -0.1090106
## X11 -0.07174720 -0.561295689 -0.074666889 -0.2739552227 0.05539820 0.4336813
## X12 0.07234319 -0.368710428 0.003911231 -0.2767685489 0.06600394 0.6999494
## X13 0.64372004 -0.192010565 0.223626264 -0.4405969313 0.39335085 0.4981149
## X7 X8 X9 X10 X11 X12
## X1 0.2368149 -0.15592947 0.136697912 -0.0214107467 -0.07174720 0.072343187
## X2 -0.4110066 0.29297713 -0.220746187 0.0036207891 -0.56129569 -0.368710428
## X3 0.1150773 0.18623045 0.009651935 -0.0237698796 -0.07466689 0.003911231
## X4 -0.3513699 0.36192172 -0.197326836 0.0001141805 -0.27395522 -0.276768549
## X5 0.1957838 -0.25629405 0.236440610 -0.0725212864 0.05539820 0.066003936
## X6 0.8645635 -0.44993530 0.612413084 -0.1090105971 0.43368134 0.699949365
## X7 1.0000000 -0.53789961 0.652691769 -0.1146487640 0.54347857 0.787193902
## X8 -0.5378996 1.00000000 -0.365845099 0.0715569582 -0.26263963 -0.503269596
## X9 0.6526918 -0.36584510 1.000000000 -0.1252283669 0.29554425 0.519067096
## X10 -0.1146488 0.07155696 -0.125228367 1.0000000000 -0.12777177 -0.104222609
## X11 0.5434786 -0.26263963 0.295544253 -0.1277717651 1.00000000 0.565468293
## X12 0.7871939 -0.50326960 0.519067096 -0.1042226085 0.56546829 1.000000000
## X13 0.4941931 -0.31138519 0.330416700 -0.0662764844 0.23618345 0.312761075
## X13
## X1 0.64372004
## X2 -0.19201056
## X3 0.22362626
## X4 -0.44059693
## X5 0.39335085
## X6 0.49811488
## X7 0.49419313
## X8 -0.31138519
## X9 0.33041670
## X10 -0.06627648
## X11 0.23618345
## X12 0.31276108
## X13 1.00000000karena variabel berkorelasi, maka analisis faktor dapat dilakukan.
- Uji Asumsi
- Uji Bartlett Sphrecity
# Uji Bartlett untuk melihat apakah matriks korelasi signifikan
library(psych)
bartlett_test <- cortest.bartlett(cor_matrix, n = nrow(data_z))
print(bartlett_test)## $chisq
## [1] 1133.551
##
## $p.value
## [1] 6.218231e-187
##
## $df
## [1] 78karena p-value < 0.05 maka gagal menerima H0 atau data memiliki korelasi antar variabel sehingga layak untuk analisis faktor
- Uji KMO dan MSA
# Uji KMO untuk mengukur kecukupan sampel
kmo_result <- KMO(cor_matrix)
print(kmo_result)## Kaiser-Meyer-Olkin factor adequacy
## Call: KMO(r = cor_matrix)
## Overall MSA = 0.79
## MSA for each item =
## X1 X2 X3 X4 X5 X6 X7 X8 X9 X10 X11 X12 X13
## 0.70 0.82 0.40 0.68 0.67 0.87 0.81 0.82 0.87 0.74 0.80 0.89 0.78karena nilai KMO 0.79 > 0.5 maka Terima H0 sehingga dapat disimpulkan jumlah data telah cukup difaktorkan. selain variabel X3, variabel lainnya memiliki nilai MSA > 0.5 sehingga variabel tersebut dapat digunakan untuk analisis faktor. sedangkan X3 yang memiliki MSA < 0.5 sebaiknya dihapus.
- Mengahapus variabel yang tidak layak analisis
library(dplyr)##
## Attaching package: 'dplyr'## The following objects are masked from 'package:stats':
##
## filter, lag## The following objects are masked from 'package:base':
##
## intersect, setdiff, setequal, uniondf <- DATA_WINE_CLUSTERING %>% select(-X3)
print(df)## # A tibble: 178 × 12
## X1 X2 X4 X5 X6 X7 X8 X9 X10 X11 X12 X13
## <dbl> <dbl> <dbl> <dbl> <dbl> <dbl> <dbl> <dbl> <dbl> <dbl> <dbl> <dbl>
## 1 14.2 1.71 15.6 127 2.8 3.06 0.28 2.29 5.64 1.04 3.92 1065
## 2 13.2 1.78 11.2 100 2.65 2.76 0.26 1.28 4.38 1.05 3.4 1050
## 3 13.2 2.36 18.6 101 2.8 3.24 0.3 2.81 5.68 1.03 3.17 1185
## 4 14.4 1.95 16.8 113 3.85 3.49 0.24 2.18 7.8 0.86 3.45 1480
## 5 13.2 2.59 21 118 2.8 2.69 0.39 1.82 4.32 1.04 2.93 735
## 6 14.2 1.76 15.2 112 3.27 3.39 0.34 1.97 6.75 1.05 2.85 1450
## 7 14.4 1.87 14.6 96 2.5 2.52 0.3 1.98 5.25 1.02 3.58 1290
## 8 14.1 2.15 17.6 121 2.6 2.51 0.31 1.25 5.05 1.06 3.58 1295
## 9 14.8 1.64 14 97 2.8 2.98 0.29 1.98 5.2 1.08 2.85 1045
## 10 13.9 1.35 16 98 2.98 3.15 0.22 1.85 7.22 1.01 3.55 1045
## # ℹ 168 more rows- Standarisasi Ulang
data_zscore <- scale(df)
data_zscore## X1 X2 X4 X5 X6
## [1,] 1.51434077 -0.56066822 -1.166303174 1.90852151 0.806721729
## [2,] 0.24559683 -0.49800856 -2.483840525 0.01809398 0.567048088
## [3,] 0.19632522 0.02117152 -0.267982252 0.08810981 0.806721729
## [4,] 1.68679140 -0.34583508 -0.806974805 0.92829983 2.484437221
## [5,] 0.29486844 0.22705328 0.450674485 1.27837900 0.806721729
## [6,] 1.47738706 -0.51591132 -1.286079296 0.85828399 1.557699140
## [7,] 1.71142720 -0.41744613 -1.465743481 -0.26196936 0.327374446
## [8,] 1.30493643 -0.16680747 -0.567422559 1.48842650 0.487156874
## [9,] 2.25341491 -0.62332789 -1.645407665 -0.19195352 0.806721729
## [10,] 1.05857838 -0.88291793 -1.046527051 -0.12193769 1.094330099
## [11,] 1.35420804 -0.15785609 -0.447646437 0.36817315 1.046395371
## [12,] 1.37884384 -0.76654998 -0.806974805 -0.33198519 -0.151972837
## [13,] 0.92308146 -0.54276546 -1.046527051 -0.75208020 0.487156874
## [14,] 2.15487169 -0.54276546 -2.423952463 -0.61204853 1.286069013
## [15,] 1.69910930 -0.41744613 -2.244288279 0.15812565 1.605633868
## [16,] 0.77526663 -0.47115441 -0.687198682 0.85828399 0.886612943
## [17,] 1.60056608 -0.37268923 0.151234178 1.41841067 0.806721729
## [18,] 1.02162467 -0.68598755 0.151234178 1.06833150 1.046395371
## [19,] 1.46506916 -0.66808479 -0.896806897 0.57822065 1.605633868
## [20,] 0.78758453 0.68357369 -1.286079296 1.13834733 0.646939302
## [21,] 1.30493643 -0.63227927 -1.046527051 1.83850567 1.126286585
## [22,] -0.08698653 1.31017034 -0.267982252 0.15812565 0.183570261
## [23,] 0.87380985 -0.42639751 -0.866862867 0.08810981 0.503135117
## [24,] -0.18552975 -0.65913341 -0.507534498 -0.33198519 0.295417961
## [25,] 0.61513390 -0.47115441 0.151234178 -0.26196936 0.375309174
## [26,] 0.06082829 -0.25632128 1.648435713 1.69847400 0.535091602
## [27,] 0.47963697 -0.50695994 -1.016583020 -0.47201686 0.886612943
## [28,] 0.36877585 -0.55171684 -0.747086744 -0.40200103 0.167592018
## [29,] 1.07089628 -0.39059199 -0.028430007 0.50820482 1.046395371
## [30,] 1.25566482 -0.58752236 -1.046527051 -0.26196936 0.567048088
## [31,] 0.89844565 -0.74864721 0.899834945 0.08810981 1.126286585
## [32,] 0.71367712 -0.60542512 -0.118262099 0.43818899 0.902591186
## [33,] 0.83685614 -0.45325165 -0.687198682 0.29815732 0.199548504
## [34,] 0.93539936 -0.72179307 0.001514024 2.25860068 1.046395371
## [35,] 0.62745180 -0.48010579 -0.148206130 0.71825232 0.087700804
## [36,] 0.59049809 -0.47115441 0.300954331 0.01809398 0.646939302
## [37,] 0.34414005 -0.62332789 -1.196247204 0.71825232 0.487156874
## [38,] 0.06082829 -0.61437650 -0.447646437 -0.12193769 0.247483232
## [39,] 0.08546410 -0.74864721 -1.196247204 -0.12193769 0.167592018
## [40,] 1.50202286 1.48024658 -1.884959911 1.97853734 1.126286585
## [41,] 0.68904131 -0.56066822 -0.986638989 1.20836316 1.365960227
## [42,] 0.50427278 1.34597587 -0.208094191 -0.68206436 0.247483232
## [43,] 1.08321419 -0.39954337 -1.345967358 0.08810981 1.525742654
## [44,] 0.29486844 1.47129519 -0.597366590 0.22814148 0.551069845
## [45,] 0.06082829 -0.50695994 -0.747086744 0.50820482 1.126286585
## [46,] 1.48970496 1.52500348 -0.178150160 0.78826816 0.886612943
## [47,] 1.69910930 1.12219135 -1.046527051 0.15812565 1.525742654
## [48,] 1.10784999 -0.58752236 -1.046527051 0.08810981 1.286069013
## [49,] 1.35420804 -0.28317542 -0.208094191 0.22814148 0.726830515
## [50,] 1.15712160 -0.54276546 -0.627310621 0.57822065 0.934547672
## [51,] 0.06082829 -0.54276546 -2.124512156 -0.54203270 0.678895787
## [52,] 1.02162467 -0.61437650 -0.687198682 -0.40200103 0.247483232
## [53,] 1.00930677 -0.52486270 -1.645407665 0.78826816 2.532371949
## [54,] 0.94771726 -0.39059199 -0.717142713 1.06833150 1.126286585
## [55,] 0.91076355 -0.59647374 -0.926750928 1.27837900 0.487156874
## [56,] 0.68904131 -0.54276546 0.300954331 1.13834733 1.062373614
## [57,] 1.50202286 -0.56961960 -0.956694959 1.27837900 1.445851440
## [58,] 0.35645795 -0.32793232 -0.806974805 0.15812565 1.126286585
## [59,] 0.88612775 -0.81130688 -0.836918836 0.57822065 1.765416296
## [60,] -0.77678907 -1.24992453 -2.663504709 -0.82209603 -0.503494178
## [61,] -0.82606067 -1.10670244 -1.046527051 0.08810981 -0.391646479
## [62,] -0.44420570 -0.87396654 -0.806974805 0.01809398 -0.439581207
## [63,] 0.82453824 -0.97243173 -0.447646437 -0.40200103 -0.311755265
## [64,] -0.77678907 -1.07984830 -0.148206130 -0.89211187 1.925198724
## [65,] -1.02314711 -0.79340412 -0.148206130 0.29815732 -0.647298363
## [66,] -0.77678907 -1.00823725 -0.417702406 -0.12193769 0.199548504
## [67,] 0.13473571 -1.18726487 -1.345967358 -1.52225438 1.094330099
## [68,] -0.77678907 -1.04404278 0.031458055 -1.52225438 -0.295777022
## [69,] 0.41804746 -1.24992453 -0.747086744 0.71825232 0.375309174
## [70,] -0.97387550 -1.02614002 -0.806974805 3.58890153 -0.711211334
## [71,] -0.87533228 -0.65018203 0.271010300 0.22814148 -1.909579543
## [72,] 1.05857838 -0.73969583 1.648435713 -0.96212770 1.046395371
## [73,] 0.60281600 -0.60542512 1.348995406 -0.89211187 -0.663276606
## [74,] -0.01307912 -0.59647374 3.145637249 2.74871152 1.605633868
## [75,] -1.28182306 -1.11565382 0.450674485 0.08810981 1.733459810
## [76,] -1.65136013 -0.40849475 -1.046527051 -0.19195352 -1.094689161
## [77,] 0.03619249 -1.28573006 -1.046527051 -0.96212770 -0.551428907
## [78,] -1.42963789 0.49559470 -0.447646437 0.85828399 -0.918928490
## [79,] -0.82606067 -1.20516763 -1.405855419 2.53866402 -0.631320120
## [80,] -0.37029829 1.37283001 1.049555099 0.08810981 0.854656458
## [81,] -1.23255145 -1.26782729 -0.148206130 -0.96212770 0.199548504
## [82,] -0.34566248 -0.47115441 -0.208094191 -0.96212770 -0.151972837
## [83,] -1.13400823 -1.07984830 1.348995406 -1.52225438 -0.471537693
## [84,] 0.06082829 1.36387863 0.899834945 -1.03214354 -1.030776190
## [85,] -1.42963789 -1.29468144 -0.447646437 -0.40200103 -0.151972837
## [86,] -0.40725200 -1.21411901 -0.447646437 -0.05192185 -0.151972837
## [87,] -1.03546501 -0.65018203 0.989667037 -0.68206436 -0.823059034
## [88,] -1.66367803 -0.59647374 1.947876020 -0.82209603 -0.599363635
## [89,] -1.67599593 -0.24736990 0.630338669 -1.10215937 -0.551428907
## [90,] -1.13400823 -0.90082069 1.229219283 -2.08238105 -0.151972837
## [91,] -1.13400823 -0.45325165 -0.297926283 -1.31220687 -1.110667404
## [92,] -1.23255145 -0.73969583 0.750114792 -0.96212770 -1.350341045
## [93,] -0.38261619 -0.72179307 0.360842393 -1.38222271 -1.462188745
## [94,] -0.87533228 0.44188642 -0.447646437 -0.82209603 0.247483232
## [95,] -1.70063174 -0.31002956 -0.447646437 -0.12193769 1.158243070
## [96,] -0.65361004 -0.73074445 -0.148206130 4.35907571 0.327374446
## [97,] -1.46659160 -0.19366161 0.600394638 2.39863235 -1.110667404
## [98,] -0.87533228 -0.82920964 -1.046527051 -1.03214354 0.407265660
## [99,] -0.77678907 -1.13355658 -0.297926283 -0.82209603 1.957155209
## [100,] -0.87533228 0.74623336 -0.447646437 -0.82209603 0.886612943
## [101,] -1.13400823 -0.22946714 -0.597366590 -0.19195352 -0.104038109
## [102,] -0.49347731 -0.89186931 -0.297926283 -0.82209603 -1.350341045
## [103,] -0.81374277 0.10173395 0.450674485 -0.12193769 0.423243903
## [104,] -1.45427369 -0.55171684 0.001514024 -0.96212770 0.327374446
## [105,] -0.60433843 -0.54276546 0.300954331 -1.03214354 -0.151972837
## [106,] -0.71519955 0.19124776 0.750114792 -0.68206436 -0.982841462
## [107,] -0.92460389 -0.54276546 -0.148206130 -1.38222271 -1.030776190
## [108,] -0.34566248 -0.52486270 0.899834945 -1.10215937 -1.462188745
## [109,] -0.96155760 -0.93662621 -0.148206130 -0.54203270 0.103679047
## [110,] -1.71294964 -0.88291793 0.151234178 -0.40200103 0.710852273
## [111,] -1.89771818 1.25646206 0.001514024 0.50820482 1.413894955
## [112,] -0.59202053 0.08383119 0.450674485 -0.82209603 0.407265660
## [113,] -1.52818111 0.30761571 0.151234178 0.22814148 -0.870993762
## [114,] -1.95930769 -1.42895215 0.450674485 -0.82209603 0.295417961
## [115,] -1.13400823 -0.84711240 0.899834945 -1.10215937 0.423243903
## [116,] -2.42738798 -0.73969583 0.600394638 -1.03214354 0.263461475
## [117,] -1.45427369 -0.77550136 0.390786423 -0.96212770 -0.503494178
## [118,] -0.71519955 -0.65018203 0.899834945 0.57822065 -0.471537693
## [119,] -0.28407297 0.97896926 -1.046527051 -1.38222271 -1.062732675
## [120,] -1.23255145 0.97896926 -0.148206130 -0.89211187 -0.471537693
## [121,] -1.91003608 0.05697705 0.151234178 -0.26196936 0.966504157
## [122,] -1.77453915 -0.25632128 2.696476788 1.34839483 1.413894955
## [123,] -0.71519955 1.87410733 2.097596174 0.15812565 -0.151972837
## [124,] 0.06082829 3.10044648 0.600394638 -0.96212770 0.519113359
## [125,] -1.39268418 1.76669076 0.450674485 -1.24219104 0.902591186
## [126,] -1.14632613 -0.15785609 0.450674485 -1.03214354 0.487156874
## [127,] -0.70288165 -0.72179307 0.600394638 -0.96212770 0.710852273
## [128,] -1.49122740 -0.18471023 2.696476788 -0.54203270 -0.263820537
## [129,] -0.77678907 -0.63227927 1.498715559 -0.82209603 -0.120016352
## [130,] -1.18327984 1.75773938 0.750114792 -1.38222271 -0.311755265
## [131,] -0.17321185 -0.88291793 -0.447646437 1.55844234 -1.254471589
## [132,] -0.14857605 0.58510851 0.151234178 0.29815732 -1.590014687
## [133,] -0.23480136 -0.02358538 1.348995406 -0.12193769 -1.829688329
## [134,] -0.37029829 1.08638583 0.600394638 0.43818899 -0.950884976
## [135,] -0.60433843 -0.98138311 -0.597366590 -1.03214354 -0.471537693
## [136,] -0.49347731 0.11068533 -0.297926283 -0.40200103 -1.078710918
## [137,] -0.92460389 2.13369737 0.450674485 -0.75208020 -1.462188745
## [138,] -0.57970263 2.84085644 1.648435713 -0.26196936 -0.807080791
## [139,] 0.60281600 1.12219135 0.001514024 -0.82209603 -1.078710918
## [140,] -0.19784766 0.55825437 1.348995406 0.08810981 0.039766076
## [141,] -0.08698653 0.42398365 0.450674485 -0.26196936 -1.206536860
## [142,] 0.44268327 0.20019914 0.151234178 -0.75208020 -1.430232259
## [143,] 0.63976970 0.74623336 1.199275252 -0.19195352 -1.190558618
## [144,] 0.76294873 2.33957912 0.151234178 -0.54203270 -0.471537693
## [145,] -0.92460389 1.38178139 -0.297926283 0.85828399 -1.462188745
## [146,] 0.19632522 1.10428859 0.450674485 0.15812565 -1.270449832
## [147,] 1.08321419 2.42014155 0.151234178 -1.38222271 -2.101318456
## [148,] -0.16089395 2.03523218 0.600394638 -0.96212770 -0.950884976
## [149,] 0.39341166 0.80889302 0.600394638 -0.54203270 -0.583385392
## [150,] 0.09778200 1.39968415 0.600394638 0.92829983 -1.414254017
## [151,] 0.61513390 0.70147646 1.348995406 1.62845817 -1.430232259
## [152,] -0.25943717 0.29866433 0.750114792 0.85828399 -1.302406317
## [153,] 0.13473571 -0.39059199 1.798155867 1.13834733 -0.151972837
## [154,] 0.28255053 0.86260131 -0.297926283 -0.12193769 -0.791102548
## [155,] -0.51811312 -0.93662621 0.151234178 0.22814148 -1.302406317
## [156,] 0.20864312 2.55441226 0.750114792 -0.47201686 -0.886972005
## [157,] 1.03394258 1.59661452 0.001514024 -0.75208020 -0.791102548
## [158,] -0.67824585 0.62091403 2.247316327 -0.19195352 -0.631320120
## [159,] 1.64983769 -0.58752236 1.648435713 -0.12193769 0.806721729
## [160,] 0.59049809 -0.59647374 0.899834945 -0.75208020 0.487156874
## [161,] -0.78910697 1.33702448 0.450674485 -0.82209603 0.007809591
## [162,] 0.84917404 0.82679579 0.151234178 0.50820482 -0.743167820
## [163,] -0.18552975 0.83574717 0.750114792 0.43818899 -1.030776190
## [164,] -0.05003283 0.99687202 -0.297926283 0.43818899 -1.446210502
## [165,] 0.96003516 0.37922675 0.750114792 -0.68206436 -1.510123473
## [166,] 0.89844565 1.81144766 0.899834945 -0.82209603 -1.621971173
## [167,] 0.55354439 1.22065654 1.049555099 0.78826816 -0.950884976
## [168,] -0.22248346 0.92526097 0.001514024 -0.82209603 -1.302406317
## [169,] 0.71367712 0.21810190 1.498715559 0.36817315 -1.190558618
## [170,] 0.49195487 2.02628080 1.648435713 0.85828399 -0.503494178
## [171,] -0.98619340 0.62091403 -0.148206130 -0.26196936 -1.669905901
## [172,] -0.28407297 0.04802567 0.001514024 -0.96212770 -1.446210502
## [173,] 1.42811545 0.15544223 0.151234178 -0.61204853 -0.982841462
## [174,] 0.87380985 2.96617577 0.300954331 -0.33198519 -0.982841462
## [175,] 0.49195487 1.40863553 1.049555099 0.15812565 -0.791102548
## [176,] 0.33182214 1.73983662 0.151234178 1.41841067 -1.126645647
## [177,] 0.20864312 0.22705328 0.151234178 1.41841067 -1.030776190
## [178,] 1.39116174 1.57871176 1.498715559 -0.26196936 -0.391646479
## X7 X8 X9 X10 X11
## [1,] 1.0319080692 -0.65770780 1.22143845 -0.07495235 0.36115849
## [2,] 0.7315652835 -0.81841060 -0.54318872 -0.07495405 0.40490846
## [3,] 1.2121137407 -0.49700500 2.12995937 -0.07495229 0.31740852
## [4,] 1.4623993954 -0.97911340 1.02925134 -0.07494944 -0.42634104
## [5,] 0.6614853002 0.22615759 0.40027531 -0.07495413 0.36115849
## [6,] 1.3622851335 -0.17559941 0.66234866 -0.07495085 0.40490846
## [7,] 0.4912910549 -0.49700500 0.67982021 -0.07495287 0.27365854
## [8,] 0.4812796287 -0.41665360 -0.59560339 -0.07495314 0.44865844
## [9,] 0.9518166597 -0.57735640 0.67982021 -0.07495294 0.53615839
## [10,] 1.1220109049 -1.13981619 0.45268998 -0.07495022 0.22990857
## [11,] 1.2922051502 -1.13981619 1.37868246 -0.07495220 1.27990794
## [12,] 0.4011882192 -0.81841060 -0.03651359 -0.07495321 0.92990815
## [13,] 0.7315652835 -0.57735640 0.38280376 -0.07495240 0.84240820
## [14,] 1.6626279192 0.54756319 2.12995937 -0.07495267 1.27990794
## [15,] 1.6125707883 -0.57735640 2.39203271 -0.07494984 1.06115807
## [16,] 0.8817366764 -0.49700500 -0.22870071 -0.07495011 1.41115786
## [17,] 1.1119994787 -0.25595080 0.66234866 -0.07495159 0.49240841
## [18,] 1.3722965597 0.30650899 0.22555975 -0.07495105 0.75490825
## [19,] 1.9029021478 -0.33630220 0.47016154 -0.07494822 1.19240799
## [20,] 1.0018737906 -1.54157319 0.12073042 -0.07495308 0.01115870
## [21,] 1.1420337573 -0.97911340 0.88947889 -0.07495233 0.57990836
## [22,] 0.3811653668 -0.89876200 0.67982021 -0.07495388 0.31740852
## [23,] 0.8517023978 -0.73805920 0.17314508 -0.07495483 0.66740831
## [24,] 0.3411196621 -0.81841060 -0.22870071 -0.07495465 0.57990836
## [25,] 0.5813938906 -0.65770780 0.12073042 -0.07495520 0.71115828
## [26,] 0.6514738740 0.86896878 0.57499088 -0.07495512 0.75490825
## [27,] 0.9117709549 -0.17559941 -0.24617226 -0.07495348 -0.16384119
## [28,] 0.1609139906 -0.73805920 -0.42088782 -0.07495463 0.27365854
## [29,] 0.9418052335 0.06545479 0.29544598 -0.07495388 1.27990794
## [30,] 0.3010739573 -0.81841060 0.67982021 -0.07495361 0.36115849
## [31,] 1.2221251668 -0.57735640 1.37868246 -0.07495227 1.01740810
## [32,] 1.1620566097 -1.13981619 0.62740554 -0.07495065 0.57990836
## [33,] 0.6614853002 0.46721179 0.66234866 -0.07495477 1.19240799
## [34,] 0.7115424311 1.11002298 -0.42088782 -0.07495267 1.27990794
## [35,] 0.5013024811 -0.57735640 -0.08892826 -0.07495429 0.62365833
## [36,] 0.9518166597 -0.81841060 0.47016154 -0.07495308 0.36115849
## [37,] 0.6514738740 -0.17559941 -0.40341627 -0.07495375 0.57990836
## [38,] 0.4011882192 -0.57735640 -0.26364382 -0.07495422 0.71115828
## [39,] 0.6114281692 -0.65770780 -0.38594471 -0.07495496 0.97365812
## [40,] 1.0118852168 -1.30051899 0.85453577 -0.07495308 -0.29509111
## [41,] 1.2621708716 -0.17559941 1.30879623 -0.07495169 -0.03259127
## [42,] 0.6514738740 -0.73805920 -0.19375759 -0.07495418 -0.20759117
## [43,] 1.5324793788 -1.54157319 0.19061664 -0.07495263 -0.33884109
## [44,] 0.6014167430 -0.33630220 0.12073042 -0.07495407 -0.60134093
## [45,] 0.9718395121 -0.65770780 0.76717799 -0.07495316 -0.33884109
## [46,] 0.6214395954 -0.49700500 -0.59560339 -0.07495289 -0.38259106
## [47,] 1.1420337573 -0.73805920 1.04672289 -0.07495335 0.36115849
## [48,] 1.3622851335 -1.22016759 0.95936511 -0.07495173 -0.20759117
## [49,] 0.8917481025 -0.33630220 1.37868246 -0.07495159 0.49240841
## [50,] 1.5124565264 -0.33630220 0.85453577 -0.07494795 0.71115828
## [51,] 1.2421480192 -1.54157319 2.30467493 -0.07495025 0.71115828
## [52,] 0.9618280859 -1.13981619 1.22143845 -0.07495240 1.23615797
## [53,] 1.7126850502 -0.33630220 0.48763309 -0.07495045 0.22990857
## [54,] 0.7615995621 0.22615759 0.15567353 -0.07495146 0.75490825
## [55,] 0.8717252502 -1.22016759 0.05084419 -0.07495206 -0.16384119
## [56,] 0.7515881359 -1.30051899 1.50098335 -0.07495153 0.09865865
## [57,] 0.9718395121 -0.81841060 0.76717799 -0.07495135 -0.07634125
## [58,] 1.2021023145 -0.41665360 0.12073042 -0.07495186 0.49240841
## [59,] 1.6426050669 -1.38087039 0.78464955 -0.07495078 -0.29509111
## [60,] -1.4609370523 -0.65770780 -2.04574255 -0.07495732 0.40490846
## [61,] -0.9403428904 2.15459116 -2.06321410 -0.07495554 1.27990794
## [62,] -0.6199772522 1.35107717 -1.69631142 -0.07495220 0.09865865
## [63,] -0.2395430570 -0.33630220 -1.50412430 -0.07495483 1.19240799
## [64,] 1.0719537740 -1.38087039 0.48763309 -0.07495395 1.14865802
## [65,] -0.2795887618 0.70826598 -0.97997762 -0.07495597 2.15490741
## [66,] 0.6214395954 0.06545479 0.85453577 -0.07495375 1.01740810
## [67,] 1.1520451835 -0.81841060 1.20396690 -0.07495281 0.71115828
## [68,] -0.0293031070 -0.73805920 -0.96250606 -0.07495364 0.71115828
## [69,] -0.7301029403 1.51177997 -2.04574255 -0.07495568 0.27365854
## [70,] -0.7501257927 -1.78262739 1.58834113 -0.07495611 1.41115786
## [71,] -1.0104228737 0.06545479 -0.22870071 -0.07495584 -0.22509116
## [72,] 0.8316795454 -1.22016759 0.48763309 -0.07495539 1.76115765
## [73,] -0.1894859260 -0.73805920 -0.97997762 -0.07495491 0.09865865
## [74,] 0.8617138240 -1.22016759 0.64487710 -0.07495543 1.54240778
## [75,] 0.1108568597 -1.86297878 0.10325886 -0.07495562 0.14240862
## [76,] -0.4597944332 -0.17559941 -0.77031895 -0.07495483 1.19240799
## [77,] 0.0007311716 -0.97911340 -0.22870071 -0.07495375 1.01740810
## [78,] -0.7100800880 0.54756319 -1.11975007 -0.07495638 0.01115870
## [79,] -0.1794744999 -0.09524801 2.04260159 -0.07495537 0.44865844
## [80,] 0.5213253335 0.54756319 0.62740554 -0.07495649 1.01740810
## [81,] 0.2309939740 -0.49700500 -0.28111538 -0.07495658 1.84865760
## [82,] 0.5013024811 -0.81841060 0.31291753 -0.07495469 0.88615818
## [83,] -0.4497830070 0.30650899 -0.33353004 -0.07495698 1.54240778
## [84,] -0.4397715808 1.99388837 0.05084419 -0.07495348 -0.51384098
## [85,] 0.1809368430 -1.13981619 1.32626779 -0.07495584 -0.73259085
## [86,] -0.0893716641 -0.49700500 -0.22870071 -0.07495642 1.19240799
## [87,] -0.3396573189 0.54756319 -0.05398515 -0.07495665 1.62990773
## [88,] -0.4197487284 0.30650899 -0.43835938 -0.07495644 1.76115765
## [89,] -0.3396573189 0.94932018 -0.42088782 -0.07495618 0.18615860
## [90,] -0.4397715808 0.46721179 -0.36847316 -0.07495760 0.49240841
## [91,] -0.5298744165 1.27072578 0.08578730 -0.07495671 0.53615839
## [92,] -0.7801600713 1.11002298 0.06831575 -0.07495510 0.40490846
## [93,] -0.5699201213 1.75283417 0.05084419 -0.07495584 0.01115870
## [94,] 0.2209825478 -0.89876200 0.69729177 -0.07495705 0.84240820
## [95,] 0.2309939740 -1.54157319 -0.42088782 -0.07495557 0.88615818
## [96,] 0.2410054002 -0.33630220 2.95112251 -0.07495644 0.88615818
## [97,] -1.0404571523 -1.78262739 -0.05398515 -0.07495658 -0.03259127
## [98,] 0.4712682025 -0.57735640 0.31291753 -0.07495604 1.19240799
## [99,] 1.7226964764 -0.97911340 0.62740554 -0.07495388 0.36115849
## [100,] 0.9618280859 0.70826598 2.12995937 -0.07495685 2.02365749
## [101,] 0.1408911382 -0.81841060 -0.33353004 -0.07495550 1.36740789
## [102,] -0.6700343832 -0.57735640 -0.42088782 -0.07495665 0.36115849
## [103,] 0.0808225811 -0.17559941 -0.49077405 -0.07495618 -0.68884088
## [104,] -0.3897144499 0.06545479 -0.29858693 -0.07495717 -0.07634125
## [105,] -0.1093945165 -0.33630220 -0.19375759 -0.07495599 0.36115849
## [106,] -0.1894859260 2.39564536 -0.29858693 -0.07495631 -0.42634104
## [107,] 0.0007311716 0.06545479 0.06831575 -0.07495537 0.18615860
## [108,] -0.2695773356 0.94932018 0.06831575 -0.07495550 -0.33884109
## [109,] 0.0107425978 0.22615759 0.85453577 -0.07495631 -0.42634104
## [110,] 0.8917481025 -0.57735640 1.57086958 -0.07495638 0.01115870
## [111,] 0.5513596121 -0.97911340 3.47526919 -0.07495604 -0.90759075
## [112,] 0.2410054002 -0.81841060 -0.64801805 -0.07495725 -0.25134114
## [113,] 0.0007311716 1.91353697 -0.94503451 -0.07495483 1.19240799
## [114,] -0.0192916808 0.46721179 -0.26364382 -0.07495580 0.62365833
## [115,] 0.2610282525 0.54756319 -0.96250606 -0.07495604 -0.12009122
## [116,] 0.1408911382 1.27072578 0.73223488 -0.07495739 3.29240673
## [117,] -0.4297601546 -0.49700500 -0.10639981 -0.07495732 -0.03259127
## [118,] 0.0607997287 -0.17559941 0.03337264 -0.07495717 0.44865844
## [119,] -0.7801600713 0.54756319 -1.32940874 -0.07495537 -1.12634062
## [120,] -0.3897144499 0.06545479 0.48763309 -0.07495822 -0.12009122
## [121,] 0.7615995621 -0.33630220 0.41774687 -0.07495557 -0.68884088
## [122,] 3.0542161597 0.86896878 0.48763309 -0.07495186 -0.12009122
## [123,] 0.1008454335 0.54756319 0.20808820 -0.07495715 -0.16384119
## [124,] 0.6214395954 -0.49700500 0.73223488 -0.07495644 -0.99509069
## [125,] 1.0018737906 -1.22016759 2.30467493 -0.07495618 -0.90759075
## [126,] 0.6214395954 0.06545479 -0.42088782 -0.07495623 -0.42634104
## [127,] 1.1220109049 0.22615759 0.31291753 -0.07495464 -1.17009059
## [128,] 0.2109711216 1.75283417 0.29544598 -0.07495591 0.05490867
## [129,] 0.4212110716 0.30650899 0.54004776 -0.07495709 -0.29509111
## [130,] -0.2795887618 0.46721179 -0.42088782 -0.07495644 -0.73259085
## [131,] -0.7801600713 -1.22016759 -1.13722163 -0.07495442 -0.86384077
## [132,] -0.8101943499 -0.97911340 -1.32940874 -0.07495267 -0.95134072
## [133,] -0.9403428904 -0.73805920 -1.32940874 -0.07495227 -1.30134051
## [134,] -0.8302172023 -1.54157319 -1.31193719 -0.07495321 -0.77634083
## [135,] -1.4509256261 1.91353697 -0.59560339 -0.07495260 -0.90759075
## [136,] -1.3708342166 2.15459116 -1.13722163 -0.07495038 -0.99509069
## [137,] -1.5610513142 1.35107717 -1.38182341 -0.07495476 -0.90759075
## [138,] -1.4309027737 2.15459116 -0.85767673 -0.07495321 -0.60134093
## [139,] -1.5510398880 1.75283417 -1.24205096 -0.07495227 -0.64509090
## [140,] -1.4309027737 1.35107717 -1.36435186 -0.07495332 -0.29509111
## [141,] -1.5310170356 1.35107717 -1.46918119 -0.07495375 -0.82009080
## [142,] -1.5310170356 0.06545479 -1.66136831 -0.07495240 -1.12634062
## [143,] -1.5109941832 1.11002298 -1.81861232 -0.07495409 -0.29509111
## [144,] -1.2306742499 0.86896878 -0.99744918 -0.07495402 -0.20759117
## [145,] -1.2506971023 -0.57735640 -0.78779050 -0.07494888 -1.34509048
## [146,] -1.4809599046 0.54756319 -0.50824560 -0.07495456 -1.56384035
## [147,] -1.6911998547 0.30650899 -1.59148209 -0.07495335 -1.65134030
## [148,] -1.3808456427 0.86896878 -1.27699407 -0.07494964 -1.82634020
## [149,] -1.2707199546 0.70826598 -0.59560339 -0.07494860 -1.78259022
## [150,] -0.6400001046 -0.17559941 -0.78779050 -0.07494728 -1.69509027
## [151,] -0.4597944332 -1.13981619 -0.59560339 -0.07494836 -1.60759033
## [152,] -0.6700343832 -0.97911340 -0.57813183 -0.07494539 -2.08884004
## [153,] -0.7501257927 -0.81841060 -0.05398515 -0.07495038 -1.52009038
## [154,] -1.2006399713 1.99388837 0.48763309 -0.07494577 -1.73884025
## [155,] -1.4509256261 1.35107717 -0.33353004 -0.07494971 -1.65134030
## [156,] -1.4008684951 1.99388837 -0.07145670 -0.07494930 -1.56384035
## [157,] -1.2006399713 0.94932018 -0.05398515 -0.07494781 -1.69509027
## [158,] -1.4509256261 2.15459116 -0.78779050 -0.07494984 -1.25759054
## [159,] -0.7200915142 1.35107717 1.93777225 -0.07494243 -1.69509027
## [160,] -0.9303314642 1.27072578 1.22143845 -0.07494411 -1.69509027
## [161,] -1.1105371356 1.11002298 -0.96250606 -0.07494964 -1.73884025
## [162,] -1.4709484785 1.11002298 -1.38182341 -0.07495202 0.01115870
## [163,] -1.4309027737 1.91353697 -1.10227851 -0.07495243 -0.38259106
## [164,] -1.3307885118 0.30650899 -1.13722163 -0.07495283 -1.21384056
## [165,] -1.3508113642 0.38686039 -0.97997762 -0.07494704 -1.12634062
## [166,] -1.5610513142 1.27072578 -0.77031895 -0.07495103 -0.77634083
## [167,] -1.1105371356 0.54756319 -0.22870071 -0.07494556 -0.47009101
## [168,] -1.3708342166 0.30650899 -1.08480696 -0.07494612 -1.03884067
## [169,] -1.1906285451 0.22615759 -0.08892826 -0.07494828 -0.95134072
## [170,] -1.0704914308 -0.73805920 -0.84020517 -0.07494849 -1.25759054
## [171,] -1.5410284618 0.30650899 -1.50412430 -0.07495254 -1.30134051
## [172,] -1.5210056094 0.94932018 -1.66136831 13.26671090 -1.69509027
## [173,] -1.3307885118 0.62791458 -0.61307494 -0.07494688 -1.47634041
## [174,] -1.4208913475 1.27072578 -0.92756295 -0.07494957 -1.38884046
## [175,] -1.2807313808 0.54756319 -0.31605849 -0.07495011 -1.12634062
## [176,] -1.3407999380 0.54756319 -0.42088782 -0.07494620 -1.60759033
## [177,] -1.3508113642 1.35107717 -0.22870071 -0.07494742 -1.56384035
## [178,] -1.2707199546 1.59213137 -0.42088782 -0.07494755 -1.52009038
## X12 X13
## [1,] 1.84272147 1.010159388
## [2,] 1.11031723 0.962526349
## [3,] 0.78636920 1.391223700
## [4,] 1.18074072 2.328006800
## [5,] 0.44833648 -0.037767469
## [6,] 0.33565890 2.232740722
## [7,] 1.36384178 1.724654973
## [8,] 1.36384178 1.740532653
## [9,] 0.33565890 0.946648670
## [10,] 1.32158768 0.946648670
## [11,] 0.78636920 2.423272878
## [12,] 0.29340481 1.692899614
## [13,] 0.40608239 1.819921051
## [14,] 0.16664254 1.280079943
## [15,] 0.54692935 2.540767708
## [16,] 0.37791299 1.788165692
## [17,] 0.05396496 1.692899614
## [18,] -0.05871261 1.216569224
## [19,] 0.29340481 2.963113987
## [20,] 1.05397844 0.311541483
## [21,] 1.54694284 0.105131647
## [22,] 1.27933359 0.073376288
## [23,] 1.95539905 0.914893310
## [24,] 1.43426526 0.851382592
## [25,] 1.70187450 0.311541483
## [26,] 0.82862329 0.263908444
## [27,] 0.85679269 1.422979059
## [28,] 0.22298133 1.708777293
## [29,] 1.11031723 0.533828998
## [30,] 1.37792647 0.914893310
## [31,] 0.13847314 1.708777293
## [32,] 0.37791299 2.439150558
## [33,] 0.36382829 0.771994193
## [34,] 0.54692935 1.550000497
## [35,] 0.36382829 1.105425466
## [36,] 1.20891011 0.549706678
## [37,] 0.23706602 0.422685241
## [38,] -0.14322079 1.137180826
## [39,] 0.11030375 0.867260271
## [40,] 1.29341829 0.041620929
## [41,] 1.08214784 0.152764686
## [42,] 0.54692935 0.914893310
## [43,] 1.33567238 1.105425466
## [44,] 0.54692935 -0.212421946
## [45,] 1.03989375 0.438562920
## [46,] 1.01172435 1.057792427
## [47,] 1.16665602 1.010159388
## [48,] 1.01172435 0.756116514
## [49,] 0.19481193 0.994281709
## [50,] 0.68777632 1.629388895
## [51,] 0.42016708 1.280079943
## [52,] 1.06806314 1.645266575
## [53,] 0.91313147 1.407101380
## [54,] 0.44833648 1.994575527
## [55,] 0.82862329 0.994281709
## [56,] 0.58918345 1.184813865
## [57,] 0.98355496 0.708483475
## [58,] 0.32157420 1.661144254
## [59,] 0.36382829 1.708777293
## [60,] -1.11506488 -0.720507695
## [61,] -1.32633534 -0.212421946
## [62,] -1.43901291 -0.942795210
## [63,] -0.21364428 -0.371198742
## [64,] 0.36382829 -1.038061288
## [65,] -0.53759231 -1.244471124
## [66,] -0.43899943 -0.218773018
## [67,] 0.80045390 -0.777667342
## [68,] 1.22299481 -0.752263054
## [69,] -0.96013322 0.009865569
## [70,] 0.64552223 -0.091751580
## [71,] -1.11506488 0.390929881
## [72,] 0.77228450 -1.069816648
## [73,] 0.23706602 -0.872933420
## [74,] 1.25116420 0.756116514
## [75,] 0.73003041 0.441738456
## [76,] -0.66435458 -1.012657001
## [77,] -0.18547489 -1.126976294
## [78,] -0.12913610 -0.784018414
## [79,] -0.42491473 0.009865569
## [80,] 0.73003041 -0.901513243
## [81,] 0.71594572 -1.488987391
## [82,] 0.74411511 -0.104453724
## [83,] 0.15255784 -0.371198742
## [84,] -0.84745564 -0.736385375
## [85,] 0.65960693 -0.720507695
## [86,] 0.77228450 -0.942795210
## [87,] -0.49533822 -0.799896093
## [88,] 0.84270799 -0.587135186
## [89,] 0.19481193 -0.212421946
## [90,] 0.84270799 -0.387076422
## [91,] -0.48125352 -0.847529132
## [92,] 0.05396496 -0.942795210
## [93,] -0.77703216 -0.799896093
## [94,] 0.96947026 -1.450880959
## [95,] 0.49059057 -1.276226483
## [96,] 0.02579557 0.603690789
## [97,] -0.49533822 -0.387076422
## [98,] 0.18072723 -1.012657001
## [99,] 0.22298133 -0.275932664
## [100,] 0.30748951 -1.082518791
## [101,] 0.49059057 -0.117155868
## [102,] 0.22298133 -0.587135186
## [103,] 1.08214784 -0.980901641
## [104,] -0.24181367 -1.053938968
## [105,] 1.34975708 -0.237826233
## [106,] 0.96947026 -1.371492561
## [107,] 0.78636920 -0.752263054
## [108,] -0.26998307 -0.822124845
## [109,] 0.57509875 -1.381019169
## [110,] 0.91313147 -0.212421946
## [111,] 0.27932011 -0.587135186
## [112,] 0.23706602 -1.339737202
## [113,] -0.15730549 -0.444236069
## [114,] -0.42491473 -0.993603785
## [115,] 0.81453860 -1.149205046
## [116,] 0.36382829 -1.079343255
## [117,] 1.01172435 -0.799896093
## [118,] 0.49059057 -1.276226483
## [119,] -0.69252397 -1.190487013
## [120,] 0.61735284 -0.580784114
## [121,] 1.09623253 -0.387076422
## [122,] 1.51877344 -0.895162171
## [123,] 0.71594572 -1.212715765
## [124,] 0.68777632 -1.165082726
## [125,] 1.44834996 -1.165082726
## [126,] 0.94130087 -1.171433797
## [127,] 0.32157420 -1.253997732
## [128,] -0.24181367 -0.891986635
## [129,] 0.23706602 -1.285753091
## [130,] -0.05871261 -0.529975539
## [131,] -1.86155382 -0.371198742
## [132,] -1.67845276 -0.688752336
## [133,] -1.76296094 -0.593486258
## [134,] -1.86155382 -0.466464820
## [135,] -1.55169049 -0.307688024
## [136,] -1.45309761 -0.164788907
## [137,] -1.88972321 -0.085400508
## [138,] -1.29816594 -0.736385375
## [139,] -1.11506488 -0.529975539
## [140,] -0.65026988 -0.498220180
## [141,] -0.42491473 -0.466464820
## [142,] -0.19955958 0.105131647
## [143,] -0.77703216 -0.720507695
## [144,] -0.79111685 -0.625241617
## [145,] -0.86154034 0.343296842
## [146,] -1.31225064 0.263908444
## [147,] -1.80521503 -1.053938968
## [148,] -1.05872609 -0.387076422
## [149,] -1.39675882 -0.307688024
## [150,] -1.80521503 -0.625241617
## [151,] -1.84746912 -0.784018414
## [152,] -1.60802927 -0.847529132
## [153,] -1.80521503 -1.022183609
## [154,] -1.55169049 -0.228299625
## [155,] -1.49535170 -0.339443383
## [156,] -1.59394458 -0.069522829
## [157,] -1.36858943 -0.847529132
## [158,] -1.24182715 0.422685241
## [159,] -0.91787912 -0.275932664
## [160,] -1.17140367 -0.402954102
## [161,] -1.45309761 -0.720507695
## [162,] -1.11506488 -0.212421946
## [163,] -0.70660867 -0.561730898
## [164,] -1.21365776 -0.228299625
## [165,] -1.31225064 -0.418831781
## [166,] -1.21365776 -0.720507695
## [167,] -1.48126700 -0.164788907
## [168,] -1.21365776 -0.196544266
## [169,] -1.14323428 0.009865569
## [170,] -0.97421791 -0.371198742
## [171,] -1.10098018 -0.752263054
## [172,] -1.38267412 -0.879284492
## [173,] -1.26999655 -0.275932664
## [174,] -1.22774246 -0.021889790
## [175,] -1.48126700 0.009865569
## [176,] -1.48126700 0.279786124
## [177,] -1.39675882 0.295663803
## [178,] -1.42492821 -0.593486258
## attr(,"scaled:center")
## X1 X2 X4 X5 X6 X7
## 1.300062e+01 2.336348e+00 1.949494e+01 9.974157e+01 2.295112e+00 2.029270e+00
## X8 X9 X10 X11 X12 X13
## 3.618539e-01 1.590899e+00 5.562297e+04 9.574494e-01 2.611685e+00 7.468933e+02
## attr(,"scaled:scale")
## X1 X2 X4 X5 X6 X7
## 8.118265e-01 1.117146e+00 3.339564e+00 1.428248e+01 6.258510e-01 9.988587e-01
## X8 X9 X10 X11 X12 X13
## 1.244533e-01 5.723589e-01 7.420359e+05 2.285716e-01 7.099904e-01 3.149075e+02- Matriks korelasi baru
cor_matriks <- cor(data_zscore)
cor_matriks## X1 X2 X4 X5 X6 X7
## X1 1.00000000 0.094396941 -0.3102351369 0.27079823 0.2891011 0.2368149
## X2 0.09439694 1.000000000 0.2885004028 -0.05457510 -0.3351670 -0.4110066
## X4 -0.31023514 0.288500403 1.0000000000 -0.08333309 -0.3211133 -0.3513699
## X5 0.27079823 -0.054575096 -0.0833330886 1.00000000 0.2144012 0.1957838
## X6 0.28910112 -0.335166997 -0.3211133173 0.21440123 1.0000000 0.8645635
## X7 0.23681493 -0.411006588 -0.3513698601 0.19578377 0.8645635 1.0000000
## X8 -0.15592947 0.292977133 0.3619217186 -0.25629405 -0.4499353 -0.5378996
## X9 0.13669791 -0.220746187 -0.1973268357 0.23644061 0.6124131 0.6526918
## X10 -0.02141075 0.003620789 0.0001141805 -0.07252129 -0.1090106 -0.1146488
## X11 -0.07174720 -0.561295689 -0.2739552227 0.05539820 0.4336813 0.5434786
## X12 0.07234319 -0.368710428 -0.2767685489 0.06600394 0.6999494 0.7871939
## X13 0.64372004 -0.192010565 -0.4405969313 0.39335085 0.4981149 0.4941931
## X8 X9 X10 X11 X12 X13
## X1 -0.15592947 0.1366979 -0.0214107467 -0.0717472 0.07234319 0.64372004
## X2 0.29297713 -0.2207462 0.0036207891 -0.5612957 -0.36871043 -0.19201056
## X4 0.36192172 -0.1973268 0.0001141805 -0.2739552 -0.27676855 -0.44059693
## X5 -0.25629405 0.2364406 -0.0725212864 0.0553982 0.06600394 0.39335085
## X6 -0.44993530 0.6124131 -0.1090105971 0.4336813 0.69994936 0.49811488
## X7 -0.53789961 0.6526918 -0.1146487640 0.5434786 0.78719390 0.49419313
## X8 1.00000000 -0.3658451 0.0715569582 -0.2626396 -0.50326960 -0.31138519
## X9 -0.36584510 1.0000000 -0.1252283669 0.2955443 0.51906710 0.33041670
## X10 0.07155696 -0.1252284 1.0000000000 -0.1277718 -0.10422261 -0.06627648
## X11 -0.26263963 0.2955443 -0.1277717651 1.0000000 0.56546829 0.23618345
## X12 -0.50326960 0.5190671 -0.1042226085 0.5654683 1.00000000 0.31276108
## X13 -0.31138519 0.3304167 -0.0662764844 0.2361834 0.31276108 1.00000000- Penentuan Jumlah Faktor
- eigenvalue > 1
# Menghitung nilai eigen dan vektor eigen
eigen_result <- eigen(cor_matriks)
eigen_result## eigen() decomposition
## $values
## [1] 4.6977330 1.7289390 1.1067237 0.9405461 0.8636860 0.7354455 0.5283075
## [8] 0.4518851 0.3352710 0.2693394 0.2326020 0.1095218
##
## $vectors
## [,1] [,2] [,3] [,4] [,5] [,6]
## [1,] 0.16163145 -0.598463009 0.10395166 -0.02727369 0.26267395 -0.17828125
## [2,] -0.23800641 -0.329931020 -0.37466138 0.28647441 0.30593522 0.18061307
## [3,] -0.24055447 0.152134748 -0.50943686 0.25090569 -0.22153873 -0.37473966
## [4,] 0.15106720 -0.362988836 -0.21558144 -0.11017832 -0.78996703 -0.04755977
## [5,] 0.39686707 0.010935381 -0.14383218 0.20557858 0.14204951 -0.13300097
## [6,] 0.42224292 0.086630309 -0.10754429 0.16891273 0.10252677 -0.06272229
## [7,] -0.29772027 0.004899491 -0.01695285 -0.06080973 0.20702673 -0.76079107
## [8,] 0.31612729 0.031752038 -0.34147378 0.28319156 -0.01137107 -0.03925919
## [9,] -0.07103082 -0.024582991 0.58365348 0.74830456 -0.24688277 -0.13147056
## [10,] 0.28601748 0.355794096 0.15764265 -0.28701040 -0.07873497 -0.32927314
## [11,] 0.36854936 0.233846918 -0.09600010 0.16959014 0.14708748 0.03898275
## [12,] 0.29915563 -0.433066900 0.13768737 -0.12771364 0.04259735 -0.25240903
## [,7] [,8] [,9] [,10] [,11]
## [1,] -0.23835141 -0.223067315 0.22001763 5.866651e-01 0.06503300
## [2,] -0.08252902 0.642018376 0.15779344 -1.024475e-01 -0.17654928
## [3,] -0.49067096 -0.344218580 0.19520830 -9.076499e-02 -0.03546443
## [4,] 0.05494122 0.288405258 -0.20180454 1.581315e-01 0.08917011
## [5,] -0.03395586 -0.040345993 -0.50531281 4.604079e-02 -0.46456001
## [6,] -0.06795634 0.001174569 -0.19814566 -1.365009e-03 -0.17720702
## [7,] 0.33876662 0.200516103 -0.28747345 6.322023e-02 0.19461220
## [8,] 0.67328350 -0.166861609 0.45012996 4.412821e-02 0.08576666
## [9,] -0.01922939 0.094568893 0.07346527 7.495609e-05 -0.02717863
## [10,] -0.16722119 0.437766967 0.48514255 1.283887e-01 -0.30259724
## [11,] -0.28981226 0.248608368 -0.10034452 3.943204e-02 0.75142756
## [12,] -0.08020368 -0.065737037 0.13104179 -7.654936e-01 0.07743857
## [,12]
## [1,] -0.00151755
## [2,] -0.01672559
## [3,] 0.01237174
## [4,] -0.02480448
## [5,] 0.51526866
## [6,] -0.82727122
## [7,] -0.07879761
## [8,] 0.08665614
## [9,] 0.00739645
## [10,] 0.08211889
## [11,] 0.16214569
## [12,] 0.04756450dari keseluruhan nilai eigen, hanya faktor 1, 2, dan 3 yang memiliki eigenvalue > 1. sehingga faktor tersebut yang akan digunakan dalam analisis ini.
- total variance explained
# Proporsi Total Varian
explained_variance_ratio <- eigen_result$values / sum(eigen_result$values)
explained_variance_ratio## [1] 0.391477746 0.144078248 0.092226974 0.078378843 0.071973829 0.061287123
## [7] 0.044025623 0.037657094 0.027939254 0.022444951 0.019383501 0.009126814# Proporsi Kumulatif
cumulative_variance <- cumsum(explained_variance_ratio)
cumulative_variance## [1] 0.3914777 0.5355560 0.6277830 0.7061618 0.7781356 0.8394228 0.8834484
## [8] 0.9211055 0.9490447 0.9714897 0.9908732 1.0000000dari proporsi kumulatif terlihat bahwa dengan 6 faktor sudah cukup untuk menjelaskan 80% varians data.
- scree plot
# Scree Plot
library(ggplot2)##
## Attaching package: 'ggplot2'## The following objects are masked from 'package:psych':
##
## %+%, alphaqplot(1:length(eigen_result$values), eigen_result$values, geom = "line") +
geom_point() +
ggtitle("Scree Plot") +
xlab("Jumlah Faktor") +
ylab("Eigenvalue")## Warning: `qplot()` was deprecated in ggplot2 3.4.0.
## This warning is displayed once every 8 hours.
## Call `lifecycle::last_lifecycle_warnings()` to see where this warning was
## generated.
Terlihat ada penurunan tajam pada faktor pertama dan kedua.Setelah
faktor ke-2 atau ke-3, penurunan menjadi lebih landai. Jumlah faktor
yang ideal kemungkinan 2 atau 3, karena setelah itu tambahan faktor
tidak memberikan peningkatan yang signifikan dalam menjelaskan
variansi.
Berdasarkan ketiga cara penentuan jumlah faktor, akan diambil 3 faktor untuk analisis faktor.
- Metode estimasi dengan PCA
- Faktor loading
# Melakukan PCA dengan 3 faktor utama (tanpa rotasi)
pca_result <- principal(cor_matriks, nfactors = 3, rotate = "none")
pca_result$loadings##
## Loadings:
## PC1 PC2 PC3
## X1 0.350 0.787 -0.109
## X2 -0.516 0.434 0.394
## X4 -0.521 -0.200 0.536
## X5 0.327 0.477 0.227
## X6 0.860 0.151
## X7 0.915 -0.114 0.113
## X8 -0.645
## X9 0.685 0.359
## X10 -0.154 -0.614
## X11 0.620 -0.468 -0.166
## X12 0.799 -0.307 0.101
## X13 0.648 0.569 -0.145
##
## PC1 PC2 PC3
## SS loadings 4.698 1.729 1.107
## Proportion Var 0.391 0.144 0.092
## Cumulative Var 0.391 0.536 0.628Variabel yang memiliki loading tinggi di PC1 adalah X6, X7, X12, X13, X9, dan X11, X8, X2, X4 dengan arah berlawanan. Faktor ini mencerminkan komposisi kimia utama wine, seperti kandungan alkohol, fenol, flavonoid, dan proline. Nilai negatif dari X2 dan X4 menunjukkan bahwa semakin tinggi kandungan unsur kimia tertentu, semakin rendah nilai variabel X2 dan X4. Faktor ini bisa disebut sebagai “Komponen Kimia & Struktur Wine”, karena mencerminkan elemen utama dalam wine yang memengaruhi kualitasnya.
Variabel yang memiliki loading tinggi di PC2 adalah X1, X5, X13, X2 dan X12, X11 dengan arah berlawanan. Faktor ini menggambarkan keseimbangan sensorik dan warna wine, karena X1 (kenyamanan pelanggan), X5 (kemungkinan terkait intensitas warna), serta X13 (mungkin berkaitan dengan struktur wine) memiliki loading yang cukup besar.Faktor ini bisa disebut sebagai “Warna & Keseimbangan Sensorik”, karena mencerminkan aspek warna dan pengalaman subjektif dalam menikmati wine.
Variabel yang memiliki loading tinggi di PC3 adalah X4, X9, X2 dan X10 dengan arah berlawanan. Faktor ini menggambarkan karakteristik keasaman dan aroma dalam wine. X4 berkaitan dengan alkalinitas abu, sementara X9 dan X2 bisa mencerminkan faktor terkait kandungan rasa wine. X10 yang negatif mungkin menunjukkan pengaruh dari dimensi lain yang bertolak belakang dengan faktor-faktor ini. Faktor ini bisa disebut sebagai “Keasaman & Aroma”, karena mencerminkan keseimbangan antara kandungan asam dan aroma wine.
- komunalitas
pca_result <- principal(cor_matriks, nfactors = 3, rotate = "none")
pca_result$communality## X1 X2 X4 X5 X6 X7 X8 X9
## 0.7539195 0.6096675 0.5990809 0.3864503 0.7630116 0.8633300 0.4167542 0.6002667
## X10 X11 X12 X13
## 0.4017536 0.6306716 0.7428322 0.7656576Variabel dengan Komunalitas Tinggi (≥0.7) yaitu X1, X6, X7, X12, X13 memiliki keterkaitan kuat dengan faktor yang terbentuk dan dijelaskan dengan baik oleh model.Variabel dengan Komunalitas Sedang (0.5 - 0.7) yaitu X2, X4, X9, X11 masih cukup baik terwakili dalam model tetapi kurang kuat dibandingkan kelompok pertama.sedangkan Variabel dengan Komunalitas Rendah (<0.5) yaitu X5, X8, X10 kurang dijelaskan oleh faktor yang terbentuk.
- Rotasi Faktor
fa_varimax <- principal(cor_matriks, nfactors = 3, rotate = "varimax")
print(fa_varimax$loadings)##
## Loadings:
## RC1 RC2 RC3
## X1 0.863
## X2 -0.667 0.144 0.380
## X4 -0.388 -0.426 0.516
## X5 0.568 0.242
## X6 0.769 0.373 0.180
## X7 0.864 0.310 0.143
## X8 -0.573 -0.298
## X9 0.620 0.264 0.382
## X10 -0.136 -0.619
## X11 0.769 -0.133 -0.149
## X12 0.848 0.125
## X13 0.324 0.804 -0.118
##
## RC1 RC2 RC3
## SS loadings 4.087 2.336 1.111
## Proportion Var 0.341 0.195 0.093
## Cumulative Var 0.341 0.535 0.628Variabel yang memiliki loading tinggi di RC1 yaitu X6, X7, X9, X11, X12. Faktor ini berhubungan dengan komposisi kimia utama wine, seperti kandungan fenol dan flavonoid, yang mempengaruhi struktur dan kualitas dasar wine. Faktor ini merupakan faktor paling dominan, menjelaskan 34.1% variansi dalam data, sehingga menjadi aspek yang paling berpengaruh terhadap karakteristik wine.
Variabel yang memiliki loading tinggi di RC2 yaitu X5, X4, X7, dan X13. Faktor ini berkaitan dengan warna dan komposisi sensorik wine, termasuk tampilan visual dan tekstur yang mempengaruhi pengalaman sensorik konsumen. Faktor ini menjelaskan 19.5% variansi dalam data, yang berarti bahwa aspek ini juga memiliki peran penting dalam karakteristik wine.
Variabel yang memiliki loading tinggi di RC3 yaitu X4, X9, dan X10. Faktor ini mencerminkan keasaman dan aroma wine, yang menentukan keseimbangan rasa dan tingkat keasaman wine. Faktor ini memiliki kontribusi lebih kecil dibandingkan dua faktor lainnya, tetapi tetap menjelaskan 9.3% variansi dalam data, menunjukkan bahwa aspek ini masih relevan dalam menentukan karakteristik wine.