Contexto

Paso 1. Instalar paquetes y llamar librerías

#install.packages("cluster")
library(cluster)
## Warning: package 'cluster' was built under R version 4.3.2
#install.packages("ggplot2")
library(ggplot2)
## Warning: package 'ggplot2' was built under R version 4.3.2
#install.packages("data.table")
library(data.table)
## Warning: package 'data.table' was built under R version 4.3.1
#install.packages("factoextra")
library(factoextra)
## Warning: package 'factoextra' was built under R version 4.3.2
## Welcome! Want to learn more? See two factoextra-related books at https://goo.gl/ve3WBa

Paso 2. Obtener los datos

library(readr)
## Warning: package 'readr' was built under R version 4.3.1
df <- read_csv("C:\\Users\\memil\\OneDrive\\Desktop\\aaTecDeMonterrey\\6to Semestre\\wine.csv")
## Rows: 178 Columns: 13
## ── Column specification ────────────────────────────────────────────────────────
## Delimiter: ","
## dbl (13): Alcohol, Malic_Acid, Ash, Ash_Alcanity, Magnesium, Total_Phenols, ...
## 
## ℹ Use `spec()` to retrieve the full column specification for this data.
## ℹ Specify the column types or set `show_col_types = FALSE` to quiet this message.
str(df)
## spc_tbl_ [178 × 13] (S3: spec_tbl_df/tbl_df/tbl/data.frame)
##  $ Alcohol             : num [1:178] 14.2 13.2 13.2 14.4 13.2 ...
##  $ Malic_Acid          : num [1:178] 1.71 1.78 2.36 1.95 2.59 1.76 1.87 2.15 1.64 1.35 ...
##  $ Ash                 : num [1:178] 2.43 2.14 2.67 2.5 2.87 2.45 2.45 2.61 2.17 2.27 ...
##  $ Ash_Alcanity        : num [1:178] 15.6 11.2 18.6 16.8 21 15.2 14.6 17.6 14 16 ...
##  $ Magnesium           : num [1:178] 127 100 101 113 118 112 96 121 97 98 ...
##  $ Total_Phenols       : num [1:178] 2.8 2.65 2.8 3.85 2.8 3.27 2.5 2.6 2.8 2.98 ...
##  $ Flavanoids          : num [1:178] 3.06 2.76 3.24 3.49 2.69 3.39 2.52 2.51 2.98 3.15 ...
##  $ Nonflavanoid_Phenols: num [1:178] 0.28 0.26 0.3 0.24 0.39 0.34 0.3 0.31 0.29 0.22 ...
##  $ Proanthocyanins     : num [1:178] 2.29 1.28 2.81 2.18 1.82 1.97 1.98 1.25 1.98 1.85 ...
##  $ Color_Intensity     : num [1:178] 5.64 4.38 5.68 7.8 4.32 6.75 5.25 5.05 5.2 7.22 ...
##  $ Hue                 : num [1:178] 1.04 1.05 1.03 0.86 1.04 1.05 1.02 1.06 1.08 1.01 ...
##  $ OD280               : num [1:178] 3.92 3.4 3.17 3.45 2.93 2.85 3.58 3.58 2.85 3.55 ...
##  $ Proline             : num [1:178] 1065 1050 1185 1480 735 ...
##  - attr(*, "spec")=
##   .. cols(
##   ..   Alcohol = col_double(),
##   ..   Malic_Acid = col_double(),
##   ..   Ash = col_double(),
##   ..   Ash_Alcanity = col_double(),
##   ..   Magnesium = col_double(),
##   ..   Total_Phenols = col_double(),
##   ..   Flavanoids = col_double(),
##   ..   Nonflavanoid_Phenols = col_double(),
##   ..   Proanthocyanins = col_double(),
##   ..   Color_Intensity = col_double(),
##   ..   Hue = col_double(),
##   ..   OD280 = col_double(),
##   ..   Proline = col_double()
##   .. )
##  - attr(*, "problems")=<externalptr>

Paso 3. Escalar las variables

scale(df)
##            Alcohol  Malic_Acid         Ash Ash_Alcanity   Magnesium
##   [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
##        Total_Phenols    Flavanoids Nonflavanoid_Phenols Proanthocyanins
##   [1,]   0.806721729  1.0319080692          -0.65770780      1.22143845
##   [2,]   0.567048088  0.7315652835          -0.81841060     -0.54318872
##   [3,]   0.806721729  1.2121137407          -0.49700500      2.12995937
##   [4,]   2.484437221  1.4623993954          -0.97911340      1.02925134
##   [5,]   0.806721729  0.6614853002           0.22615759      0.40027531
##   [6,]   1.557699140  1.3622851335          -0.17559941      0.66234866
##   [7,]   0.327374446  0.4912910549          -0.49700500      0.67982021
##   [8,]   0.487156874  0.4812796287          -0.41665360     -0.59560339
##   [9,]   0.806721729  0.9518166597          -0.57735640      0.67982021
##  [10,]   1.094330099  1.1220109049          -1.13981619      0.45268998
##  [11,]   1.046395371  1.2922051502          -1.13981619      1.37868246
##  [12,]  -0.151972837  0.4011882192          -0.81841060     -0.03651359
##  [13,]   0.487156874  0.7315652835          -0.57735640      0.38280376
##  [14,]   1.286069013  1.6626279192           0.54756319      2.12995937
##  [15,]   1.605633868  1.6125707883          -0.57735640      2.39203271
##  [16,]   0.886612943  0.8817366764          -0.49700500     -0.22870071
##  [17,]   0.806721729  1.1119994787          -0.25595080      0.66234866
##  [18,]   1.046395371  1.3722965597           0.30650899      0.22555975
##  [19,]   1.605633868  1.9029021478          -0.33630220      0.47016154
##  [20,]   0.646939302  1.0018737906          -1.54157319      0.12073042
##  [21,]   1.126286585  1.1420337573          -0.97911340      0.88947889
##  [22,]   0.183570261  0.3811653668          -0.89876200      0.67982021
##  [23,]   0.503135117  0.8517023978          -0.73805920      0.17314508
##  [24,]   0.295417961  0.3411196621          -0.81841060     -0.22870071
##  [25,]   0.375309174  0.5813938906          -0.65770780      0.12073042
##  [26,]   0.535091602  0.6514738740           0.86896878      0.57499088
##  [27,]   0.886612943  0.9117709549          -0.17559941     -0.24617226
##  [28,]   0.167592018  0.1609139906          -0.73805920     -0.42088782
##  [29,]   1.046395371  0.9418052335           0.06545479      0.29544598
##  [30,]   0.567048088  0.3010739573          -0.81841060      0.67982021
##  [31,]   1.126286585  1.2221251668          -0.57735640      1.37868246
##  [32,]   0.902591186  1.1620566097          -1.13981619      0.62740554
##  [33,]   0.199548504  0.6614853002           0.46721179      0.66234866
##  [34,]   1.046395371  0.7115424311           1.11002298     -0.42088782
##  [35,]   0.087700804  0.5013024811          -0.57735640     -0.08892826
##  [36,]   0.646939302  0.9518166597          -0.81841060      0.47016154
##  [37,]   0.487156874  0.6514738740          -0.17559941     -0.40341627
##  [38,]   0.247483232  0.4011882192          -0.57735640     -0.26364382
##  [39,]   0.167592018  0.6114281692          -0.65770780     -0.38594471
##  [40,]   1.126286585  1.0118852168          -1.30051899      0.85453577
##  [41,]   1.365960227  1.2621708716          -0.17559941      1.30879623
##  [42,]   0.247483232  0.6514738740          -0.73805920     -0.19375759
##  [43,]   1.525742654  1.5324793788          -1.54157319      0.19061664
##  [44,]   0.551069845  0.6014167430          -0.33630220      0.12073042
##  [45,]   1.126286585  0.9718395121          -0.65770780      0.76717799
##  [46,]   0.886612943  0.6214395954          -0.49700500     -0.59560339
##  [47,]   1.525742654  1.1420337573          -0.73805920      1.04672289
##  [48,]   1.286069013  1.3622851335          -1.22016759      0.95936511
##  [49,]   0.726830515  0.8917481025          -0.33630220      1.37868246
##  [50,]   0.934547672  1.5124565264          -0.33630220      0.85453577
##  [51,]   0.678895787  1.2421480192          -1.54157319      2.30467493
##  [52,]   0.247483232  0.9618280859          -1.13981619      1.22143845
##  [53,]   2.532371949  1.7126850502          -0.33630220      0.48763309
##  [54,]   1.126286585  0.7615995621           0.22615759      0.15567353
##  [55,]   0.487156874  0.8717252502          -1.22016759      0.05084419
##  [56,]   1.062373614  0.7515881359          -1.30051899      1.50098335
##  [57,]   1.445851440  0.9718395121          -0.81841060      0.76717799
##  [58,]   1.126286585  1.2021023145          -0.41665360      0.12073042
##  [59,]   1.765416296  1.6426050669          -1.38087039      0.78464955
##  [60,]  -0.503494178 -1.4609370523          -0.65770780     -2.04574255
##  [61,]  -0.391646479 -0.9403428904           2.15459116     -2.06321410
##  [62,]  -0.439581207 -0.6199772522           1.35107717     -1.69631142
##  [63,]  -0.311755265 -0.2395430570          -0.33630220     -1.50412430
##  [64,]   1.925198724  1.0719537740          -1.38087039      0.48763309
##  [65,]  -0.647298363 -0.2795887618           0.70826598     -0.97997762
##  [66,]   0.199548504  0.6214395954           0.06545479      0.85453577
##  [67,]   1.094330099  1.1520451835          -0.81841060      1.20396690
##  [68,]  -0.295777022 -0.0293031070          -0.73805920     -0.96250606
##  [69,]   0.375309174 -0.7301029403           1.51177997     -2.04574255
##  [70,]  -0.711211334 -0.7501257927          -1.78262739      1.58834113
##  [71,]  -1.909579543 -1.0104228737           0.06545479     -0.22870071
##  [72,]   1.046395371  0.8316795454          -1.22016759      0.48763309
##  [73,]  -0.663276606 -0.1894859260          -0.73805920     -0.97997762
##  [74,]   1.605633868  0.8617138240          -1.22016759      0.64487710
##  [75,]   1.733459810  0.1108568597          -1.86297878      0.10325886
##  [76,]  -1.094689161 -0.4597944332          -0.17559941     -0.77031895
##  [77,]  -0.551428907  0.0007311716          -0.97911340     -0.22870071
##  [78,]  -0.918928490 -0.7100800880           0.54756319     -1.11975007
##  [79,]  -0.631320120 -0.1794744999          -0.09524801      2.04260159
##  [80,]   0.854656458  0.5213253335           0.54756319      0.62740554
##  [81,]   0.199548504  0.2309939740          -0.49700500     -0.28111538
##  [82,]  -0.151972837  0.5013024811          -0.81841060      0.31291753
##  [83,]  -0.471537693 -0.4497830070           0.30650899     -0.33353004
##  [84,]  -1.030776190 -0.4397715808           1.99388837      0.05084419
##  [85,]  -0.151972837  0.1809368430          -1.13981619      1.32626779
##  [86,]  -0.151972837 -0.0893716641          -0.49700500     -0.22870071
##  [87,]  -0.823059034 -0.3396573189           0.54756319     -0.05398515
##  [88,]  -0.599363635 -0.4197487284           0.30650899     -0.43835938
##  [89,]  -0.551428907 -0.3396573189           0.94932018     -0.42088782
##  [90,]  -0.151972837 -0.4397715808           0.46721179     -0.36847316
##  [91,]  -1.110667404 -0.5298744165           1.27072578      0.08578730
##  [92,]  -1.350341045 -0.7801600713           1.11002298      0.06831575
##  [93,]  -1.462188745 -0.5699201213           1.75283417      0.05084419
##  [94,]   0.247483232  0.2209825478          -0.89876200      0.69729177
##  [95,]   1.158243070  0.2309939740          -1.54157319     -0.42088782
##  [96,]   0.327374446  0.2410054002          -0.33630220      2.95112251
##  [97,]  -1.110667404 -1.0404571523          -1.78262739     -0.05398515
##  [98,]   0.407265660  0.4712682025          -0.57735640      0.31291753
##  [99,]   1.957155209  1.7226964764          -0.97911340      0.62740554
## [100,]   0.886612943  0.9618280859           0.70826598      2.12995937
## [101,]  -0.104038109  0.1408911382          -0.81841060     -0.33353004
## [102,]  -1.350341045 -0.6700343832          -0.57735640     -0.42088782
## [103,]   0.423243903  0.0808225811          -0.17559941     -0.49077405
## [104,]   0.327374446 -0.3897144499           0.06545479     -0.29858693
## [105,]  -0.151972837 -0.1093945165          -0.33630220     -0.19375759
## [106,]  -0.982841462 -0.1894859260           2.39564536     -0.29858693
## [107,]  -1.030776190  0.0007311716           0.06545479      0.06831575
## [108,]  -1.462188745 -0.2695773356           0.94932018      0.06831575
## [109,]   0.103679047  0.0107425978           0.22615759      0.85453577
## [110,]   0.710852273  0.8917481025          -0.57735640      1.57086958
## [111,]   1.413894955  0.5513596121          -0.97911340      3.47526919
## [112,]   0.407265660  0.2410054002          -0.81841060     -0.64801805
## [113,]  -0.870993762  0.0007311716           1.91353697     -0.94503451
## [114,]   0.295417961 -0.0192916808           0.46721179     -0.26364382
## [115,]   0.423243903  0.2610282525           0.54756319     -0.96250606
## [116,]   0.263461475  0.1408911382           1.27072578      0.73223488
## [117,]  -0.503494178 -0.4297601546          -0.49700500     -0.10639981
## [118,]  -0.471537693  0.0607997287          -0.17559941      0.03337264
## [119,]  -1.062732675 -0.7801600713           0.54756319     -1.32940874
## [120,]  -0.471537693 -0.3897144499           0.06545479      0.48763309
## [121,]   0.966504157  0.7615995621          -0.33630220      0.41774687
## [122,]   1.413894955  3.0542161597           0.86896878      0.48763309
## [123,]  -0.151972837  0.1008454335           0.54756319      0.20808820
## [124,]   0.519113359  0.6214395954          -0.49700500      0.73223488
## [125,]   0.902591186  1.0018737906          -1.22016759      2.30467493
## [126,]   0.487156874  0.6214395954           0.06545479     -0.42088782
## [127,]   0.710852273  1.1220109049           0.22615759      0.31291753
## [128,]  -0.263820537  0.2109711216           1.75283417      0.29544598
## [129,]  -0.120016352  0.4212110716           0.30650899      0.54004776
## [130,]  -0.311755265 -0.2795887618           0.46721179     -0.42088782
## [131,]  -1.254471589 -0.7801600713          -1.22016759     -1.13722163
## [132,]  -1.590014687 -0.8101943499          -0.97911340     -1.32940874
## [133,]  -1.829688329 -0.9403428904          -0.73805920     -1.32940874
## [134,]  -0.950884976 -0.8302172023          -1.54157319     -1.31193719
## [135,]  -0.471537693 -1.4509256261           1.91353697     -0.59560339
## [136,]  -1.078710918 -1.3708342166           2.15459116     -1.13722163
## [137,]  -1.462188745 -1.5610513142           1.35107717     -1.38182341
## [138,]  -0.807080791 -1.4309027737           2.15459116     -0.85767673
## [139,]  -1.078710918 -1.5510398880           1.75283417     -1.24205096
## [140,]   0.039766076 -1.4309027737           1.35107717     -1.36435186
## [141,]  -1.206536860 -1.5310170356           1.35107717     -1.46918119
## [142,]  -1.430232259 -1.5310170356           0.06545479     -1.66136831
## [143,]  -1.190558618 -1.5109941832           1.11002298     -1.81861232
## [144,]  -0.471537693 -1.2306742499           0.86896878     -0.99744918
## [145,]  -1.462188745 -1.2506971023          -0.57735640     -0.78779050
## [146,]  -1.270449832 -1.4809599046           0.54756319     -0.50824560
## [147,]  -2.101318456 -1.6911998547           0.30650899     -1.59148209
## [148,]  -0.950884976 -1.3808456427           0.86896878     -1.27699407
## [149,]  -0.583385392 -1.2707199546           0.70826598     -0.59560339
## [150,]  -1.414254017 -0.6400001046          -0.17559941     -0.78779050
## [151,]  -1.430232259 -0.4597944332          -1.13981619     -0.59560339
## [152,]  -1.302406317 -0.6700343832          -0.97911340     -0.57813183
## [153,]  -0.151972837 -0.7501257927          -0.81841060     -0.05398515
## [154,]  -0.791102548 -1.2006399713           1.99388837      0.48763309
## [155,]  -1.302406317 -1.4509256261           1.35107717     -0.33353004
## [156,]  -0.886972005 -1.4008684951           1.99388837     -0.07145670
## [157,]  -0.791102548 -1.2006399713           0.94932018     -0.05398515
## [158,]  -0.631320120 -1.4509256261           2.15459116     -0.78779050
## [159,]   0.806721729 -0.7200915142           1.35107717      1.93777225
## [160,]   0.487156874 -0.9303314642           1.27072578      1.22143845
## [161,]   0.007809591 -1.1105371356           1.11002298     -0.96250606
## [162,]  -0.743167820 -1.4709484785           1.11002298     -1.38182341
## [163,]  -1.030776190 -1.4309027737           1.91353697     -1.10227851
## [164,]  -1.446210502 -1.3307885118           0.30650899     -1.13722163
## [165,]  -1.510123473 -1.3508113642           0.38686039     -0.97997762
## [166,]  -1.621971173 -1.5610513142           1.27072578     -0.77031895
## [167,]  -0.950884976 -1.1105371356           0.54756319     -0.22870071
## [168,]  -1.302406317 -1.3708342166           0.30650899     -1.08480696
## [169,]  -1.190558618 -1.1906285451           0.22615759     -0.08892826
## [170,]  -0.503494178 -1.0704914308          -0.73805920     -0.84020517
## [171,]  -1.669905901 -1.5410284618           0.30650899     -1.50412430
## [172,]  -1.446210502 -1.5210056094           0.94932018     -1.66136831
## [173,]  -0.982841462 -1.3307885118           0.62791458     -0.61307494
## [174,]  -0.982841462 -1.4208913475           1.27072578     -0.92756295
## [175,]  -0.791102548 -1.2807313808           0.54756319     -0.31605849
## [176,]  -1.126645647 -1.3407999380           0.54756319     -0.42088782
## [177,]  -1.030776190 -1.3508113642           1.35107717     -0.22870071
## [178,]  -0.391646479 -1.2707199546           1.59213137     -0.42088782
##        Color_Intensity         Hue       OD280      Proline
##   [1,]     0.251008784  0.36115849  1.84272147  1.010159388
##   [2,]    -0.292496232  0.40490846  1.11031723  0.962526349
##   [3,]     0.268262912  0.31740852  0.78636920  1.391223700
##   [4,]     1.182731669 -0.42634104  1.18074072  2.328006800
##   [5,]    -0.318377423  0.36115849  0.44833648 -0.037767469
##   [6,]     0.729810822  0.40490846  0.33565890  2.232740722
##   [7,]     0.082781041  0.27365854  1.36384178  1.724654973
##   [8,]    -0.003489596  0.44865844  1.36384178  1.740532653
##   [9,]     0.061213382  0.53615839  0.33565890  0.946648670
##  [10,]     0.932546820  0.22990857  1.32158768  0.946648670
##  [11,]     0.298457635  1.27990794  0.78636920  2.423272878
##  [12,]    -0.025057256  0.92990815  0.29340481  1.692899614
##  [13,]     0.233754657  0.84240820  0.40608239  1.819921051
##  [14,]     0.147484019  1.27990794  0.16664254  1.280079943
##  [15,]     1.053325713  1.06115807  0.54692935  2.540767708
##  [16,]     0.967055075  1.41115786  0.37791299  1.788165692
##  [17,]     0.492566569  0.49240841  0.05396496  1.692899614
##  [18,]     0.665107844  0.75490825 -0.05871261  1.216569224
##  [19,]     1.570949537  1.19240799  0.29340481  2.963113987
##  [20,]     0.018078063  0.01115870  1.05397844  0.311541483
##  [21,]     0.255322316  0.57990836  1.54694284  0.105131647
##  [22,]    -0.240733849  0.31740852  1.27933359  0.073376288
##  [23,]    -0.542681081  0.66740831  1.95539905  0.914893310
##  [24,]    -0.486605166  0.57990836  1.43426526  0.851382592
##  [25,]    -0.663459973  0.71115828  1.70187450  0.311541483
##  [26,]    -0.637578782  0.75490825  0.82862329  0.263908444
##  [27,]    -0.111327893 -0.16384119  0.85679269  1.422979059
##  [28,]    -0.477978102  0.27365854  0.22298133  1.708777293
##  [29,]    -0.240733849  1.27990794  1.11031723  0.533828998
##  [30,]    -0.154463212  0.36115849  1.37792647  0.914893310
##  [31,]     0.276889975  1.01740810  0.13847314  1.708777293
##  [32,]     0.794513800  0.57990836  0.37791299  2.439150558
##  [33,]    -0.525426953  1.19240799  0.36382829  0.771994193
##  [34,]     0.147484019  1.27990794  0.54692935  1.550000497
##  [35,]    -0.370139806  0.62365833  0.36382829  1.105425466
##  [36,]     0.018078063  0.36115849  1.20891011  0.549706678
##  [37,]    -0.197598531  0.57990836  0.23706602  0.422685241
##  [38,]    -0.348572146  0.71115828 -0.14322079  1.137180826
##  [39,]    -0.585816399  0.97365812  0.11030375  0.867260271
##  [40,]     0.018078063 -0.29509111  1.29341829  0.041620929
##  [41,]     0.462371846 -0.03259127  1.08214784  0.152764686
##  [42,]    -0.335631551 -0.20759117  0.54692935  0.914893310
##  [43,]     0.160424615 -0.33884109  1.33567238  1.105425466
##  [44,]    -0.301123296 -0.60134093  0.54692935 -0.212421946
##  [45,]    -0.007803128 -0.33884109  1.03989375  0.438562920
##  [46,]     0.078467509 -0.38259106  1.01172435  1.057792427
##  [47,]    -0.068192574  0.36115849  1.16665602  1.010159388
##  [48,]     0.449431250 -0.20759117  1.01172435  0.756116514
##  [49,]     0.492566569  0.49240841  0.19481193  0.994281709
##  [50,]     1.657220175  0.71115828  0.68777632  1.629388895
##  [51,]     0.923919756  0.71115828  0.42016708  1.280079943
##  [52,]     0.233754657  1.23615797  1.06806314  1.645266575
##  [53,]     0.859216778  0.22990857  0.91313147  1.407101380
##  [54,]     0.535701888  0.75490825  0.44833648  1.994575527
##  [55,]     0.341592953 -0.16384119  0.82862329  0.994281709
##  [56,]     0.514134228  0.09865865  0.58918345  1.184813865
##  [57,]     0.570210143 -0.07634125  0.98355496  0.708483475
##  [58,]     0.406295932  0.49240841  0.32157420  1.661144254
##  [59,]     0.751378481 -0.29509111  0.36382829  1.708777293
##  [60,]    -1.340684477  0.40490846 -1.11506488 -0.720507695
##  [61,]    -0.771298270  1.27990794 -1.32633534 -0.212421946
##  [62,]     0.298457635  0.09865865 -1.43901291 -0.942795210
##  [63,]    -0.542681081  1.19240799 -0.21364428 -0.371198742
##  [64,]    -0.262301509  1.14865802  0.36382829 -1.038061288
##  [65,]    -0.909331290  2.15490741 -0.53759231 -1.244471124
##  [66,]    -0.197598531  1.01740810 -0.43899943 -0.218773018
##  [67,]     0.104348700  0.71115828  0.80045390 -0.777667342
##  [68,]    -0.163090276  0.71115828  1.22299481 -0.752263054
##  [69,]    -0.814433589  0.27365854 -0.96013322  0.009865569
##  [70,]    -0.952466609  1.41115786  0.64552223 -0.091751580
##  [71,]    -0.866195971 -0.22509116 -1.11506488  0.390929881
##  [72,]    -0.723849419  1.76115765  0.77228450 -1.069816648
##  [73,]    -0.568562272  0.09865865  0.23706602 -0.872933420
##  [74,]    -0.736790015  1.54240778  1.25116420  0.756116514
##  [75,]    -0.797179461  0.14240862  0.73003041  0.441738456
##  [76,]    -0.542681081  1.19240799 -0.66435458 -1.012657001
##  [77,]    -0.197598531  1.01740810 -0.18547489 -1.126976294
##  [78,]    -1.038737246  0.01115870 -0.12913610 -0.784018414
##  [79,]    -0.715222356  0.44865844 -0.42491473  0.009865569
##  [80,]    -1.073245501  1.01740810  0.73003041 -0.901513243
##  [81,]    -1.103440224  1.84865760  0.71594572 -1.488987391
##  [82,]    -0.499545762  0.88615818  0.74411511 -0.104453724
##  [83,]    -1.232846180  1.54240778  0.15255784 -0.371198742
##  [84,]    -0.111327893 -0.51384098 -0.84745564 -0.736385375
##  [85,]    -0.866195971 -0.73259085  0.65960693 -0.720507695
##  [86,]    -1.051677842  1.19240799  0.77228450 -0.942795210
##  [87,]    -1.125007884  1.62990773 -0.49533822 -0.799896093
##  [88,]    -1.060304905  1.76115765  0.84270799 -0.587135186
##  [89,]    -0.974034268  0.18615860  0.19481193 -0.212421946
##  [90,]    -1.431268647  0.49240841  0.84270799 -0.387076422
##  [91,]    -1.146575543  0.53615839 -0.48125352 -0.847529132
##  [92,]    -0.628951718  0.40490846  0.05396496 -0.942795210
##  [93,]    -0.866195971  0.01115870 -0.77703216 -0.799896093
##  [94,]    -1.254413840  0.84240820  0.96947026 -1.450880959
##  [95,]    -0.779925334  0.88615818  0.49059057 -1.276226483
##  [96,]    -1.060304905  0.88615818  0.02579557  0.603690789
##  [97,]    -1.103440224 -0.03259127 -0.49533822 -0.387076422
##  [98,]    -0.930898949  1.19240799  0.18072723 -1.012657001
##  [99,]    -0.240733849  0.36115849  0.22298133 -0.275932664
## [100,]    -1.189710862  2.02365749  0.30748951 -1.082518791
## [101,]    -0.758357674  1.36740789  0.49059057 -0.117155868
## [102,]    -1.125007884  0.36115849  0.22298133 -0.587135186
## [103,]    -0.974034268 -0.68884088  1.08214784 -0.980901641
## [104,]    -1.293235627 -0.07634125 -0.24181367 -1.053938968
## [105,]    -0.913644822  0.36115849  1.34975708 -0.237826233
## [106,]    -1.017169587 -0.42634104  0.96947026 -1.371492561
## [107,]    -0.715222356  0.18615860  0.78636920 -0.752263054
## [108,]    -0.758357674 -0.33884109 -0.26998307 -0.822124845
## [109,]    -1.017169587 -0.42634104  0.57509875 -1.381019169
## [110,]    -1.038737246  0.01115870  0.91313147 -0.212421946
## [111,]    -0.930898949 -0.90759075  0.27932011 -0.587135186
## [112,]    -1.319116818 -0.25134114  0.23706602 -1.339737202
## [113,]    -0.542681081  1.19240799 -0.15730549 -0.444236069
## [114,]    -0.853255375  0.62365833 -0.42491473 -0.993603785
## [115,]    -0.930898949 -0.12009122  0.81453860 -1.149205046
## [116,]    -1.362252137  3.29240673  0.36382829 -1.079343255
## [117,]    -1.340684477 -0.03259127  1.01172435 -0.799896093
## [118,]    -1.293235627  0.44865844  0.49059057 -1.276226483
## [119,]    -0.715222356 -1.12634062 -0.69252397 -1.190487013
## [120,]    -1.629691113 -0.12009122  0.61735284 -0.580784114
## [121,]    -0.779925334 -0.68884088  1.09623253 -0.387076422
## [122,]     0.406295932 -0.12009122  1.51877344 -0.895162171
## [123,]    -1.284608563 -0.16384119  0.71594572 -1.212715765
## [124,]    -1.060304905 -0.99509069  0.68777632 -1.165082726
## [125,]    -0.974034268 -0.90759075  1.44834996 -1.165082726
## [126,]    -0.991288395 -0.42634104  0.94130087 -1.171433797
## [127,]    -0.482291634 -1.17009059  0.32157420 -1.253997732
## [128,]    -0.887763630  0.05490867 -0.24181367 -0.891986635
## [129,]    -1.267354435 -0.29509111  0.23706602 -1.285753091
## [130,]    -1.060304905 -0.73259085 -0.05871261 -0.529975539
## [131,]    -0.413275124 -0.86384077 -1.86155382 -0.371198742
## [132,]     0.147484019 -0.95134072 -1.67845276 -0.688752336
## [133,]     0.276889975 -1.30134051 -1.76296094 -0.593486258
## [134,]    -0.025057256 -0.77634083 -1.86155382 -0.466464820
## [135,]     0.169051679 -0.90759075 -1.55169049 -0.307688024
## [136,]     0.880784438 -0.99509069 -1.45309761 -0.164788907
## [137,]    -0.521113421 -0.90759075 -1.88972321 -0.085400508
## [138,]    -0.025057256 -0.60134093 -1.29816594 -0.736385375
## [139,]     0.276889975 -0.64509090 -1.11506488 -0.529975539
## [140,]    -0.059565511 -0.29509111 -0.65026988 -0.498220180
## [141,]    -0.197598531 -0.82009080 -0.42491473 -0.466464820
## [142,]     0.233754657 -1.12634062 -0.19955958  0.105131647
## [143,]    -0.305436828 -0.29509111 -0.77703216 -0.720507695
## [144,]    -0.283869168 -0.20759117 -0.79111685 -0.625241617
## [145,]     1.359586476 -1.34509048 -0.86154034  0.343296842
## [146,]    -0.456410443 -1.56384035 -1.31225064  0.263908444
## [147,]    -0.068192574 -1.65134030 -1.80521503 -1.053938968
## [148,]     1.118028691 -1.82634020 -1.05872609 -0.387076422
## [149,]     1.450170645 -1.78259022 -1.39675882 -0.307688024
## [150,]     1.872896769 -1.69509027 -1.80521503 -0.625241617
## [151,]     1.527814219 -1.60759033 -1.84746912 -0.784018414
## [152,]     2.476791231 -2.08884004 -1.60802927 -0.847529132
## [153,]     0.880784438 -1.52009038 -1.80521503 -1.022183609
## [154,]     2.356012338 -1.73884025 -1.55169049 -0.228299625
## [155,]     1.096461031 -1.65134030 -1.49535170 -0.339443383
## [156,]     1.225866988 -1.56384035 -1.59394458 -0.069522829
## [157,]     1.704669026 -1.69509027 -1.36858943 -0.847529132
## [158,]     1.053325713 -1.25759054 -1.24182715  0.422685241
## [159,]     3.425768243 -1.69509027 -0.91787912 -0.275932664
## [160,]     2.886576759 -1.69509027 -1.17140367 -0.402954102
## [161,]     1.118028691 -1.73884025 -1.45309761 -0.720507695
## [162,]     0.354533549  0.01115870 -1.11506488 -0.212421946
## [163,]     0.225127593 -0.38259106 -0.70660867 -0.561730898
## [164,]     0.095721637 -1.21384056 -1.21365776 -0.228299625
## [165,]     1.950540342 -1.12634062 -1.31225064 -0.418831781
## [166,]     0.673734908 -0.77634083 -1.21365776 -0.720507695
## [167,]     2.425028848 -0.47009101 -1.48126700 -0.164788907
## [168,]     2.243860510 -1.03884067 -1.21365776 -0.196544266
## [169,]     1.553695410 -0.95134072 -1.14323428  0.009865569
## [170,]     1.484678900 -1.25759054 -0.97421791 -0.371198742
## [171,]     0.190619338 -1.30134051 -1.10098018 -0.752263054
## [172,]     2.088572931 -1.69509027 -1.38267412 -0.879284492
## [173,]     2.002302725 -1.47634041 -1.26999655 -0.275932664
## [174,]     1.139596350 -1.38884046 -1.22774246 -0.021889790
## [175,]     0.967055075 -1.12634062 -1.48126700  0.009865569
## [176,]     2.217979318 -1.60759033 -1.48126700  0.279786124
## [177,]     1.829761450 -1.56384035 -1.39675882  0.295663803
## [178,]     1.786626131 -1.52009038 -1.42492821 -0.593486258
## attr(,"scaled:center")
##              Alcohol           Malic_Acid                  Ash 
##           13.0006180            2.3363483            2.3665169 
##         Ash_Alcanity            Magnesium        Total_Phenols 
##           19.4949438           99.7415730            2.2951124 
##           Flavanoids Nonflavanoid_Phenols      Proanthocyanins 
##            2.0292697            0.3618539            1.5908989 
##      Color_Intensity                  Hue                OD280 
##            5.0580899            0.9574494            2.6116854 
##              Proline 
##          746.8932584 
## attr(,"scaled:scale")
##              Alcohol           Malic_Acid                  Ash 
##            0.8118265            1.1171461            0.2743440 
##         Ash_Alcanity            Magnesium        Total_Phenols 
##            3.3395638           14.2824835            0.6258510 
##           Flavanoids Nonflavanoid_Phenols      Proanthocyanins 
##            0.9988587            0.1244533            0.5723589 
##      Color_Intensity                  Hue                OD280 
##            2.3182859            0.2285716            0.7099904 
##              Proline 
##          314.9074743

Paso 4. Optimizar la cantidad de grupos

set.seed(123)

optimizacion <- clusGap(df, FUN=kmeans, nstart=1, K.max = 10)
plot(optimizacion, xlab = "Número de clusters k")

Paso 3. Cantidad de grupos

Normalmente se arranca con 3-4 grupos

grupos <- 9

#Paso 4. Generar los segmentos

segmentos <- kmeans(df, grupos)
segmentos
## K-means clustering with 9 clusters of sizes 26, 6, 17, 25, 14, 31, 20, 15, 24
## 
## Cluster means:
##    Alcohol Malic_Acid      Ash Ash_Alcanity Magnesium Total_Phenols Flavanoids
## 1 12.38692   2.304615 2.223077     20.36538  90.11538      2.359615   2.186154
## 2 14.13667   1.831667 2.411667     16.26667 107.66667      3.255000   3.493333
## 3 13.76235   1.780588 2.540588     17.35882 105.41176      2.832941   2.975882
## 4 12.69760   2.872800 2.416800     21.56400  96.80000      1.911200   1.270800
## 5 13.24000   2.960714 2.393571     18.90000 111.50000      2.156429   1.630714
## 6 12.54903   2.342581 2.327742     20.86452  93.06452      1.892903   1.607419
## 7 12.82650   2.294500 2.322500     19.52500  95.45000      2.083000   1.480500
## 8 12.99267   2.376667 2.458000     19.96667 111.80000      2.274000   1.910667
## 9 13.75125   1.969167 2.348750     16.97500 105.04167      2.794583   2.921667
##   Nonflavanoid_Phenols Proanthocyanins Color_Intensity       Hue    OD280
## 1            0.3480769        1.625000        3.088462 1.0300000 2.766538
## 2            0.2716667        2.216667        7.233333 1.1133333 3.028333
## 3            0.3082353        1.823529        5.916471 1.0952941 3.038235
## 4            0.3940000        1.290000        5.008000 0.8628000 2.220000
## 5            0.3792857        1.642857        5.437857 0.8921429 2.478571
## 6            0.4129032        1.337097        4.676452 0.9022581 2.358065
## 7            0.4345000        1.470500        6.310500 0.8650000 2.187000
## 8            0.3533333        1.668667        5.300667 0.9090667 2.636667
## 9            0.2725000        1.895417        5.168333 1.0575000 3.189167
##     Proline
## 1  371.7308
## 2 1530.3333
## 3 1270.8824
## 4  594.0800
## 5  751.6429
## 6  489.1290
## 7  675.9500
## 8  870.2000
## 9 1057.7083
## 
## Clustering vector:
##   [1] 9 9 3 2 5 2 3 3 9 9 2 3 3 9 2 3 3 9 2 8 5 5 9 9 8 8 3 3 8 9 3 2 9 3 9 8 8
##  [38] 9 9 5 5 9 9 7 8 9 9 9 9 3 9 3 3 3 9 9 9 3 3 6 7 6 4 1 1 7 6 6 5 5 8 1 6 9
##  [75] 8 1 1 6 5 6 1 7 4 6 6 6 6 4 7 4 6 6 6 1 1 8 4 1 7 1 7 4 6 1 7 1 6 6 1 7 4
## [112] 1 4 6 1 1 6 1 1 4 4 6 1 1 1 1 1 6 1 4 4 6 4 4 7 7 5 6 4 4 4 5 6 4 8 8 1 4
## [149] 7 4 6 6 1 7 7 5 6 8 7 4 6 7 4 7 4 6 7 7 5 4 6 6 7 5 5 8 8 4
## 
## Within cluster sum of squares by cluster:
## [1] 49649.923 32441.357 39983.241 26706.994 11995.126 27226.576  8502.233
## [8] 20529.434 63506.369
##  (between_SS / total_SS =  98.4 %)
## 
## Available components:
## 
## [1] "cluster"      "centers"      "totss"        "withinss"     "tot.withinss"
## [6] "betweenss"    "size"         "iter"         "ifault"
summary(segmentos)
##              Length Class  Mode   
## cluster      178    -none- numeric
## centers      117    -none- numeric
## totss          1    -none- numeric
## withinss       9    -none- numeric
## tot.withinss   1    -none- numeric
## betweenss      1    -none- numeric
## size           9    -none- numeric
## iter           1    -none- numeric
## ifault         1    -none- numeric

Paso 5. Asignar el grupo al que pertenece cada observación

asignación <- cbind(cluster = segmentos$cluster, df)
asignación
##     cluster Alcohol Malic_Acid  Ash Ash_Alcanity Magnesium Total_Phenols
## 1         9   14.23       1.71 2.43         15.6       127          2.80
## 2         9   13.20       1.78 2.14         11.2       100          2.65
## 3         3   13.16       2.36 2.67         18.6       101          2.80
## 4         2   14.37       1.95 2.50         16.8       113          3.85
## 5         5   13.24       2.59 2.87         21.0       118          2.80
## 6         2   14.20       1.76 2.45         15.2       112          3.27
## 7         3   14.39       1.87 2.45         14.6        96          2.50
## 8         3   14.06       2.15 2.61         17.6       121          2.60
## 9         9   14.83       1.64 2.17         14.0        97          2.80
## 10        9   13.86       1.35 2.27         16.0        98          2.98
## 11        2   14.10       2.16 2.30         18.0       105          2.95
## 12        3   14.12       1.48 2.32         16.8        95          2.20
## 13        3   13.75       1.73 2.41         16.0        89          2.60
## 14        9   14.75       1.73 2.39         11.4        91          3.10
## 15        2   14.38       1.87 2.38         12.0       102          3.30
## 16        3   13.63       1.81 2.70         17.2       112          2.85
## 17        3   14.30       1.92 2.72         20.0       120          2.80
## 18        9   13.83       1.57 2.62         20.0       115          2.95
## 19        2   14.19       1.59 2.48         16.5       108          3.30
## 20        8   13.64       3.10 2.56         15.2       116          2.70
## 21        5   14.06       1.63 2.28         16.0       126          3.00
## 22        5   12.93       3.80 2.65         18.6       102          2.41
## 23        9   13.71       1.86 2.36         16.6       101          2.61
## 24        9   12.85       1.60 2.52         17.8        95          2.48
## 25        8   13.50       1.81 2.61         20.0        96          2.53
## 26        8   13.05       2.05 3.22         25.0       124          2.63
## 27        3   13.39       1.77 2.62         16.1        93          2.85
## 28        3   13.30       1.72 2.14         17.0        94          2.40
## 29        8   13.87       1.90 2.80         19.4       107          2.95
## 30        9   14.02       1.68 2.21         16.0        96          2.65
## 31        3   13.73       1.50 2.70         22.5       101          3.00
## 32        2   13.58       1.66 2.36         19.1       106          2.86
## 33        9   13.68       1.83 2.36         17.2       104          2.42
## 34        3   13.76       1.53 2.70         19.5       132          2.95
## 35        9   13.51       1.80 2.65         19.0       110          2.35
## 36        8   13.48       1.81 2.41         20.5       100          2.70
## 37        8   13.28       1.64 2.84         15.5       110          2.60
## 38        9   13.05       1.65 2.55         18.0        98          2.45
## 39        9   13.07       1.50 2.10         15.5        98          2.40
## 40        5   14.22       3.99 2.51         13.2       128          3.00
## 41        5   13.56       1.71 2.31         16.2       117          3.15
## 42        9   13.41       3.84 2.12         18.8        90          2.45
## 43        9   13.88       1.89 2.59         15.0       101          3.25
## 44        7   13.24       3.98 2.29         17.5       103          2.64
## 45        8   13.05       1.77 2.10         17.0       107          3.00
## 46        9   14.21       4.04 2.44         18.9       111          2.85
## 47        9   14.38       3.59 2.28         16.0       102          3.25
## 48        9   13.90       1.68 2.12         16.0       101          3.10
## 49        9   14.10       2.02 2.40         18.8       103          2.75
## 50        3   13.94       1.73 2.27         17.4       108          2.88
## 51        9   13.05       1.73 2.04         12.4        92          2.72
## 52        3   13.83       1.65 2.60         17.2        94          2.45
## 53        3   13.82       1.75 2.42         14.0       111          3.88
## 54        3   13.77       1.90 2.68         17.1       115          3.00
## 55        9   13.74       1.67 2.25         16.4       118          2.60
## 56        9   13.56       1.73 2.46         20.5       116          2.96
## 57        9   14.22       1.70 2.30         16.3       118          3.20
## 58        3   13.29       1.97 2.68         16.8       102          3.00
## 59        3   13.72       1.43 2.50         16.7       108          3.40
## 60        6   12.37       0.94 1.36         10.6        88          1.98
## 61        7   12.33       1.10 2.28         16.0       101          2.05
## 62        6   12.64       1.36 2.02         16.8       100          2.02
## 63        4   13.67       1.25 1.92         18.0        94          2.10
## 64        1   12.37       1.13 2.16         19.0        87          3.50
## 65        1   12.17       1.45 2.53         19.0       104          1.89
## 66        7   12.37       1.21 2.56         18.1        98          2.42
## 67        6   13.11       1.01 1.70         15.0        78          2.98
## 68        6   12.37       1.17 1.92         19.6        78          2.11
## 69        5   13.34       0.94 2.36         17.0       110          2.53
## 70        5   12.21       1.19 1.75         16.8       151          1.85
## 71        8   12.29       1.61 2.21         20.4       103          1.10
## 72        1   13.86       1.51 2.67         25.0        86          2.95
## 73        6   13.49       1.66 2.24         24.0        87          1.88
## 74        9   12.99       1.67 2.60         30.0       139          3.30
## 75        8   11.96       1.09 2.30         21.0       101          3.38
## 76        1   11.66       1.88 1.92         16.0        97          1.61
## 77        1   13.03       0.90 1.71         16.0        86          1.95
## 78        6   11.84       2.89 2.23         18.0       112          1.72
## 79        5   12.33       0.99 1.95         14.8       136          1.90
## 80        6   12.70       3.87 2.40         23.0       101          2.83
## 81        1   12.00       0.92 2.00         19.0        86          2.42
## 82        7   12.72       1.81 2.20         18.8        86          2.20
## 83        4   12.08       1.13 2.51         24.0        78          2.00
## 84        6   13.05       3.86 2.32         22.5        85          1.65
## 85        6   11.84       0.89 2.58         18.0        94          2.20
## 86        6   12.67       0.98 2.24         18.0        99          2.20
## 87        6   12.16       1.61 2.31         22.8        90          1.78
## 88        4   11.65       1.67 2.62         26.0        88          1.92
## 89        7   11.64       2.06 2.46         21.6        84          1.95
## 90        4   12.08       1.33 2.30         23.6        70          2.20
## 91        6   12.08       1.83 2.32         18.5        81          1.60
## 92        6   12.00       1.51 2.42         22.0        86          1.45
## 93        6   12.69       1.53 2.26         20.7        80          1.38
## 94        1   12.29       2.83 2.22         18.0        88          2.45
## 95        1   11.62       1.99 2.28         18.0        98          3.02
## 96        8   12.47       1.52 2.20         19.0       162          2.50
## 97        4   11.81       2.12 2.74         21.5       134          1.60
## 98        1   12.29       1.41 1.98         16.0        85          2.55
## 99        7   12.37       1.07 2.10         18.5        88          3.52
## 100       1   12.29       3.17 2.21         18.0        88          2.85
## 101       7   12.08       2.08 1.70         17.5        97          2.23
## 102       4   12.60       1.34 1.90         18.5        88          1.45
## 103       6   12.34       2.45 2.46         21.0        98          2.56
## 104       1   11.82       1.72 1.88         19.5        86          2.50
## 105       7   12.51       1.73 1.98         20.5        85          2.20
## 106       1   12.42       2.55 2.27         22.0        90          1.68
## 107       6   12.25       1.73 2.12         19.0        80          1.65
## 108       6   12.72       1.75 2.28         22.5        84          1.38
## 109       1   12.22       1.29 1.94         19.0        92          2.36
## 110       7   11.61       1.35 2.70         20.0        94          2.74
## 111       4   11.46       3.74 1.82         19.5       107          3.18
## 112       1   12.52       2.43 2.17         21.0        88          2.55
## 113       4   11.76       2.68 2.92         20.0       103          1.75
## 114       6   11.41       0.74 2.50         21.0        88          2.48
## 115       1   12.08       1.39 2.50         22.5        84          2.56
## 116       1   11.03       1.51 2.20         21.5        85          2.46
## 117       6   11.82       1.47 1.99         20.8        86          1.98
## 118       1   12.42       1.61 2.19         22.5       108          2.00
## 119       1   12.77       3.43 1.98         16.0        80          1.63
## 120       4   12.00       3.43 2.00         19.0        87          2.00
## 121       4   11.45       2.40 2.42         20.0        96          2.90
## 122       6   11.56       2.05 3.23         28.5       119          3.18
## 123       1   12.42       4.43 2.73         26.5       102          2.20
## 124       1   13.05       5.80 2.13         21.5        86          2.62
## 125       1   11.87       4.31 2.39         21.0        82          2.86
## 126       1   12.07       2.16 2.17         21.0        85          2.60
## 127       1   12.43       1.53 2.29         21.5        86          2.74
## 128       6   11.79       2.13 2.78         28.5        92          2.13
## 129       1   12.37       1.63 2.30         24.5        88          2.22
## 130       4   12.04       4.30 2.38         22.0        80          2.10
## 131       4   12.86       1.35 2.32         18.0       122          1.51
## 132       6   12.88       2.99 2.40         20.0       104          1.30
## 133       4   12.81       2.31 2.40         24.0        98          1.15
## 134       4   12.70       3.55 2.36         21.5       106          1.70
## 135       7   12.51       1.24 2.25         17.5        85          2.00
## 136       7   12.60       2.46 2.20         18.5        94          1.62
## 137       5   12.25       4.72 2.54         21.0        89          1.38
## 138       6   12.53       5.51 2.64         25.0        96          1.79
## 139       4   13.49       3.59 2.19         19.5        88          1.62
## 140       4   12.84       2.96 2.61         24.0       101          2.32
## 141       4   12.93       2.81 2.70         21.0        96          1.54
## 142       5   13.36       2.56 2.35         20.0        89          1.40
## 143       6   13.52       3.17 2.72         23.5        97          1.55
## 144       4   13.62       4.95 2.35         20.0        92          2.00
## 145       8   12.25       3.88 2.20         18.5       112          1.38
## 146       8   13.16       3.57 2.15         21.0       102          1.50
## 147       1   13.88       5.04 2.23         20.0        80          0.98
## 148       4   12.87       4.61 2.48         21.5        86          1.70
## 149       7   13.32       3.24 2.38         21.5        92          1.93
## 150       4   13.08       3.90 2.36         21.5       113          1.41
## 151       6   13.50       3.12 2.62         24.0       123          1.40
## 152       6   12.79       2.67 2.48         22.0       112          1.48
## 153       1   13.11       1.90 2.75         25.5       116          2.20
## 154       7   13.23       3.30 2.28         18.5        98          1.80
## 155       7   12.58       1.29 2.10         20.0       103          1.48
## 156       5   13.17       5.19 2.32         22.0        93          1.74
## 157       6   13.84       4.12 2.38         19.5        89          1.80
## 158       8   12.45       3.03 2.64         27.0        97          1.90
## 159       7   14.34       1.68 2.70         25.0        98          2.80
## 160       4   13.48       1.67 2.64         22.5        89          2.60
## 161       6   12.36       3.83 2.38         21.0        88          2.30
## 162       7   13.69       3.26 2.54         20.0       107          1.83
## 163       4   12.85       3.27 2.58         22.0       106          1.65
## 164       7   12.96       3.45 2.35         18.5       106          1.39
## 165       4   13.78       2.76 2.30         22.0        90          1.35
## 166       6   13.73       4.36 2.26         22.5        88          1.28
## 167       7   13.45       3.70 2.60         23.0       111          1.70
## 168       7   12.82       3.37 2.30         19.5        88          1.48
## 169       5   13.58       2.58 2.69         24.5       105          1.55
## 170       4   13.40       4.60 2.86         25.0       112          1.98
## 171       6   12.20       3.03 2.32         19.0        96          1.25
## 172       6   12.77       2.39 2.28         19.5        86          1.39
## 173       7   14.16       2.51 2.48         20.0        91          1.68
## 174       5   13.71       5.65 2.45         20.5        95          1.68
## 175       5   13.40       3.91 2.48         23.0       102          1.80
## 176       8   13.27       4.28 2.26         20.0       120          1.59
## 177       8   13.17       2.59 2.37         20.0       120          1.65
## 178       4   14.13       4.10 2.74         24.5        96          2.05
##     Flavanoids Nonflavanoid_Phenols Proanthocyanins Color_Intensity   Hue OD280
## 1         3.06                 0.28            2.29        5.640000 1.040  3.92
## 2         2.76                 0.26            1.28        4.380000 1.050  3.40
## 3         3.24                 0.30            2.81        5.680000 1.030  3.17
## 4         3.49                 0.24            2.18        7.800000 0.860  3.45
## 5         2.69                 0.39            1.82        4.320000 1.040  2.93
## 6         3.39                 0.34            1.97        6.750000 1.050  2.85
## 7         2.52                 0.30            1.98        5.250000 1.020  3.58
## 8         2.51                 0.31            1.25        5.050000 1.060  3.58
## 9         2.98                 0.29            1.98        5.200000 1.080  2.85
## 10        3.15                 0.22            1.85        7.220000 1.010  3.55
## 11        3.32                 0.22            2.38        5.750000 1.250  3.17
## 12        2.43                 0.26            1.57        5.000000 1.170  2.82
## 13        2.76                 0.29            1.81        5.600000 1.150  2.90
## 14        3.69                 0.43            2.81        5.400000 1.250  2.73
## 15        3.64                 0.29            2.96        7.500000 1.200  3.00
## 16        2.91                 0.30            1.46        7.300000 1.280  2.88
## 17        3.14                 0.33            1.97        6.200000 1.070  2.65
## 18        3.40                 0.40            1.72        6.600000 1.130  2.57
## 19        3.93                 0.32            1.86        8.700000 1.230  2.82
## 20        3.03                 0.17            1.66        5.100000 0.960  3.36
## 21        3.17                 0.24            2.10        5.650000 1.090  3.71
## 22        2.41                 0.25            1.98        4.500000 1.030  3.52
## 23        2.88                 0.27            1.69        3.800000 1.110  4.00
## 24        2.37                 0.26            1.46        3.930000 1.090  3.63
## 25        2.61                 0.28            1.66        3.520000 1.120  3.82
## 26        2.68                 0.47            1.92        3.580000 1.130  3.20
## 27        2.94                 0.34            1.45        4.800000 0.920  3.22
## 28        2.19                 0.27            1.35        3.950000 1.020  2.77
## 29        2.97                 0.37            1.76        4.500000 1.250  3.40
## 30        2.33                 0.26            1.98        4.700000 1.040  3.59
## 31        3.25                 0.29            2.38        5.700000 1.190  2.71
## 32        3.19                 0.22            1.95        6.900000 1.090  2.88
## 33        2.69                 0.42            1.97        3.840000 1.230  2.87
## 34        2.74                 0.50            1.35        5.400000 1.250  3.00
## 35        2.53                 0.29            1.54        4.200000 1.100  2.87
## 36        2.98                 0.26            1.86        5.100000 1.040  3.47
## 37        2.68                 0.34            1.36        4.600000 1.090  2.78
## 38        2.43                 0.29            1.44        4.250000 1.120  2.51
## 39        2.64                 0.28            1.37        3.700000 1.180  2.69
## 40        3.04                 0.20            2.08        5.100000 0.890  3.53
## 41        3.29                 0.34            2.34        6.130000 0.950  3.38
## 42        2.68                 0.27            1.48        4.280000 0.910  3.00
## 43        3.56                 0.17            1.70        5.430000 0.880  3.56
## 44        2.63                 0.32            1.66        4.360000 0.820  3.00
## 45        3.00                 0.28            2.03        5.040000 0.880  3.35
## 46        2.65                 0.30            1.25        5.240000 0.870  3.33
## 47        3.17                 0.27            2.19        4.900000 1.040  3.44
## 48        3.39                 0.21            2.14        6.100000 0.910  3.33
## 49        2.92                 0.32            2.38        6.200000 1.070  2.75
## 50        3.54                 0.32            2.08        8.900000 1.120  3.10
## 51        3.27                 0.17            2.91        7.200000 1.120  2.91
## 52        2.99                 0.22            2.29        5.600000 1.240  3.37
## 53        3.74                 0.32            1.87        7.050000 1.010  3.26
## 54        2.79                 0.39            1.68        6.300000 1.130  2.93
## 55        2.90                 0.21            1.62        5.850000 0.920  3.20
## 56        2.78                 0.20            2.45        6.250000 0.980  3.03
## 57        3.00                 0.26            2.03        6.380000 0.940  3.31
## 58        3.23                 0.31            1.66        6.000000 1.070  2.84
## 59        3.67                 0.19            2.04        6.800000 0.890  2.87
## 60        0.57                 0.28            0.42        1.950000 1.050  1.82
## 61        1.09                 0.63            0.41        3.270000 1.250  1.67
## 62        1.41                 0.53            0.62        5.750000 0.980  1.59
## 63        1.79                 0.32            0.73        3.800000 1.230  2.46
## 64        3.10                 0.19            1.87        4.450000 1.220  2.87
## 65        1.75                 0.45            1.03        2.950000 1.450  2.23
## 66        2.65                 0.37            2.08        4.600000 1.190  2.30
## 67        3.18                 0.26            2.28        5.300000 1.120  3.18
## 68        2.00                 0.27            1.04        4.680000 1.120  3.48
## 69        1.30                 0.55            0.42        3.170000 1.020  1.93
## 70        1.28                 0.14            2.50        2.850000 1.280  3.07
## 71        1.02                 0.37            1.46        3.050000 0.906  1.82
## 72        2.86                 0.21            1.87        3.380000 1.360  3.16
## 73        1.84                 0.27            1.03        3.740000 0.980  2.78
## 74        2.89                 0.21            1.96        3.350000 1.310  3.50
## 75        2.14                 0.13            1.65        3.210000 0.990  3.13
## 76        1.57                 0.34            1.15        3.800000 1.230  2.14
## 77        2.03                 0.24            1.46        4.600000 1.190  2.48
## 78        1.32                 0.43            0.95        2.650000 0.960  2.52
## 79        1.85                 0.35            2.76        3.400000 1.060  2.31
## 80        2.55                 0.43            1.95        2.570000 1.190  3.13
## 81        2.26                 0.30            1.43        2.500000 1.380  3.12
## 82        2.53                 0.26            1.77        3.900000 1.160  3.14
## 83        1.58                 0.40            1.40        2.200000 1.310  2.72
## 84        1.59                 0.61            1.62        4.800000 0.840  2.01
## 85        2.21                 0.22            2.35        3.050000 0.790  3.08
## 86        1.94                 0.30            1.46        2.620000 1.230  3.16
## 87        1.69                 0.43            1.56        2.450000 1.330  2.26
## 88        1.61                 0.40            1.34        2.600000 1.360  3.21
## 89        1.69                 0.48            1.35        2.800000 1.000  2.75
## 90        1.59                 0.42            1.38        1.740000 1.070  3.21
## 91        1.50                 0.52            1.64        2.400000 1.080  2.27
## 92        1.25                 0.50            1.63        3.600000 1.050  2.65
## 93        1.46                 0.58            1.62        3.050000 0.960  2.06
## 94        2.25                 0.25            1.99        2.150000 1.150  3.30
## 95        2.26                 0.17            1.35        3.250000 1.160  2.96
## 96        2.27                 0.32            3.28        2.600000 1.160  2.63
## 97        0.99                 0.14            1.56        2.500000 0.950  2.26
## 98        2.50                 0.29            1.77        2.900000 1.230  2.74
## 99        3.75                 0.24            1.95        4.500000 1.040  2.77
## 100       2.99                 0.45            2.81        2.300000 1.420  2.83
## 101       2.17                 0.26            1.40        3.300000 1.270  2.96
## 102       1.36                 0.29            1.35        2.450000 1.040  2.77
## 103       2.11                 0.34            1.31        2.800000 0.800  3.38
## 104       1.64                 0.37            1.42        2.060000 0.940  2.44
## 105       1.92                 0.32            1.48        2.940000 1.040  3.57
## 106       1.84                 0.66            1.42        2.700000 0.860  3.30
## 107       2.03                 0.37            1.63        3.400000 1.000  3.17
## 108       1.76                 0.48            1.63        3.300000 0.880  2.42
## 109       2.04                 0.39            2.08        2.700000 0.860  3.02
## 110       2.92                 0.29            2.49        2.650000 0.960  3.26
## 111       2.58                 0.24            3.58        2.900000 0.750  2.81
## 112       2.27                 0.26            1.22        2.000000 0.900  2.78
## 113       2.03                 0.60            1.05        3.800000 1.230  2.50
## 114       2.01                 0.42            1.44        3.080000 1.100  2.31
## 115       2.29                 0.43            1.04        2.900000 0.930  3.19
## 116       2.17                 0.52            2.01        1.900000 1.710  2.87
## 117       1.60                 0.30            1.53        1.950000 0.950  3.33
## 118       2.09                 0.34            1.61        2.060000 1.060  2.96
## 119       1.25                 0.43            0.83        3.400000 0.700  2.12
## 120       1.64                 0.37            1.87        1.280000 0.930  3.05
## 121       2.79                 0.32            1.83        3.250000 0.800  3.39
## 122       5.08                 0.47            1.87        6.000000 0.930  3.69
## 123       2.13                 0.43            1.71        2.080000 0.920  3.12
## 124       2.65                 0.30            2.01        2.600000 0.730  3.10
## 125       3.03                 0.21            2.91        2.800000 0.750  3.64
## 126       2.65                 0.37            1.35        2.760000 0.860  3.28
## 127       3.15                 0.39            1.77        3.940000 0.690  2.84
## 128       2.24                 0.58            1.76        3.000000 0.970  2.44
## 129       2.45                 0.40            1.90        2.120000 0.890  2.78
## 130       1.75                 0.42            1.35        2.600000 0.790  2.57
## 131       1.25                 0.21            0.94        4.100000 0.760  1.29
## 132       1.22                 0.24            0.83        5.400000 0.740  1.42
## 133       1.09                 0.27            0.83        5.700000 0.660  1.36
## 134       1.20                 0.17            0.84        5.000000 0.780  1.29
## 135       0.58                 0.60            1.25        5.450000 0.750  1.51
## 136       0.66                 0.63            0.94        7.100000 0.730  1.58
## 137       0.47                 0.53            0.80        3.850000 0.750  1.27
## 138       0.60                 0.63            1.10        5.000000 0.820  1.69
## 139       0.48                 0.58            0.88        5.700000 0.810  1.82
## 140       0.60                 0.53            0.81        4.920000 0.890  2.15
## 141       0.50                 0.53            0.75        4.600000 0.770  2.31
## 142       0.50                 0.37            0.64        5.600000 0.700  2.47
## 143       0.52                 0.50            0.55        4.350000 0.890  2.06
## 144       0.80                 0.47            1.02        4.400000 0.910  2.05
## 145       0.78                 0.29            1.14        8.210000 0.650  2.00
## 146       0.55                 0.43            1.30        4.000000 0.600  1.68
## 147       0.34                 0.40            0.68        4.900000 0.580  1.33
## 148       0.65                 0.47            0.86        7.650000 0.540  1.86
## 149       0.76                 0.45            1.25        8.420000 0.550  1.62
## 150       1.39                 0.34            1.14        9.400000 0.570  1.33
## 151       1.57                 0.22            1.25        8.600000 0.590  1.30
## 152       1.36                 0.24            1.26       10.800000 0.480  1.47
## 153       1.28                 0.26            1.56        7.100000 0.610  1.33
## 154       0.83                 0.61            1.87       10.520000 0.560  1.51
## 155       0.58                 0.53            1.40        7.600000 0.580  1.55
## 156       0.63                 0.61            1.55        7.900000 0.600  1.48
## 157       0.83                 0.48            1.56        9.010000 0.570  1.64
## 158       0.58                 0.63            1.14        7.500000 0.670  1.73
## 159       1.31                 0.53            2.70       13.000000 0.570  1.96
## 160       1.10                 0.52            2.29       11.750000 0.570  1.78
## 161       0.92                 0.50            1.04        7.650000 0.560  1.58
## 162       0.56                 0.50            0.80        5.880000 0.960  1.82
## 163       0.60                 0.60            0.96        5.580000 0.870  2.11
## 164       0.70                 0.40            0.94        5.280000 0.680  1.75
## 165       0.68                 0.41            1.03        9.580000 0.700  1.68
## 166       0.47                 0.52            1.15        6.620000 0.780  1.75
## 167       0.92                 0.43            1.46       10.680000 0.850  1.56
## 168       0.66                 0.40            0.97       10.260000 0.720  1.75
## 169       0.84                 0.39            1.54        8.660000 0.740  1.80
## 170       0.96                 0.27            1.11        8.500000 0.670  1.92
## 171       0.49                 0.40            0.73        5.500000 0.660  1.83
## 172       0.51                 0.48            0.64        9.899999 0.570  1.63
## 173       0.70                 0.44            1.24        9.700000 0.620  1.71
## 174       0.61                 0.52            1.06        7.700000 0.640  1.74
## 175       0.75                 0.43            1.41        7.300000 0.700  1.56
## 176       0.69                 0.43            1.35       10.200000 0.590  1.56
## 177       0.68                 0.53            1.46        9.300000 0.600  1.62
## 178       0.76                 0.56            1.35        9.200000 0.610  1.60
##     Proline
## 1      1065
## 2      1050
## 3      1185
## 4      1480
## 5       735
## 6      1450
## 7      1290
## 8      1295
## 9      1045
## 10     1045
## 11     1510
## 12     1280
## 13     1320
## 14     1150
## 15     1547
## 16     1310
## 17     1280
## 18     1130
## 19     1680
## 20      845
## 21      780
## 22      770
## 23     1035
## 24     1015
## 25      845
## 26      830
## 27     1195
## 28     1285
## 29      915
## 30     1035
## 31     1285
## 32     1515
## 33      990
## 34     1235
## 35     1095
## 36      920
## 37      880
## 38     1105
## 39     1020
## 40      760
## 41      795
## 42     1035
## 43     1095
## 44      680
## 45      885
## 46     1080
## 47     1065
## 48      985
## 49     1060
## 50     1260
## 51     1150
## 52     1265
## 53     1190
## 54     1375
## 55     1060
## 56     1120
## 57      970
## 58     1270
## 59     1285
## 60      520
## 61      680
## 62      450
## 63      630
## 64      420
## 65      355
## 66      678
## 67      502
## 68      510
## 69      750
## 70      718
## 71      870
## 72      410
## 73      472
## 74      985
## 75      886
## 76      428
## 77      392
## 78      500
## 79      750
## 80      463
## 81      278
## 82      714
## 83      630
## 84      515
## 85      520
## 86      450
## 87      495
## 88      562
## 89      680
## 90      625
## 91      480
## 92      450
## 93      495
## 94      290
## 95      345
## 96      937
## 97      625
## 98      428
## 99      660
## 100     406
## 101     710
## 102     562
## 103     438
## 104     415
## 105     672
## 106     315
## 107     510
## 108     488
## 109     312
## 110     680
## 111     562
## 112     325
## 113     607
## 114     434
## 115     385
## 116     407
## 117     495
## 118     345
## 119     372
## 120     564
## 121     625
## 122     465
## 123     365
## 124     380
## 125     380
## 126     378
## 127     352
## 128     466
## 129     342
## 130     580
## 131     630
## 132     530
## 133     560
## 134     600
## 135     650
## 136     695
## 137     720
## 138     515
## 139     580
## 140     590
## 141     600
## 142     780
## 143     520
## 144     550
## 145     855
## 146     830
## 147     415
## 148     625
## 149     650
## 150     550
## 151     500
## 152     480
## 153     425
## 154     675
## 155     640
## 156     725
## 157     480
## 158     880
## 159     660
## 160     620
## 161     520
## 162     680
## 163     570
## 164     675
## 165     615
## 166     520
## 167     695
## 168     685
## 169     750
## 170     630
## 171     510
## 172     470
## 173     660
## 174     740
## 175     750
## 176     835
## 177     840
## 178     560
asignación$cluster <- as.factor(asignación$cluster)
summary(asignación)
##     cluster      Alcohol        Malic_Acid         Ash         Ash_Alcanity  
##  6      :31   Min.   :11.03   Min.   :0.740   Min.   :1.360   Min.   :10.60  
##  1      :26   1st Qu.:12.36   1st Qu.:1.603   1st Qu.:2.210   1st Qu.:17.20  
##  4      :25   Median :13.05   Median :1.865   Median :2.360   Median :19.50  
##  9      :24   Mean   :13.00   Mean   :2.336   Mean   :2.367   Mean   :19.49  
##  7      :20   3rd Qu.:13.68   3rd Qu.:3.083   3rd Qu.:2.558   3rd Qu.:21.50  
##  3      :17   Max.   :14.83   Max.   :5.800   Max.   :3.230   Max.   :30.00  
##  (Other):35                                                                  
##    Magnesium      Total_Phenols     Flavanoids    Nonflavanoid_Phenols
##  Min.   : 70.00   Min.   :0.980   Min.   :0.340   Min.   :0.1300      
##  1st Qu.: 88.00   1st Qu.:1.742   1st Qu.:1.205   1st Qu.:0.2700      
##  Median : 98.00   Median :2.355   Median :2.135   Median :0.3400      
##  Mean   : 99.74   Mean   :2.295   Mean   :2.029   Mean   :0.3619      
##  3rd Qu.:107.00   3rd Qu.:2.800   3rd Qu.:2.875   3rd Qu.:0.4375      
##  Max.   :162.00   Max.   :3.880   Max.   :5.080   Max.   :0.6600      
##                                                                       
##  Proanthocyanins Color_Intensity       Hue             OD280      
##  Min.   :0.410   Min.   : 1.280   Min.   :0.4800   Min.   :1.270  
##  1st Qu.:1.250   1st Qu.: 3.220   1st Qu.:0.7825   1st Qu.:1.938  
##  Median :1.555   Median : 4.690   Median :0.9650   Median :2.780  
##  Mean   :1.591   Mean   : 5.058   Mean   :0.9574   Mean   :2.612  
##  3rd Qu.:1.950   3rd Qu.: 6.200   3rd Qu.:1.1200   3rd Qu.:3.170  
##  Max.   :3.580   Max.   :13.000   Max.   :1.7100   Max.   :4.000  
##                                                                   
##     Proline      
##  Min.   : 278.0  
##  1st Qu.: 500.5  
##  Median : 673.5  
##  Mean   : 746.9  
##  3rd Qu.: 985.0  
##  Max.   :1680.0  
## 

Paso 6. Graficar los clusters

fviz_cluster(segmentos, data = df)

La cantidad óptima de grupos corresponde al punto más alto de la siguiente gráfica:

Conclusión

La segmentación o clusters es un algoritmo útil para las empresas que desean clasificar a sus clientes y dirigir campañas de marketing más enfocadas y especializadas.
LS0tDQp0aXRsZTogIldpbmUiDQphdXRob3I6ICJFbWlsaW8gTWFydMOtbmV6IC0gQTAxMTc3NzMwIg0KZGF0ZTogIjIwMjQtMDMtMDIiDQpvdXRwdXQ6DQogIGh0bWxfZG9jdW1lbnQ6DQogICAgdG9jOiB5ZXMNCiAgICB0b2NfZmxvYXQ6IHllcw0KICAgIGNvZGVfZG93bmxvYWQ6IHllcw0KICAgIHRoZW1lOiBjZXJ1bGVhbg0KICAgIGhpZ2hsaWdodDogcHlnbWVudHMNCi0tLQ0KIVtdKEM6XFxVc2Vyc1xcbWVtaWxcXE9uZURyaXZlXFxEZXNrdG9wXFxhYVRlY0RlTW9udGVycmV5XFw2dG8gU2VtZXN0cmVcXGdpcGh5ICgxKS5naWYpDQoNCmBgYHtyIHNldHVwLCBpbmNsdWRlPUZBTFNFfQ0Ka25pdHI6Om9wdHNfY2h1bmskc2V0KGVjaG8gPSBUUlVFKQ0KYGBgDQoNCg0KIyBDb250ZXh0bw0KDQoNCiMgUGFzbyAxLiBJbnN0YWxhciBwYXF1ZXRlcyB5IGxsYW1hciBsaWJyZXLDrWFzDQoNCmBgYHtyIH0NCiNpbnN0YWxsLnBhY2thZ2VzKCJjbHVzdGVyIikNCmxpYnJhcnkoY2x1c3RlcikNCiNpbnN0YWxsLnBhY2thZ2VzKCJnZ3Bsb3QyIikNCmxpYnJhcnkoZ2dwbG90MikNCiNpbnN0YWxsLnBhY2thZ2VzKCJkYXRhLnRhYmxlIikNCmxpYnJhcnkoZGF0YS50YWJsZSkNCiNpbnN0YWxsLnBhY2thZ2VzKCJmYWN0b2V4dHJhIikNCmxpYnJhcnkoZmFjdG9leHRyYSkNCmBgYA0KDQoNCiMgUGFzbyAyLiBPYnRlbmVyIGxvcyBkYXRvcw0KDQpgYGB7ciB9DQpsaWJyYXJ5KHJlYWRyKQ0KZGYgPC0gcmVhZF9jc3YoIkM6XFxVc2Vyc1xcbWVtaWxcXE9uZURyaXZlXFxEZXNrdG9wXFxhYVRlY0RlTW9udGVycmV5XFw2dG8gU2VtZXN0cmVcXHdpbmUuY3N2IikNCnN0cihkZikNCmBgYA0KDQojIFBhc28gMy4gRXNjYWxhciBsYXMgdmFyaWFibGVzDQpgYGB7ciB9DQpzY2FsZShkZikNCmBgYA0KDQojIFBhc28gNC4gT3B0aW1pemFyIGxhIGNhbnRpZGFkIGRlIGdydXBvcw0KDQpgYGB7ciB9DQpzZXQuc2VlZCgxMjMpDQoNCm9wdGltaXphY2lvbiA8LSBjbHVzR2FwKGRmLCBGVU49a21lYW5zLCBuc3RhcnQ9MSwgSy5tYXggPSAxMCkNCnBsb3Qob3B0aW1pemFjaW9uLCB4bGFiID0gIk7Dum1lcm8gZGUgY2x1c3RlcnMgayIpDQpgYGANCg0KIyBQYXNvIDMuIENhbnRpZGFkIGRlIGdydXBvcw0KDQpOb3JtYWxtZW50ZSBzZSBhcnJhbmNhIGNvbiAzLTQgZ3J1cG9zDQpgYGB7ciB9DQpncnVwb3MgPC0gOQ0KYGBgDQoNCg0KI1Bhc28gNC4gR2VuZXJhciBsb3Mgc2VnbWVudG9zDQoNCmBgYHtyIH0NCnNlZ21lbnRvcyA8LSBrbWVhbnMoZGYsIGdydXBvcykNCnNlZ21lbnRvcw0Kc3VtbWFyeShzZWdtZW50b3MpDQpgYGANCg0KIyBQYXNvIDUuIEFzaWduYXIgZWwgZ3J1cG8gYWwgcXVlIHBlcnRlbmVjZSBjYWRhIG9ic2VydmFjacOzbg0KDQpgYGB7ciB9DQphc2lnbmFjacOzbiA8LSBjYmluZChjbHVzdGVyID0gc2VnbWVudG9zJGNsdXN0ZXIsIGRmKQ0KYXNpZ25hY2nDs24NCg0KYXNpZ25hY2nDs24kY2x1c3RlciA8LSBhcy5mYWN0b3IoYXNpZ25hY2nDs24kY2x1c3RlcikNCnN1bW1hcnkoYXNpZ25hY2nDs24pDQpgYGANCg0KIyBQYXNvIDYuIEdyYWZpY2FyIGxvcyBjbHVzdGVycw0KDQpgYGB7ciB9DQpmdml6X2NsdXN0ZXIoc2VnbWVudG9zLCBkYXRhID0gZGYpDQpgYGANCg0KDQpMYSBjYW50aWRhZCDDs3B0aW1hIGRlIGdydXBvcyBjb3JyZXNwb25kZSBhbCBwdW50byBtw6FzIGFsdG8gZGUgbGEgc2lndWllbnRlIGdyw6FmaWNhOg0KDQpgYGB7ciB9DQoNCmBgYA0KDQojIENvbmNsdXNpw7NuDQoNCjxkaXYgc3R5bGU9InRleHQtYWxpZ246IGp1c3RpZnkiPg0KTGEgKipzZWdtZW50YWNpw7NuKiogbyAqY2x1c3RlcnMqIGVzIHVuIGFsZ29yaXRtbyDDunRpbCBwYXJhIGxhcyBlbXByZXNhcyBxdWUgZGVzZWFuIGNsYXNpZmljYXIgYSBzdXMgY2xpZW50ZXMgeSBkaXJpZ2lyIGNhbXBhw7FhcyBkZSBtYXJrZXRpbmcgbcOhcyBlbmZvY2FkYXMgeSBlc3BlY2lhbGl6YWRhcy4NCjxkaXYvPg0K