{"id":304144,"date":"2020-05-24T15:00:21","date_gmt":"2020-05-24T15:00:21","guid":{"rendered":"http:\/\/savepearlharbor.com\/?p=304144"},"modified":"-0001-11-30T00:00:00","modified_gmt":"-0001-11-29T21:00:00","slug":"","status":"publish","type":"post","link":"https:\/\/savepearlharbor.com\/?p=304144","title":{"rendered":"\u041f\u0440\u043e\u0441\u0442\u043e\u0439 \u043f\u0440\u0438\u043c\u0435\u0440 \u043a\u043b\u0430\u0441\u0442\u0435\u0440\u043d\u043e\u0433\u043e \u0430\u043d\u0430\u043b\u0438\u0437\u0430 \u0430\u043b\u043a\u043e\u0433\u043e\u043b\u044c\u043d\u044b\u0445 \u043f\u0440\u0435\u0434\u043f\u043e\u0447\u0442\u0435\u043d\u0438\u0439 \u043f\u043e \u0441\u0442\u0440\u0430\u043d\u0430\u043c \u043d\u0430 R"},"content":{"rendered":"\n<div class=\"post__text post__text-html post__text_v1\" id=\"post-content-body\" data-io-article-url=\"https:\/\/habr.com\/ru\/post\/503546\/\">\n<p>\u041f\u0440\u0438\u0432\u0435\u0442, \u0425\u0430\u0431\u0440! \u0421\u0435\u0433\u043e\u0434\u043d\u044f \u0445\u043e\u0447\u0443 \u043f\u043e\u0434\u0435\u043b\u0438\u0442\u044c\u0441\u044f \u043d\u0435\u0431\u043e\u043b\u044c\u0448\u0438\u043c \u043f\u0440\u0438\u043c\u0435\u0440\u043e\u043c \u0442\u043e\u0433\u043e, \u043a\u0430\u043a \u043c\u043e\u0436\u043d\u043e \u043f\u0440\u043e\u0432\u043e\u0434\u0438\u0442\u044c \u043a\u043b\u0430\u0441\u0442\u0435\u0440\u043d\u044b\u0439 \u0430\u043d\u0430\u043b\u0438\u0437. \u0412 \u044d\u0442\u043e\u043c \u043f\u0440\u0438\u043c\u0435\u0440\u0435 \u0447\u0438\u0442\u0430\u0442\u0435\u043b\u044c \u043d\u0435 \u043d\u0430\u0439\u0434\u0435\u0442 \u043d\u0435\u0439\u0440\u043e\u043d\u043d\u044b\u0445 \u0441\u0435\u0442\u0435\u0439 \u0438 \u043f\u0440\u043e\u0447\u0438\u0445 \u043c\u043e\u0434\u043d\u044b\u0445 \u043d\u0430\u043f\u0440\u0430\u0432\u043b\u0435\u043d\u0438\u0439. \u0414\u0430\u043d\u043d\u044b\u0439 \u043f\u0440\u0438\u043c\u0435\u0440 \u043c\u043e\u0436\u0435\u0442 \u0441\u043b\u0443\u0436\u0438\u0442\u044c \u0442\u043e\u0447\u043a\u043e\u0439 \u043e\u0442\u0441\u0447\u0435\u0442\u0430 \u0434\u043b\u044f \u0442\u043e\u0433\u043e, \u0447\u0442\u043e\u0431\u044b \u0441\u0434\u0435\u043b\u0430\u0442\u044c \u043d\u0435\u0431\u043e\u043b\u044c\u0448\u043e\u0439 \u0438 \u043f\u043e\u043b\u043d\u044b\u0439 \u043a\u043b\u0430\u0441\u0442\u0435\u0440\u043d\u044b\u0439 \u0430\u043d\u0430\u043b\u0438\u0437 \u0434\u043b\u044f \u0434\u0440\u0443\u0433\u0438\u0445 \u0434\u0430\u043d\u043d\u044b\u0445. \u0412\u0441\u0435\u043c \u0437\u0430\u0438\u043d\u0442\u0435\u0440\u0435\u0441\u043e\u0432\u0430\u043d\u043d\u044b\u043c \u2014 \u0434\u043e\u0431\u0440\u043e \u043f\u043e\u0436\u0430\u043b\u043e\u0432\u0430\u0442\u044c \u043f\u043e\u0434 \u043a\u0430\u0442.<\/p>\n<p><a name=\"habracut\"><\/a>  <\/p>\n<p>\u0421\u0440\u0430\u0437\u0443 \u043e\u0433\u043e\u0432\u043e\u0440\u044e\u0441\u044c, \u044d\u0442\u0430 \u0441\u0442\u0430\u0442\u044c\u044f \u043d\u0438 \u0432 \u043a\u043e\u0435\u043c \u0441\u043b\u0443\u0447\u0430\u0435 \u043d\u0435 \u043f\u0440\u0435\u0442\u0435\u043d\u0434\u0443\u0435\u0442 \u043d\u0430 \u0430\u043a\u0430\u0434\u0435\u043c\u0438\u0447\u0435\u0441\u043a\u0443\u044e \u043f\u043e\u043b\u043d\u043e\u0442\u0443, \u0443\u043d\u0438\u043a\u0430\u043b\u044c\u043d\u043e\u0441\u0442\u044c \u043f\u043e\u043b\u0443\u0447\u0435\u043d\u043d\u044b\u0445 \u0440\u0435\u0437\u0443\u043b\u044c\u0442\u0430\u0442\u043e\u0432 \u0438\u043b\u0438 \u043f\u043e\u043b\u043d\u043e\u0442\u0443 \u043e\u0441\u0432\u0435\u0449\u0435\u043d\u0438\u044f \u0432\u043e\u043f\u0440\u043e\u0441\u0430. \u0421\u0442\u0430\u0442\u044c\u044f \u043f\u0440\u0438\u0437\u0432\u0430\u043d\u0430 \u043f\u0440\u043e\u0434\u0435\u043c\u043e\u043d\u0441\u0442\u0440\u0438\u0440\u043e\u0432\u0430\u0442\u044c \u043e\u0441\u043d\u043e\u0432\u043d\u044b\u0435 \u0448\u0430\u0433\u0438 \u043a\u043b\u0430\u0441\u0441\u0438\u0447\u0435\u0441\u043a\u043e\u0433\u043e \u043a\u043b\u0430\u0441\u0442\u0435\u0440\u043d\u043e\u0433\u043e \u0430\u043d\u0430\u043b\u0438\u0437\u0430, \u043a\u043e\u0442\u043e\u0440\u044b\u0435 \u043c\u043e\u0433\u0443\u0442 \u0431\u044b\u0442\u044c \u0438\u0441\u043f\u043e\u043b\u044c\u0437\u043e\u0432\u0430\u043d\u044b \u0434\u043b\u044f \u043f\u0440\u043e\u0441\u0442\u043e\u0433\u043e \u0438 \u043e\u0441\u043c\u044b\u0441\u043b\u0435\u043d\u043d\u043e\u0433\u043e (\u0432\u043e\u0437\u043c\u043e\u0436\u043d\u043e, \u043f\u0440\u0435\u0434\u0432\u0430\u0440\u044f\u044e\u0449\u0435\u0433\u043e \u0431\u043e\u043b\u0435\u0435 \u0434\u0435\u0442\u0430\u043b\u044c\u043d\u043e\u0435) \u0438\u0441\u0441\u043b\u0435\u0434\u043e\u0432\u0430\u043d\u0438\u044f. \u041b\u044e\u0431\u044b\u0435 \u0438\u0441\u043f\u0440\u0430\u0432\u043b\u0435\u043d\u0438\u044f, \u0437\u0430\u043c\u0435\u0447\u0430\u043d\u0438\u044f \u0438 \u0434\u043e\u043f\u043e\u043b\u043d\u0435\u043d\u0438\u044f \u043f\u043e \u0441\u0443\u0449\u0435\u0441\u0442\u0432\u0443 \u043f\u0440\u0438\u0432\u0435\u0442\u0441\u0442\u0432\u0443\u044e\u0442\u0441\u044f.<\/p>\n<p>  <\/p>\n<p>\u0414\u0430\u043d\u043d\u044b\u0435 \u043f\u0440\u0435\u0434\u0441\u0442\u0430\u0432\u043b\u044f\u044e\u0442 \u0441\u043e\u0431\u043e\u0439 \u0432\u044b\u0431\u043e\u0440\u043a\u0443 \u043f\u043e\u0442\u0440\u0435\u0431\u043b\u0435\u043d\u0438\u044f \u0430\u043b\u043a\u043e\u0433\u043e\u043b\u044f \u043f\u043e \u0441\u0442\u0440\u0430\u043d\u0430\u043c \u043d\u0430 \u0434\u0443\u0448\u0443 \u043d\u0430\u0441\u0435\u043b\u0435\u043d\u0438\u044f \u043f\u043e \u0442\u0438\u043f\u0443 \u0430\u043b\u043a\u043e\u0433\u043e\u043b\u044c\u043d\u044b\u0445 \u043d\u0430\u043f\u0438\u0442\u043a\u043e\u0432 (\u043f\u0438\u0432\u043e, \u0432\u0438\u043d\u043e, \u0441\u043f\u0438\u0440\u0442\u043d\u044b\u0435 \u043d\u0430\u043f\u0438\u0442\u043a\u0438 \u0438 \u0434\u0440.) \u0437\u0430 2010 \u0433\u043e\u0434 \u0432 \u043f\u0440\u043e\u0446\u0435\u043d\u0442\u0430\u0445 \u043e\u0442 \u043f\u043e\u0442\u0440\u0435\u0431\u043b\u0435\u043d\u0438\u044f \u0430\u043b\u043a\u043e\u0433\u043e\u043b\u044f \u043d\u0430 \u0434\u0443\u0448\u0443 \u043d\u0430\u0441\u0435\u043b\u0435\u043d\u0438\u044f. \u0422\u0430\u043a\u0436\u0435 \u0434\u0430\u043d\u043d\u044b\u0435 \u0441\u043e\u0434\u0435\u0440\u0436\u0430\u0442: \u0441\u0440\u0435\u0434\u043d\u0435\u0435 \u0441\u0443\u0442\u043e\u0447\u043d\u043e\u0435 \u043f\u043e\u0442\u0440\u0435\u0431\u043b\u0435\u043d\u0438\u0435 \u0430\u043b\u043a\u043e\u0433\u043e\u043b\u044f \u043d\u0430 \u0434\u0443\u0448\u0443 \u043d\u0430\u0441\u0435\u043b\u0435\u043d\u0438\u044f \u0432 \u0433\u0440\u0430\u043c\u043c\u0430\u0445 \u0447\u0438\u0441\u0442\u043e\u0433\u043e \u0430\u043b\u043a\u043e\u0433\u043e\u043b\u044f \u0438 \u0432\u0441\u0451 (\u0437\u0430\u0440\u0435\u0433\u0438\u0441\u0442\u0440\u0438\u0440\u043e\u0432\u0430\u043d\u043e + \u043d\u0435\u0443\u0447\u0442\u0435\u043d\u043d\u043e\u0435) \u043f\u043e\u0442\u0440\u0435\u0431\u043b\u0435\u043d\u0438\u0435 \u0430\u043b\u043a\u043e\u0433\u043e\u043b\u044f \u043d\u0430 \u0434\u0443\u0448\u0443 \u043d\u0430\u0441\u0435\u043b\u0435\u043d\u0438\u044f (\u0442\u043e\u043b\u044c\u043a\u043e \u043f\u044c\u044e\u0449\u0438\u0435 \u0432 \u043b\u0438\u0442\u0440\u0430\u0445 \u0447\u0438\u0441\u0442\u043e\u0433\u043e \u0430\u043b\u043a\u043e\u0433\u043e\u043b\u044f).<\/p>\n<p>  <\/p>\n<p>\u0412 \u0442\u043e \u0436\u0435 \u0432\u0440\u0435\u043c\u044f \u043a\u0430\u0436\u0434\u0430\u044f \u0441\u0442\u0440\u0430\u043d\u0430 \u0443\u0441\u043b\u043e\u0432\u043d\u043e \u043e\u0442\u043d\u043e\u0441\u0438\u0442\u0441\u044f \u043a \u043e\u0434\u043d\u043e\u0439 \u0438\u0437 \u0433\u0435\u043e\u0433\u0440\u0430\u0444\u0438\u0447\u0435\u0441\u043a\u0438\u0445 \u0433\u0440\u0443\u043f\u043f: \u0432\u043e\u0441\u0442\u043e\u043a, \u0446\u0435\u043d\u0442\u0440 \u0438 \u0437\u0430\u043f\u0430\u0434. \u0420\u0430\u0437\u0434\u0435\u043b\u0435\u043d\u0438\u0435 \u0432\u0435\u0441\u044c\u043c\u0430 \u0443\u0441\u043b\u043e\u0432\u043d\u043e\u0435 \u0438 \u043e\u0447\u0435\u043d\u044c \u0441\u043f\u043e\u0440\u043d\u043e\u0435 \u043f\u043e \u0440\u0430\u0437\u043d\u044b\u043c \u043f\u0440\u0438\u0447\u0438\u043d\u0430\u043c, \u043d\u043e \u0431\u0443\u0434\u0435\u043c \u043e\u0442\u0442\u0430\u043b\u043a\u0438\u0432\u0430\u0442\u044c\u0441\u044f \u043e\u0442 \u0442\u043e\u0433\u043e, \u0447\u0442\u043e \u0435\u0441\u0442\u044c. \u0418\u0441\u0442\u043e\u0447\u043d\u0438\u043a \u0434\u0430\u043d\u043d\u044b\u0445 \u2014 Global status report on alcohol and health 2014, \u0421. 289-364<\/p>\n<p>  <\/p>\n<p><img decoding=\"async\" src=\"https:\/\/habrastorage.org\/webt\/2f\/ah\/kb\/2fahkbf1ezu9voc5xxhk9gv34ds.png\"><br \/>  (\u0420\u0430\u0441\u043a\u0440\u0430\u0448\u0438\u0432\u0430\u043b \u0432\u0440\u0443\u0447\u043d\u0443\u044e, \u043c\u043e\u0433\u0443\u0442 \u0431\u044b\u0442\u044c \u043f\u043e\u0433\u0440\u0435\u0448\u043d\u043e\u0441\u0442\u0438, \u043d\u043e \u043e\u0431\u0449\u0430\u044f \u043c\u044b\u0441\u043b\u044c, \u0434\u0443\u043c\u0430\u044e, \u043f\u043e\u043d\u044f\u0442\u043d\u0430)<\/p>\n<p>  <\/p>\n<h2 id=\"predvaritelnyy-analiz\">\u041f\u0440\u0435\u0434\u0432\u0430\u0440\u0438\u0442\u0435\u043b\u044c\u043d\u044b\u0439 \u0430\u043d\u0430\u043b\u0438\u0437<\/h2>\n<p>  <\/p>\n<p>\u041f\u043e\u0434\u043a\u043b\u044e\u0447\u0438\u043c \u0438\u0441\u043f\u043e\u043b\u044c\u0437\u0443\u0435\u043c\u044b\u0435 \u0431\u0438\u0431\u043b\u0438\u043e\u0442\u0435\u043a\u0438.<\/p>\n<p>  <\/p>\n<pre><code class=\"plaintext\">library(rgl) library(heplots) library(MVN) library(klaR) library('Morpho') library(caret) library(mclust) library(ggplot2) library(GGally) library(plyr) library(psych) library(GPArotation) library(ggpubr)<\/code><\/pre>\n<p>  <\/p>\n<p>\u0417\u0430\u0433\u0440\u0443\u0437\u0438\u043c \u0434\u0430\u043d\u043d\u044b\u0435 \u0438 \u043f\u043e\u0441\u043c\u043e\u0442\u0440\u0438\u043c, \u043a\u0430\u043a \u043e\u043d\u0438 \u0432\u044b\u0433\u043b\u044f\u0434\u044f\u0442.<\/p>\n<p>  <\/p>\n<pre><code class=\"plaintext\"># \u0417\u0430\u0433\u0440\u0443\u0436\u0430\u0435\u043c \u0434\u0430\u043d\u043d\u044b\u0435 \u0438\u0437 \u0444\u0430\u0439\u043b\u0430 data &lt;- read.table(&quot;alcohol_data.csv&quot;, header=TRUE,  sep=&quot;,&quot;) # \u0414\u0435\u043b\u0430\u0435\u043c \u0438\u0437 \u043f\u0435\u0440\u0432\u043e\u0433\u043e \u0441\u0442\u043e\u043b\u0431\u0446\u0430 \u043d\u0430\u0437\u0432\u0430\u043d\u0438\u044f \u0441\u0442\u0440\u043e\u043a rownames(data) &lt;- make.names(data[,1], unique = TRUE) # \u0417\u0430\u043f\u0438\u0441\u044b\u0432\u0430\u0435\u043c \u0434\u0430\u043d\u043d\u044b\u0435 \u0438 \u0443\u0434\u0430\u043b\u044f\u0435\u043c \u043f\u0440\u043e\u043f\u0443\u0441\u043a\u0430, \u0435\u0441\u043b\u0438 \u043e\u043d\u0438 \u0435\u0441\u0442\u044c data &lt;- data[,-1] data &lt;- na.omit(data) # \u0412\u044b\u0432\u043e\u0434\u0438\u043c \u043d\u0435\u0441\u043a\u043e\u043b\u044c\u043a\u043e \u043f\u0435\u0440\u0432\u044b\u0445 \u0441\u0442\u0440\u043e\u0447\u0435\u043a head(data)<\/code><\/pre>\n<p>  <\/p>\n<div class=\"scrollable-table\">\n<table>\n<thead>\n<tr>\n<th><\/th>\n<th>Beer<\/th>\n<th>Wine<\/th>\n<th>Spirit<\/th>\n<th>Other<\/th>\n<th>Total<\/th>\n<th>Average_daily<\/th>\n<th>Group<\/th>\n<\/tr>\n<\/thead>\n<tbody>\n<tr>\n<td>Albania<\/td>\n<td>31.8<\/td>\n<td>19.8<\/td>\n<td>48.4<\/td>\n<td>0.0<\/td>\n<td>13.0<\/td>\n<td>27.5<\/td>\n<td>center<\/td>\n<\/tr>\n<tr>\n<td>Armenia<\/td>\n<td>9.7<\/td>\n<td>5.3<\/td>\n<td>84.9<\/td>\n<td>0.0<\/td>\n<td>8.3<\/td>\n<td>17.9<\/td>\n<td>east<\/td>\n<\/tr>\n<tr>\n<td>Austria<\/td>\n<td>50.4<\/td>\n<td>35.5<\/td>\n<td>14.0<\/td>\n<td>0.0<\/td>\n<td>13.8<\/td>\n<td>29.6<\/td>\n<td>center<\/td>\n<\/tr>\n<tr>\n<td>Azerbaijan<\/td>\n<td>28.7<\/td>\n<td>7.6<\/td>\n<td>63.3<\/td>\n<td>0.0<\/td>\n<td>5.2<\/td>\n<td>11.1<\/td>\n<td>east<\/td>\n<\/tr>\n<tr>\n<td>Belarus<\/td>\n<td>17.3<\/td>\n<td>5.2<\/td>\n<td>46.6<\/td>\n<td>30.9<\/td>\n<td>22.1<\/td>\n<td>48.0<\/td>\n<td>east<\/td>\n<\/tr>\n<tr>\n<td>Belgium<\/td>\n<td>49.2<\/td>\n<td>36.3<\/td>\n<td>14.4<\/td>\n<td>0.1<\/td>\n<td>12.8<\/td>\n<td>27.7<\/td>\n<td>center<\/td>\n<\/tr>\n<tr>\n<td>&#8230;<\/td>\n<td>&#8230;<\/td>\n<td>&#8230;<\/td>\n<td>&#8230;<\/td>\n<td>&#8230;<\/td>\n<td>&#8230;<\/td>\n<td>&#8230;<\/td>\n<td>&#8230;<\/td>\n<\/tr>\n<\/tbody>\n<\/table>\n<\/div>\n<p>  <\/p>\n<p>\u041f\u043e\u0441\u0447\u0438\u0442\u0430\u0435\u043c \u0441\u0442\u0430\u043d\u0434\u0430\u0440\u0442\u043d\u044b\u0435 \u0441\u0442\u0430\u0442\u0438\u0441\u0442\u0438\u043a\u0438 <\/p>\n<p>  <\/p>\n<pre><code class=\"plaintext\">summary(data)<\/code><\/pre>\n<p>  <\/p>\n<p><img decoding=\"async\" src=\"https:\/\/habrastorage.org\/webt\/_d\/xy\/ld\/_dxyldntkrfpj0alwugggdbut0a.png\"><\/p>\n<p>  <\/p>\n<p>\u0413\u043b\u044f\u0434\u044f \u043d\u0430 \u044d\u0442\u0438 \u0441\u0442\u0430\u0442\u0438\u0441\u0442\u0438\u043a\u0438, \u043c\u043e\u0436\u043d\u043e \u043c\u043d\u043e\u0433\u043e\u0435 \u0441\u043a\u0430\u0437\u0430\u0442\u044c \u043e \u0445\u0430\u0440\u0430\u043a\u0442\u0435\u0440\u0435 \u0434\u0430\u043d\u043d\u044b\u0445. \u041d\u0430\u043f\u0440\u0438\u043c\u0435\u0440, \u0447\u0442\u043e \u0443 Other \u043e\u0447\u0435\u043d\u044c \u0431\u043e\u043b\u044c\u0448\u043e\u0439 \u0440\u0430\u0437\u0431\u0440\u043e\u0441, \u0438 \u043c\u0430\u043a\u0441\u0438\u043c\u0443\u043c \u0441\u0438\u043b\u044c\u043d\u043e \u043e\u0442\u0441\u0442\u043e\u0438\u0442 \u043e\u0442 \u0442\u0440\u0435\u0442\u044c\u0435\u0433\u043e \u043a\u0432\u0430\u0440\u0442\u0438\u043b\u044f, \u0437\u043d\u0430\u0447\u0438\u0442, \u0442\u0430\u043c \u0435\u0441\u0442\u044c \u043a\u0430\u043a \u043c\u0438\u043d\u0438\u043c\u0443\u043c \u043e\u0434\u043d\u043e \u0441\u0438\u043b\u044c\u043d\u043e \u043e\u0442\u043b\u0438\u0447\u0430\u044e\u0449\u0435\u0435\u0441\u044f \u043d\u0430\u0431\u043b\u044e\u0434\u0435\u043d\u0438\u0435, \u0442\u0430\u043a \u043d\u0430\u0437\u044b\u0432\u0430\u0435\u043c\u044b\u0439 \u0432\u044b\u0431\u0440\u043e\u0441. \u0422\u0430\u043a\u0436\u0435 \u0432\u0438\u0434\u043d\u043e \u043f\u043e \u043f\u0435\u0440\u0432\u043e\u043c\u0443 \u043a\u0432\u0430\u0440\u0442\u0438\u043b\u044e \u0438 \u0441\u0440\u0435\u0434\u043d\u0435\u043c\u0443, \u0447\u0442\u043e \u0432 \u044d\u0442\u043e\u043c \u0441\u0442\u043e\u043b\u0431\u0446\u0435 \u0441\u0443\u0449\u0435\u0441\u0442\u0432\u0435\u043d\u043d\u043e\u0435 \u043a\u043e\u043b\u0438\u0447\u0435\u0441\u0442\u0432\u043e \u043d\u0443\u043b\u0435\u0432\u044b\u0445 \u0437\u043d\u0430\u0447\u0435\u043d\u0438\u0439, \u0447\u0442\u043e, \u0441\u043a\u043e\u0440\u0435\u0435 \u0432\u0441\u0435\u0433\u043e, \u0441\u0432\u044f\u0437\u0430\u043d\u043e \u0441 \u043d\u0435\u0434\u043e\u0441\u0442\u0430\u0442\u043a\u043e\u043c \u0434\u0430\u043d\u043d\u044b\u0445. \u0422\u0430\u043a\u0436\u0435 \u0441\u0440\u0430\u0437\u0443 \u0432\u0438\u0434\u0438\u043c \u0441\u043a\u043e\u043b\u044c\u043a\u043e \u0441\u0442\u0440\u0430\u043d \u0432 \u043a\u0430\u0436\u0434\u043e\u0439 \u0438\u0437 \u0433\u0440\u0443\u043f\u043f, \u0433\u0440\u0443\u043f\u043f\u044b \u043d\u0435 \u0441\u0431\u0430\u043b\u0430\u043d\u0441\u0438\u0440\u043e\u0432\u0430\u043d\u043d\u044b \u043f\u043e \u043a\u043e\u043b\u0438\u0447\u0435\u0441\u0442\u0432\u0443. \u0410\u043d\u0430\u043b\u043e\u0433\u0438\u0447\u043d\u043e \u043c\u043e\u0436\u043d\u043e \u0440\u0430\u0441\u0441\u043c\u0430\u0442\u0440\u0438\u0432\u0430\u0442\u044c \u0438 \u0441\u0442\u0430\u0442\u0438\u0441\u0442\u0438\u043a\u0438 \u043f\u043e \u0434\u0440\u0443\u0433\u0438\u043c \u043f\u0440\u0438\u0437\u043d\u0430\u043a\u0430\u043c \u0438 \u0434\u0435\u043b\u0430\u0442\u044c \u043a\u0430\u043a\u0438\u0435-\u0442\u043e \u043f\u043e\u043b\u0435\u0437\u043d\u044b\u0435 \u0432\u044b\u0432\u043e\u0434\u044b \u0438 \u043f\u0440\u0435\u0434\u043f\u043e\u043b\u043e\u0436\u0435\u043d\u0438\u044f.<\/p>\n<p>  <\/p>\n<p>\u0415\u0441\u043b\u0438, \u043a\u0430\u043a \u0432 \u043d\u0430\u0448\u0435\u043c \u0441\u043b\u0443\u0447\u0430\u0435, \u0443 \u0432\u0430\u0441 \u0442\u0440\u0438 \u043e\u0441\u043d\u043e\u0432\u043d\u044b\u0435 \u043f\u0435\u0440\u0435\u043c\u0435\u043d\u043d\u044b\u0435, \u043c\u043e\u0436\u043d\u043e \u043f\u043e\u043f\u0440\u043e\u0431\u043e\u0432\u0430\u0442\u044c \u043e\u0442\u0440\u0430\u0437\u0438\u0442\u044c \u0438\u0445 \u043d\u0430 \u0442\u0440\u0435\u0445\u043c\u0435\u0440\u043d\u043e\u043c \u0433\u0440\u0430\u0444\u0438\u043a\u0435. <\/p>\n<p>  <\/p>\n<pre><code class=\"plaintext\">options(rgl.useNULL=TRUE) open3d() mfrow3d(2,2) levelColors &lt;- c('west'='blue', 'east'='red', 'center'='yellow') plot3d(data$Beer, data$Wine, data$Spirit, xlab=&quot;Beer&quot;, ylab=&quot;Wine&quot;, zlab=&quot;Spirit&quot;, col = levelColors[data$Group], size=3)  widget &lt;- rglwidget() widget<\/code><\/pre>\n<p>  <\/p>\n<p>\u041f\u043e\u043b\u0443\u0447\u0430\u044e\u0442\u0441\u044f \u0434\u043e\u0432\u043e\u043b\u044c\u043d\u043e \u043d\u0430\u0433\u043b\u044f\u0434\u043d\u044b\u0435 \u0433\u0440\u0430\u0444\u0438\u043a\u0438, \u043a\u043e\u0442\u043e\u0440\u044b\u0435 \u043c\u043e\u0436\u043d\u043e \u043f\u043e\u043a\u0440\u0443\u0442\u0438\u0442\u044c \u0438 \u043f\u043e\u043c\u0430\u0441\u0448\u0442\u0430\u0431\u0438\u0440\u043e\u0432\u0430\u0442\u044c \u0438\u043d\u0442\u0435\u0440\u0430\u043a\u0442\u0438\u0432\u043d\u043e. \u0421\u0443\u0434\u044f \u043f\u043e \u044d\u0442\u043e\u043c\u0443 \u0433\u0440\u0430\u0444\u0438\u043a\u0443 \u043f\u043e\u043d\u044f\u0442\u043d\u043e, \u0447\u0442\u043e \u043f\u043e \u044d\u0442\u0438\u043c \u0442\u0440\u0435\u043c \u043f\u0440\u0438\u0437\u043d\u0430\u043a\u0430\u043c \u0433\u0440\u0443\u043f\u043f\u044b \u0432\u0438\u0437\u0443\u0430\u043b\u044c\u043d\u043e \u0440\u0430\u0437\u043b\u0438\u0447\u0430\u044e\u0442\u0441\u044f.<\/p>\n<p>  <\/p>\n<p><img decoding=\"async\" src=\"https:\/\/habrastorage.org\/webt\/jm\/08\/5d\/jm085dywg0mqmbm6pceagdnzwc8.png\"><\/p>\n<p>  <\/p>\n<p>\u041f\u043e\u0441\u043c\u043e\u0442\u0440\u0438\u043c \u044d\u043c\u043f\u0438\u0440\u0438\u0447\u0435\u0441\u043a\u0438\u0435 \u043f\u043b\u043e\u0442\u043d\u043e\u0441\u0442\u0438 \u043f\u043e \u0433\u0440\u0443\u043f\u043f\u0430\u043c<\/p>\n<p>  <\/p>\n<pre><code class=\"plaintext\">ggpairs(   data,   mapping = ggplot2::aes(color = data$Group),   upper = list(continuous = wrap(&quot;cor&quot;, alpha = 0.5), combo = &quot;box&quot;),   lower = list(continuous = wrap(&quot;points&quot;, alpha = 0.3), combo = wrap(&quot;dot&quot;, alpha = 0.4)),   diag = list(continuous = wrap(&quot;densityDiag&quot;,alpha = 0.5)),   title = &quot;Alcohol&quot; )<\/code><\/pre>\n<p>  <\/p>\n<p><img decoding=\"async\" src=\"https:\/\/habrastorage.org\/webt\/ia\/xn\/kh\/iaxnkhgdcd1nsywuu7iurnt_qsi.png\"><\/p>\n<p>  <\/p>\n<p>\u0422\u0430\u043a \u043a\u0430\u043a Average \u0438 Total \u0441\u0438\u043b\u044c\u043d\u043e \u043a\u043e\u0440\u0440\u0435\u043b\u0438\u0440\u0443\u044e\u0442, \u0438\u0441\u043a\u043b\u044e\u0447\u0438\u043c \u0438\u0437 \u0440\u0430\u0441\u0441\u043c\u043e\u0442\u0440\u0435\u043d\u0438\u044f Average.<\/p>\n<p>  <\/p>\n<pre><code class=\"plaintext\">data &lt;- data[, -6]<\/code><\/pre>\n<p>  <\/p>\n<p>\u0423 \u043d\u0430\u0441 \u043d\u0435\u0441\u043a\u043e\u043b\u044c\u043a\u043e \u0433\u0440\u0443\u043f\u043f, \u0438 \u043d\u0435 \u0442\u043e\u043b\u044c\u043a\u043e \u043f\u0440\u0435\u0434\u043f\u043e\u043b\u0430\u0433\u0430\u0435\u0442\u0441\u044f, \u0430 \u0434\u0430\u0436\u0435 \u0432\u0438\u0434\u043d\u043e, \u0447\u0442\u043e \u043e\u043d\u0438 \u0440\u0430\u0437\u043d\u044b\u0435, \u043f\u043e\u044d\u0442\u043e\u043c\u0443 \u043d\u0443\u0436\u043d\u043e \u0440\u0430\u0441\u0441\u043c\u0430\u0442\u0440\u0438\u0432\u0430\u0442\u044c \u0440\u0430\u0441\u043f\u0440\u0435\u0434\u0435\u043b\u0435\u043d\u0438\u0435 \u043e\u0442\u0434\u0435\u043b\u044c\u043d\u043e \u043f\u043e \u0433\u0440\u0443\u043f\u043f\u0430\u043c. \u041f\u043e\u0441\u043c\u043e\u0442\u0440\u0438\u043c \u043e\u0442\u043b\u0438\u0447\u0430\u044e\u0449\u0438\u0435\u0441\u044f \u0434\u0430\u043d\u043d\u044b\u0435 \u043f\u043e \u0433\u0440\u0443\u043f\u043f\u0430\u043c.<\/p>\n<p>  <\/p>\n<pre><code class=\"plaintext\">data[data$Wine&gt;60,] <\/code><\/pre>\n<p>  <\/p>\n<div class=\"scrollable-table\">\n<table>\n<thead>\n<tr>\n<th><\/th>\n<th>Beer<\/th>\n<th>Wine<\/th>\n<th>Spirit<\/th>\n<th>Other<\/th>\n<th>Total<\/th>\n<th>Group<\/th>\n<\/tr>\n<\/thead>\n<tbody>\n<tr>\n<td>Italy<\/td>\n<td>23<\/td>\n<td>65.6<\/td>\n<td>11.5<\/td>\n<td>0<\/td>\n<td>9.9<\/td>\n<td>west<\/td>\n<\/tr>\n<\/tbody>\n<\/table>\n<\/div>\n<p>  <\/p>\n<p>\u0412 \u0442\u043e\u043c \u0447\u0442\u043e \u0438\u0442\u0430\u043b\u044c\u044f\u043d\u0446\u044b \u043f\u044c\u044e\u0442 \u0432\u0438\u043d\u0430 \u0431\u043e\u043b\u044c\u0448\u0435 \u0432\u0441\u0435\u0445, \u0434\u0430\u0436\u0435 \u0431\u0435\u0437 \u0443\u0447\u0435\u0442\u0430 \u0440\u0430\u0437\u0434\u0435\u043b\u0435\u043d\u0438\u044f \u043d\u0430 \u0433\u0440\u0443\u043f\u043f\u044b, \u0434\u0443\u043c\u0430\u044e, \u043d\u0435\u0442 \u043d\u0438\u0447\u0435\u0433\u043e \u0443\u0434\u0438\u0432\u0438\u0442\u0435\u043b\u044c\u043d\u043e\u0433\u043e, \u043f\u043e\u044d\u0442\u043e\u043c\u0443 \u0438\u0437-\u0437\u0430 \u0442\u043e\u0433\u043e, \u0447\u0442\u043e \u0438 \u0442\u0430\u043a \u043c\u0430\u043b\u043e \u0434\u0430\u043d\u043d\u044b\u0445, \u043e\u0441\u0442\u0430\u0432\u0438\u043c \u044d\u0442\u043e \u043d\u0430\u0431\u043b\u044e\u0434\u0435\u043d\u0438\u0435.<\/p>\n<p>  <\/p>\n<pre><code class=\"plaintext\">data[data$Spirit&gt;70,] data[data$Spirit&lt;10,]<\/code><\/pre>\n<p>  <\/p>\n<div class=\"scrollable-table\">\n<table>\n<thead>\n<tr>\n<th><\/th>\n<th>Beer<\/th>\n<th>Wine<\/th>\n<th>Spirit<\/th>\n<th>Other<\/th>\n<th>Total<\/th>\n<th>Group<\/th>\n<\/tr>\n<\/thead>\n<tbody>\n<tr>\n<td>Armenia<\/td>\n<td>9.7<\/td>\n<td>5.3<\/td>\n<td>84.9<\/td>\n<td>0<\/td>\n<td>8.3<\/td>\n<td>east<\/td>\n<\/tr>\n<\/tbody>\n<\/table>\n<\/div>\n<p>  <\/p>\n<div class=\"scrollable-table\">\n<table>\n<thead>\n<tr>\n<th><\/th>\n<th>Beer<\/th>\n<th>Wine<\/th>\n<th>Spirit<\/th>\n<th>Other<\/th>\n<th>Total<\/th>\n<th>Group<\/th>\n<\/tr>\n<\/thead>\n<tbody>\n<tr>\n<td>Slovenia<\/td>\n<td>44.5<\/td>\n<td>46.9<\/td>\n<td>8.6<\/td>\n<td>0<\/td>\n<td>17.2<\/td>\n<td>west<\/td>\n<\/tr>\n<\/tbody>\n<\/table>\n<\/div>\n<p>  <\/p>\n<p>\u0412\u0435\u0441\u044c\u043c\u0430 \u043f\u043e\u0434\u043e\u0437\u0440\u0438\u0442\u0435\u043b\u044c\u043d\u044b\u0435 \u0434\u0430\u043d\u043d\u044b\u0435 \u043e\u0442\u043d\u043e\u0441\u0438\u0442\u0435\u043b\u044c\u043d\u043e \u0432\u044b\u0431\u043e\u0440\u043a\u0438, \u043f\u043e\u043a\u0430 \u043e\u0441\u0442\u0430\u0432\u0438\u043c \u0438\u0445, \u043d\u043e \u0431\u0443\u0434\u0435\u043c \u0438\u043c\u0435\u0442\u044c \u0432 \u0432\u0438\u0434\u0443.<\/p>\n<p>  <\/p>\n<p>\u0414\u0430\u043d\u043d\u044b\u0445 \u043d\u0435 \u0442\u0430\u043a \u043c\u043d\u043e\u0433\u043e, \u043f\u043e\u044d\u0442\u043e\u043c\u0443 \u043f\u043e\u0441\u043c\u043e\u0442\u0440\u0438\u043c \u043d\u0430 \u0434\u0430\u043d\u043d\u044b\u0435 \u043f\u043e \u0433\u0440\u0443\u043f\u043f\u0430\u043c<\/p>\n<p>  <\/p>\n<pre><code class=\"plaintext\">split(data[,1:5],data$Group)<\/code><\/pre>\n<p>  <\/p>\n<p><strong>$center<br \/>  <\/strong><\/p>\n<p>  <\/p>\n<div class=\"scrollable-table\">\n<table>\n<thead>\n<tr>\n<th><\/th>\n<th>Beer<\/th>\n<th>Wine<\/th>\n<th>Spirit<\/th>\n<th>Other<\/th>\n<th>Total<\/th>\n<\/tr>\n<\/thead>\n<tbody>\n<tr>\n<td>Albania<\/td>\n<td>31.8<\/td>\n<td>19.8<\/td>\n<td>48.4<\/td>\n<td>0.0<\/td>\n<td>13.0<\/td>\n<\/tr>\n<tr>\n<td>Austria<\/td>\n<td>50.4<\/td>\n<td>35.5<\/td>\n<td>14.0<\/td>\n<td>0.0<\/td>\n<td>13.8<\/td>\n<\/tr>\n<tr>\n<td>Belgium<\/td>\n<td>49.2<\/td>\n<td>36.3<\/td>\n<td>14.4<\/td>\n<td>0.1<\/td>\n<td>12.8<\/td>\n<\/tr>\n<tr>\n<td>Bosnia.and.Herzegovina<\/td>\n<td>73.3<\/td>\n<td>9.7<\/td>\n<td>17.0<\/td>\n<td>0.0<\/td>\n<td>12.3<\/td>\n<\/tr>\n<tr>\n<td>Cyprus<\/td>\n<td>40.9<\/td>\n<td>24.7<\/td>\n<td>33.7<\/td>\n<td>0.7<\/td>\n<td>10.8<\/td>\n<\/tr>\n<tr>\n<td>Czech.Republic<\/td>\n<td>53.5<\/td>\n<td>20.5<\/td>\n<td>26.0<\/td>\n<td>0.0<\/td>\n<td>14.6<\/td>\n<\/tr>\n<tr>\n<td>Denmark<\/td>\n<td>37.7<\/td>\n<td>48.2<\/td>\n<td>14.1<\/td>\n<td>0.0<\/td>\n<td>12.9<\/td>\n<\/tr>\n<tr>\n<td>Finland<\/td>\n<td>46.0<\/td>\n<td>17.5<\/td>\n<td>24.0<\/td>\n<td>12.6<\/td>\n<td>18.1<\/td>\n<\/tr>\n<tr>\n<td>Germany<\/td>\n<td>53.6<\/td>\n<td>27.8<\/td>\n<td>18.6<\/td>\n<td>0.0<\/td>\n<td>14.7<\/td>\n<\/tr>\n<tr>\n<td>Hungary<\/td>\n<td>36.3<\/td>\n<td>29.4<\/td>\n<td>34.3<\/td>\n<td>0.0<\/td>\n<td>16.3<\/td>\n<\/tr>\n<tr>\n<td>Iceland<\/td>\n<td>61.8<\/td>\n<td>21.2<\/td>\n<td>16.5<\/td>\n<td>0.5<\/td>\n<td>10.4<\/td>\n<\/tr>\n<tr>\n<td>Ireland<\/td>\n<td>48.1<\/td>\n<td>26.1<\/td>\n<td>18.7<\/td>\n<td>7.7<\/td>\n<td>14.7<\/td>\n<\/tr>\n<tr>\n<td>Malta<\/td>\n<td>39.4<\/td>\n<td>32.7<\/td>\n<td>27.2<\/td>\n<td>0.7<\/td>\n<td>11.5<\/td>\n<\/tr>\n<tr>\n<td>Netherlands<\/td>\n<td>46.8<\/td>\n<td>36.4<\/td>\n<td>16.9<\/td>\n<td>0.0<\/td>\n<td>11.2<\/td>\n<\/tr>\n<tr>\n<td>Norway<\/td>\n<td>44.2<\/td>\n<td>34.7<\/td>\n<td>19.0<\/td>\n<td>2.1<\/td>\n<td>9.0<\/td>\n<\/tr>\n<tr>\n<td>Poland<\/td>\n<td>55.1<\/td>\n<td>9.3<\/td>\n<td>35.5<\/td>\n<td>0.0<\/td>\n<td>24.2<\/td>\n<\/tr>\n<tr>\n<td>Romania<\/td>\n<td>50.0<\/td>\n<td>28.9<\/td>\n<td>21.1<\/td>\n<td>0.0<\/td>\n<td>21.3<\/td>\n<\/tr>\n<tr>\n<td>Serbia<\/td>\n<td>51.5<\/td>\n<td>23.9<\/td>\n<td>24.6<\/td>\n<td>0.0<\/td>\n<td>19.0<\/td>\n<\/tr>\n<tr>\n<td>Sweden<\/td>\n<td>37.0<\/td>\n<td>46.6<\/td>\n<td>15.1<\/td>\n<td>1.4<\/td>\n<td>13.3<\/td>\n<\/tr>\n<tr>\n<td>Switzerland<\/td>\n<td>31.8<\/td>\n<td>49.4<\/td>\n<td>17.6<\/td>\n<td>1.2<\/td>\n<td>12.1<\/td>\n<\/tr>\n<tr>\n<td>Turkey<\/td>\n<td>63.6<\/td>\n<td>8.6<\/td>\n<td>27.9<\/td>\n<td>0.0<\/td>\n<td>17.3<\/td>\n<\/tr>\n<tr>\n<td>UK<\/td>\n<td>36.9<\/td>\n<td>33.8<\/td>\n<td>21.8<\/td>\n<td>7.5<\/td>\n<td>13.8<\/td>\n<\/tr>\n<\/tbody>\n<\/table>\n<\/div>\n<p>  <\/p>\n<p><strong>$east<br \/>  <\/strong><\/p>\n<p>  <\/p>\n<div class=\"scrollable-table\">\n<table>\n<thead>\n<tr>\n<th><\/th>\n<th>Beer<\/th>\n<th>Wine<\/th>\n<th>Spirit<\/th>\n<th>Other<\/th>\n<th>Total<\/th>\n<\/tr>\n<\/thead>\n<tbody>\n<tr>\n<td>Armenia<\/td>\n<td>9.7<\/td>\n<td>5.3<\/td>\n<td>84.9<\/td>\n<td>0.0<\/td>\n<td>8.3<\/td>\n<\/tr>\n<tr>\n<td>Azerbaijan<\/td>\n<td>28.7<\/td>\n<td>7.6<\/td>\n<td>63.3<\/td>\n<td>0.0<\/td>\n<td>5.2<\/td>\n<\/tr>\n<tr>\n<td>Belarus<\/td>\n<td>17.3<\/td>\n<td>5.2<\/td>\n<td>46.6<\/td>\n<td>30.9<\/td>\n<td>22.1<\/td>\n<\/tr>\n<tr>\n<td>Bulgaria<\/td>\n<td>39.3<\/td>\n<td>16.5<\/td>\n<td>44.1<\/td>\n<td>0.1<\/td>\n<td>16.9<\/td>\n<\/tr>\n<tr>\n<td>Estonia<\/td>\n<td>41.2<\/td>\n<td>11.1<\/td>\n<td>36.8<\/td>\n<td>10.9<\/td>\n<td>15.7<\/td>\n<\/tr>\n<tr>\n<td>Georgia<\/td>\n<td>17.0<\/td>\n<td>49.8<\/td>\n<td>33.2<\/td>\n<td>0.1<\/td>\n<td>21.2<\/td>\n<\/tr>\n<tr>\n<td>Israel<\/td>\n<td>44.0<\/td>\n<td>6.2<\/td>\n<td>49.5<\/td>\n<td>0.3<\/td>\n<td>5.4<\/td>\n<\/tr>\n<tr>\n<td>Latvia<\/td>\n<td>46.9<\/td>\n<td>10.7<\/td>\n<td>37.0<\/td>\n<td>5.4<\/td>\n<td>18.1<\/td>\n<\/tr>\n<tr>\n<td>Lithuania<\/td>\n<td>46.5<\/td>\n<td>7.8<\/td>\n<td>34.1<\/td>\n<td>11.6<\/td>\n<td>23.6<\/td>\n<\/tr>\n<tr>\n<td>Republic.of.Moldova<\/td>\n<td>30.4<\/td>\n<td>5.1<\/td>\n<td>64.5<\/td>\n<td>0.0<\/td>\n<td>25.4<\/td>\n<\/tr>\n<tr>\n<td>Russian.Federation<\/td>\n<td>37.6<\/td>\n<td>11.4<\/td>\n<td>51.0<\/td>\n<td>0.0<\/td>\n<td>22.3<\/td>\n<\/tr>\n<tr>\n<td>Slovakia<\/td>\n<td>30.1<\/td>\n<td>18.3<\/td>\n<td>46.2<\/td>\n<td>5.5<\/td>\n<td>19.8<\/td>\n<\/tr>\n<tr>\n<td>Ukraine<\/td>\n<td>40.5<\/td>\n<td>9.0<\/td>\n<td>48.0<\/td>\n<td>2.6<\/td>\n<td>20.3<\/td>\n<\/tr>\n<\/tbody>\n<\/table>\n<\/div>\n<p>  <\/p>\n<p><strong>$west<br \/>  <\/strong><\/p>\n<p>  <\/p>\n<div class=\"scrollable-table\">\n<table>\n<thead>\n<tr>\n<th><\/th>\n<th>Beer<\/th>\n<th>Wine<\/th>\n<th>Spirit<\/th>\n<th>Other<\/th>\n<th>Total<\/th>\n<\/tr>\n<\/thead>\n<tbody>\n<tr>\n<td>Croatia<\/td>\n<td>39.5<\/td>\n<td>44.8<\/td>\n<td>15.4<\/td>\n<td>0.2<\/td>\n<td>15.1<\/td>\n<\/tr>\n<tr>\n<td>France<\/td>\n<td>18.8<\/td>\n<td>56.4<\/td>\n<td>23.1<\/td>\n<td>1.7<\/td>\n<td>12.9<\/td>\n<\/tr>\n<tr>\n<td>Greece<\/td>\n<td>28.1<\/td>\n<td>47.3<\/td>\n<td>24.2<\/td>\n<td>0.4<\/td>\n<td>15.6<\/td>\n<\/tr>\n<tr>\n<td>Italy<\/td>\n<td>23.0<\/td>\n<td>65.6<\/td>\n<td>11.5<\/td>\n<td>0.0<\/td>\n<td>9.9<\/td>\n<\/tr>\n<tr>\n<td>Luxembourg<\/td>\n<td>36.2<\/td>\n<td>42.8<\/td>\n<td>21.0<\/td>\n<td>0.0<\/td>\n<td>12.7<\/td>\n<\/tr>\n<tr>\n<td>Portugal<\/td>\n<td>30.8<\/td>\n<td>55.5<\/td>\n<td>10.9<\/td>\n<td>2.8<\/td>\n<td>22.6<\/td>\n<\/tr>\n<tr>\n<td>Slovenia<\/td>\n<td>44.5<\/td>\n<td>46.9<\/td>\n<td>8.6<\/td>\n<td>0.0<\/td>\n<td>17.2<\/td>\n<\/tr>\n<tr>\n<td>Spain<\/td>\n<td>49.7<\/td>\n<td>20.1<\/td>\n<td>28.2<\/td>\n<td>1.8<\/td>\n<td>16.4<\/td>\n<\/tr>\n<tr>\n<td>Republic.of.Macedonia<\/td>\n<td>47.4<\/td>\n<td>39.9<\/td>\n<td>12.6<\/td>\n<td>0.0<\/td>\n<td>11.7<\/td>\n<\/tr>\n<\/tbody>\n<\/table>\n<\/div>\n<p>  <\/p>\n<pre><code class=\"plaintext\">ggpairs(   data,   mapping = ggplot2::aes(color = data$Group),   diag=list(continuous=&quot;bar&quot;, alpha=0.4) )<\/code><\/pre>\n<p>  <\/p>\n<p><img decoding=\"async\" src=\"https:\/\/habrastorage.org\/webt\/3k\/kt\/yp\/3kktypa6hgbrg4ceii2kkribqrg.png\"><\/p>\n<p>  <\/p>\n<p>\u0418\u0437 \u0433\u0438\u0441\u0442\u043e\u0433\u0440\u0430\u043c\u043c \u0432\u0438\u0434\u043d\u043e, \u0447\u0442\u043e \u0433\u0440\u0443\u043f\u043f\u044b \u043b\u0443\u0447\u0448\u0435 \u0432\u0441\u0435\u0433\u043e \u0440\u0430\u0437\u043b\u0438\u0447\u0430\u044e\u0442\u0441\u044f \u043f\u043e \u043f\u0438\u0432\u0443, \u0432\u0438\u043d\u0443 \u0438 \u0441\u043f\u0438\u0440\u0442\u043d\u044b\u043c \u043d\u0430\u043f\u0438\u0442\u043a\u0430\u043c. \u0415\u0441\u043b\u0438 \u0431\u0440\u0430\u0442\u044c \u043f\u0440\u0438\u0437\u043d\u0430\u043a Other, \u0437\u0430\u043c\u0435\u0442\u0438\u043c: \u043c\u0430\u043b\u043e \u0442\u043e\u0433\u043e, \u0447\u0442\u043e \u0443 \u043d\u0435\u0433\u043e \u0432\u0435\u0441\u044c\u043c\u0430 \u0441\u0442\u0440\u0430\u043d\u043d\u043e\u0435 \u0440\u0430\u0441\u043f\u0440\u0435\u0434\u0435\u043b\u0435\u043d\u0438\u0435, \u0442\u0430\u043a \u0435\u0449\u0435 \u0438 \u0432 \u0431\u043e\u043b\u044c\u0448\u0438\u043d\u0441\u0442\u0432\u0435 \u0441\u0442\u0440\u0430\u043d \u043c\u0430\u043b\u0435\u043d\u044c\u043a\u0438\u0435 \u0438 \u0434\u0430\u0436\u0435 \u043d\u0443\u043b\u0435\u0432\u044b\u0435 \u0437\u043d\u0430\u0447\u0435\u043d\u0438\u044f, \u043a\u0440\u043e\u043c\u0435 \u043d\u0435\u0441\u043a\u043e\u043b\u044c\u043a\u0438\u0445 (\u043f\u0440\u0438\u043c\u0435\u0440\u043d\u043e 10-12 \u0441\u0442\u0440\u0430\u043d, \u0430 \u0442\u0430\u043a \u043a\u0430\u043a \u0438\u043d\u0434\u0438\u0432\u0438\u0434\u043e\u0432 \u0432\u0441\u0435\u0433\u043e 45, \u0438\u0441\u043a\u043b\u044e\u0447\u0438\u0432 \u0438\u0445, \u043c\u044b \u0441\u0443\u0449\u0435\u0441\u0442\u0432\u0435\u043d\u043d\u043e \u0441\u043e\u043a\u0440\u0430\u0442\u0438\u043c \u043e\u0431\u044a\u0435\u043c \u0434\u0430\u043d\u043d\u044b\u0445). \u0411\u043e\u043b\u044c\u0448\u0435 \u0432\u0441\u0435\u0433\u043e \u043e\u0442\u043b\u0438\u0447\u0430\u0435\u0442\u0441\u044f \u0420\u0435\u0441\u043f\u0443\u0431\u043b\u0438\u043a\u0430 \u0411\u0435\u043b\u0430\u0440\u0443\u0441\u044c. \u041d\u0435\u043c\u043d\u043e\u0433\u043e \u043f\u043e\u0434\u0443\u043c\u0430\u0432, \u043c\u043e\u0436\u043d\u043e \u0441\u0434\u0435\u043b\u0430\u0442\u044c \u043f\u0440\u0435\u0434\u043f\u043e\u043b\u043e\u0436\u0435\u043d\u0438\u0435, \u0447\u0442\u043e \u0442\u0430\u043c \u043f\u0440\u0435\u0434\u043f\u043e\u0447\u0438\u0442\u0430\u044e\u0442 \u043a\u0440\u0430\u043c\u0431\u0430\u043c\u0431\u0443\u043b\u044f \u0432\u043c\u0435\u0441\u0442\u043e \u043f\u0438\u0432\u0430, \u0432\u0438\u043d\u0430 \u0438 \u0441\u043f\u0438\u0440\u0442\u043d\u044b\u0445 \u043d\u0430\u043f\u0438\u0442\u043a\u043e\u0432 (\u0448\u0443\u0442\u043a\u0430). \u041d\u0443, \u0430 \u0435\u0441\u043b\u0438 \u0431\u043e\u043b\u0435\u0435 \u0444\u043e\u0440\u043c\u0430\u043b\u044c\u043d\u043e, \u0442\u043e \u0441\u043a\u043e\u0440\u0435\u0435 \u0432\u0441\u0435\u0433\u043e \u044d\u0442\u043e \u0441\u0432\u044f\u0437\u0430\u043d\u043e \u0441 \u043d\u0435\u043f\u043e\u043b\u043d\u043e\u0442\u043e\u0439 \u0438\u0441\u0445\u043e\u0434\u043d\u044b\u0445 \u0434\u0430\u043d\u043d\u044b\u0445 \u0438\u043b\u0438 \u043d\u0435\u0441\u043e\u0432\u0435\u0440\u0448\u0435\u043d\u0441\u0442\u0432\u043e\u043c \u0440\u0435\u0433\u0438\u0441\u0442\u0440\u0430\u0446\u0438\u0438 \u0434\u0430\u043d\u043d\u044b\u0445. \u0423\u0431\u0435\u0440\u0435\u043c \u043f\u0440\u0438\u0437\u043d\u0430\u043a Other \u0438\u0437 \u0440\u0430\u0441\u0441\u043c\u043e\u0442\u0440\u0435\u043d\u0438\u044f.<\/p>\n<p>  <\/p>\n<p>\u0422\u0430\u043a\u0436\u0435 \u043d\u0430 \u0433\u0438\u0441\u0442\u043e\u0433\u0440\u0430\u043c\u043c\u0430\u0445 \u043c\u043e\u0436\u043d\u043e \u0437\u0430\u043c\u0435\u0442\u0438\u0442\u044c, \u0447\u0442\u043e \u0434\u043b\u044f \u0446\u0435\u043d\u0442\u0440\u0430 \u043f\u0440\u0435\u0432\u0430\u043b\u0438\u0440\u0443\u0435\u0442 \u043f\u0438\u0432\u043e, \u0434\u043b\u044f \u0437\u0430\u043f\u0430\u0434\u0430 \u2014 \u0432\u0438\u043d\u043e, \u0430 \u0434\u043b\u044f \u0432\u043e\u0441\u0442\u043e\u043a\u0430 \u2014 \u0441\u043f\u0438\u0440\u0442\u043d\u044b\u0435 \u043d\u0430\u043f\u0438\u0442\u043a\u0438. \u042d\u0442\u043e \u0432\u043f\u043e\u043b\u043d\u0435 \u0443\u043a\u043b\u0430\u0434\u044b\u0432\u0430\u0435\u0442\u0441\u044f \u0432 \u043e\u0431\u0449\u0435\u0438\u0437\u0432\u0435\u0441\u0442\u043d\u044b\u0435 \u043f\u0440\u0435\u0434\u0441\u0442\u0430\u0432\u043b\u0435\u043d\u0438\u044f, \u043c\u043e\u0436\u043d\u043e \u0434\u0430\u0436\u0435 \u0441\u043a\u0430\u0437\u0430\u0442\u044c \u2014 \u0441\u0442\u0435\u0440\u0435\u043e\u0442\u0438\u043f\u044b, \u043e \u043a\u0443\u043b\u044c\u0442\u0443\u0440\u0435 \u043f\u043e\u0442\u0440\u0435\u0431\u043b\u0435\u043d\u0438\u044f \u0441\u043f\u0438\u0440\u0442\u043d\u044b\u0445 \u043d\u0430\u043f\u0438\u0442\u043a\u043e\u0432 \u0432 \u044d\u0442\u0438\u0445 \u0440\u0435\u0433\u0438\u043e\u043d\u0430\u0445.<br \/>  \u041d\u0430 \u0434\u0438\u0430\u0433\u0440\u0430\u043c\u043c\u0430\u0445 \u0440\u0430\u0441\u0441\u0435\u044f\u043d\u0438\u044f \u043f\u0440\u0438\u0437\u043d\u0430\u043a\u0430 Total \u0438 Other, \u0432\u0438\u0437\u0443\u0430\u043b\u044c\u043d\u043e \u0433\u0440\u0443\u043f\u043f\u044b \u043d\u0435 \u0432\u044b\u0434\u0435\u043b\u044f\u044e\u0442\u0441\u044f. \u0411\u0443\u0434\u0435\u043c \u0438\u043c\u0435\u0442\u044c \u044d\u0442\u043e\u0442 \u0444\u0430\u043a\u0442 \u0432 \u0432\u0438\u0434\u0443 \u0432 \u0434\u0430\u043b\u044c\u043d\u0435\u0439\u0448\u0435\u043c.<\/p>\n<p>  <\/p>\n<p>\u041f\u0440\u0438\u043c\u0435\u0447\u0430\u0442\u0435\u043b\u044c\u043d\u043e, \u0447\u0442\u043e \u043c\u0435\u0436\u0434\u0443 \u043f\u0440\u0438\u0437\u043d\u0430\u043a\u0430\u043c\u0438 Beer, Spirit \u0438 Wine \u043e\u0442\u0440\u0438\u0446\u0430\u0442\u0435\u043b\u044c\u043d\u044b\u0435 \u043a\u043e\u0440\u0440\u0435\u043b\u044f\u0446\u0438\u0438. \u0412\u043e\u0437\u043c\u043e\u0436\u043d\u043e, \u044d\u0442\u043e \u0442\u0430\u043a\u0436\u0435 \u043e\u0442\u043d\u043e\u0441\u0438\u0442\u0441\u044f \u043a \u0442\u043e\u043c\u0443, \u0447\u0442\u043e \u043f\u043e \u044d\u0442\u0438\u043c \u043f\u0435\u0440\u0435\u043c\u0435\u043d\u043d\u044b\u043c \u043c\u043e\u0436\u043d\u043e \u0432\u044b\u0434\u0435\u043b\u044f\u0442\u044c \u0433\u0440\u0443\u043f\u043f\u044b \u043f\u0440\u0435\u0434\u043f\u043e\u0447\u0442\u0435\u043d\u0438\u044f \u0432 \u0430\u043b\u043a\u043e\u0433\u043e\u043b\u0435, \u0438 \u043e\u043d\u0438 \u0431\u0443\u0434\u0443\u0442 \u0431\u043b\u0438\u0437\u043a\u0438 \u043a \u0433\u0435\u043e\u0433\u0440\u0430\u0444\u0438\u0447\u0435\u0441\u043a\u0438\u043c. \u041f\u043e\u0441\u043b\u0435 \u0442\u043e\u0433\u043e \u043a\u0430\u043a \u0438\u0437\u0443\u0447\u0438\u043b\u0438 \u0434\u0430\u043d\u043d\u044b\u0435, \u043f\u043e\u043b\u0443\u0447\u0438\u043b\u0438 \u043d\u0435\u043a\u0438\u0435 \u0430\u043f\u0440\u0438\u043e\u0440\u043d\u044b\u0435 \u043f\u0440\u0435\u0434\u0441\u0442\u0430\u0432\u043b\u0435\u043d\u0438\u044f, \u0443\u0431\u0440\u0430\u043b\u0438 \u043b\u0438\u0448\u043d\u0438\u0435, \u043d\u0430 \u043d\u0430\u0448 \u0432\u0437\u0433\u043b\u044f\u0434, \u043f\u0440\u0438\u0437\u043d\u0430\u043a\u0438, \u043f\u0435\u0440\u0435\u0439\u0434\u0435\u043c \u043a \u043a\u043b\u0430\u0441\u0442\u0435\u0440\u043d\u043e\u043c\u0443 \u0430\u043d\u0430\u043b\u0438\u0437\u0443.<\/p>\n<p>  <\/p>\n<h2 id=\"klasternyy-analiz\">\u041a\u043b\u0430\u0441\u0442\u0435\u0440\u043d\u044b\u0439 \u0430\u043d\u0430\u043b\u0438\u0437<\/h2>\n<p>  <\/p>\n<p>\u0423\u0431\u0435\u0440\u0435\u043c \u0440\u0430\u0437\u043c\u0435\u0442\u043a\u0443 \u0434\u0430\u043d\u043d\u044b\u0445 \u043d\u0430 \u0433\u0440\u0443\u043f\u043f\u044b \u0438 \u0443\u0431\u0435\u0440\u0435\u043c \u043f\u0440\u0438\u0437\u043d\u0430\u043a Total. \u042d\u0442\u043e \u043f\u043e\u0437\u0432\u043e\u043b\u0438\u0442 \u043d\u0435 \u043d\u043e\u0440\u043c\u0438\u0440\u043e\u0432\u0430\u0442\u044c \u0434\u0430\u043d\u043d\u044b\u0435, \u0442\u0430\u043a \u043a\u0430\u043a \u043e\u0441\u0442\u0430\u043b\u044c\u043d\u044b\u0435 \u043f\u0440\u0438\u0437\u043d\u0430\u043a\u0438 \u2014 \u0432 \u043e\u0434\u043d\u043e\u0439 \u0448\u043a\u0430\u043b\u0435.<\/p>\n<p>  <\/p>\n<pre><code class=\"plaintext\">data.group = data[,5] data &lt;- data[,-5] data&lt;- data[,-4]<\/code><\/pre>\n<p>  <\/p>\n<p>\u041e\u043f\u0440\u0435\u0434\u0435\u043b\u0438\u043c \u0447\u0438\u0441\u043b\u043e \u043a\u043b\u0430\u0441\u0442\u0435\u0440\u043e\u0432 Elbow method (\u201c\u043c\u0435\u0442\u043e\u0434 \u0441\u043e\u0433\u043d\u0443\u0442\u043e\u0433\u043e \u043a\u043e\u043b\u0435\u043d\u0430\u201d, \u043e\u043d \u0436\u0435 \u201c\u043c\u0435\u0442\u043e\u0434 \u043a\u0430\u043c\u0435\u043d\u0438\u0441\u0442\u043e\u0439 \u043e\u0441\u044b\u043f\u0438\u201d). \u041f\u043e\u0441\u0442\u0440\u043e\u0438\u043c \u0433\u0440\u0430\u0444\u0438\u043a, \u0433\u0434\u0435 \u043f\u043e \u043e\u0441\u0438 \u0430\u0431\u0441\u0446\u0438\u0441\u0441 \u043e\u0442\u043c\u0435\u0447\u0435\u043d\u043e \u0447\u0438\u0441\u043b\u043e \u043a\u043b\u0430\u0441\u0442\u0435\u0440\u043e\u0432 k, \u0430 \u043f\u043e \u043e\u0441\u0438 \u043e\u0440\u0434\u0438\u043d\u0430\u0442 \u2013 \u0437\u043d\u0430\u0447\u0435\u043d\u0438\u044f \u0444\u0443\u043d\u043a\u0446\u0438\u0438 W(K), \u043a\u043e\u0442\u043e\u0440\u0430\u044f \u043e\u043f\u0440\u0435\u0434\u0435\u043b\u044f\u0435\u0442 \u0432\u043d\u0443\u0442\u0440\u0438\u0433\u0440\u0443\u043f\u043f\u043e\u0432\u043e\u0439 \u0440\u0430\u0437\u0431\u0440\u043e\u0441 \u0432 \u0437\u0430\u0432\u0438\u0441\u0438\u043c\u043e\u0441\u0442\u0438 \u043e\u0442 \u0447\u0438\u0441\u043b\u0430 \u043a\u043b\u0430\u0441\u0442\u0435\u0440\u043e\u0432.<\/p>\n<p>  <\/p>\n<pre><code class=\"plaintext\">library(factoextra) fviz_nbclust(data, kmeans, method = &quot;wss&quot;) +   labs(subtitle = &quot;Elbow method&quot;) +   geom_vline(xintercept = 4, linetype = 2)<\/code><\/pre>\n<p>  <\/p>\n<p><img decoding=\"async\" src=\"https:\/\/habrastorage.org\/webt\/bk\/lm\/_k\/bklm_kqemdigg8mg4trkeumjrl8.png\"><\/p>\n<p>  <\/p>\n<pre><code class=\"plaintext\">data.dist &lt;- dist((data)) hc &lt;- hclust(data.dist, method = &quot;ward.D2&quot;) plot(hc, cex = 0.7)<\/code><\/pre>\n<p>  <\/p>\n<p><img decoding=\"async\" src=\"https:\/\/habrastorage.org\/webt\/wf\/_7\/n8\/wf_7n8o_zij5z_hbfijz-tyh-iy.png\"><\/p>\n<p>  <\/p>\n<p>\u041d\u0430\u0440\u0438\u0441\u0443\u0435\u043c \u0433\u0440\u0430\u0444\u0438\u043a \u043f\u043e\u0438\u043d\u0442\u0435\u0440\u0435\u0441\u043d\u0435\u0435. \u0426\u0432\u0435\u0442\u0430 \u0431\u0443\u0434\u0443\u0442 \u043e\u0437\u043d\u0430\u0447\u0430\u0442\u044c \u0438\u0441\u0445\u043e\u0434\u043d\u0443\u044e \u0433\u0435\u043e\u0433\u0440\u0430\u0444\u0438\u0447\u0435\u0441\u043a\u0443\u044e \u043c\u0430\u0440\u043a\u0438\u0440\u043e\u0432\u043a\u0443.<\/p>\n<p>  <\/p>\n<pre><code class=\"plaintext\">colors=c('green', 'red', 'blue') hcd = as.dendrogram(hc) clusMember = cutree(hc, 4) colLab &lt;- function(n) {     if (is.leaf(n)) {         a &lt;- attributes(n)         labCol &lt;- colors[data.group[n]]         attr(n, &quot;nodePar&quot;) &lt;- c(a$nodePar, lab.col = labCol)     }     n } clusDendro = dendrapply(hcd, colLab) plot(clusDendro, main = &quot;Cool Dendrogram&quot;, type = &quot;triangle&quot;)  rect.hclust(hc, k = 4)<\/code><\/pre>\n<p>  <\/p>\n<p><img decoding=\"async\" src=\"https:\/\/habrastorage.org\/webt\/bd\/vu\/mn\/bdvumnyqmuhwvzsybm55bdfrzo8.png\"><\/p>\n<p>  <\/p>\n<p>\u0413\u0440\u0443\u0437\u0438\u044f \u0438\u0437 \u0432\u043e\u0441\u0442\u043e\u0447\u043d\u043e\u0433\u043e \u043a\u043b\u0430\u0441\u0442\u0435\u0440\u0430 \u0435\u0434\u0438\u043d\u0441\u0442\u0432\u0435\u043d\u043d\u0430\u044f \u043d\u0435 \u043f\u043e\u043f\u0430\u043b\u0430 \u0432 \u0441\u0432\u043e\u0439 \u0433\u0435\u043e\u0433\u0440\u0430\u0444\u0438\u0447\u0435\u0441\u043a\u0438\u0439 \u043a\u043b\u0430\u0441\u0442\u0435\u0440. \u041f\u043e\u043a\u0430 \u043e\u0442\u043b\u043e\u0436\u0438\u043c \u0438\u043d\u0442\u0435\u0440\u043f\u0440\u0435\u0442\u0430\u0446\u0438\u044e, \u043f\u043e\u0441\u043c\u043e\u0442\u0440\u0438\u043c \u043d\u0430 \u0434\u0440\u0443\u0433\u0438\u0435 \u043c\u0435\u0442\u043e\u0434\u044b.<br \/>  \u041f\u0440\u0438\u0447\u0435\u043c \u0437\u0434\u0435\u0441\u044c, \u043d\u0430\u0432\u0435\u0440\u043d\u043e\u0435, \u043b\u0443\u0447\u0448\u0435 \u0438\u0441\u043f\u043e\u043b\u044c\u0437\u043e\u0432\u0430\u0442\u044c \u0442\u0440\u0438 \u043a\u043b\u0430\u0441\u0442\u0435\u0440\u0430, \u0442\u0430\u043a \u043a\u0430\u043a \u0432 \u0447\u0435\u0442\u0432\u0435\u0440\u0442\u044b\u0439 \u043a\u043b\u0430\u0441\u0442\u0435\u0440 \u0441\u0442\u0440\u0430\u043d\u043d\u043e \u0432\u044b\u0434\u0435\u043b\u0438\u043b\u0438\u0441\u044c \u0432\u0441\u0435\u0433\u043e 4 \u0441\u0442\u0440\u0430\u043d\u044b.<\/p>\n<p>  <\/p>\n<pre><code class=\"plaintext\">plot(clusDendro, main = &quot;Cool Dendrogram&quot;, type = &quot;triangle&quot;) data.hclas_group &lt;- factor(cutree(hc, k = 3))  rect.hclust(hc, k = 3)<\/code><\/pre>\n<p>  <\/p>\n<p><img decoding=\"async\" src=\"https:\/\/habrastorage.org\/webt\/ev\/5p\/zh\/ev5pzhjgadwt7d213fugmjgncvw.png\"><\/p>\n<p>  <\/p>\n<p>\u041a\u043e\u043d\u0435\u0447\u043d\u043e, \u0435\u0441\u043b\u0438 \u043c\u044b \u0445\u043e\u0442\u0438\u043c \u0443\u0432\u0438\u0434\u0435\u0442\u044c \u0438\u043d\u0444\u043e\u0440\u043c\u0430\u0442\u0438\u0432\u043d\u044b\u0439 \u0433\u0440\u0430\u0444\u0438\u043a \u0432 \u0434\u0432\u0443\u0445 \u0438\u0437\u043c\u0435\u0440\u0435\u043d\u0438\u044f\u0445, \u043d\u0443\u0436\u043d\u043e \u0438\u0441\u043f\u043e\u043b\u044c\u0437\u043e\u0432\u0430\u0442\u044c \u043f\u0435\u0440\u0432\u044b\u0435 \u0434\u0432\u0435 \u0433\u043b\u0430\u0432\u043d\u044b\u0435 \u043a\u043e\u043c\u043f\u043e\u043d\u0435\u043d\u0442\u044b. <\/p>\n<p>  <\/p>\n<pre><code class=\"plaintext\">library(FactoMineR) res.pca &lt;- PCA(data,scale.unit=T, graph = F) fviz_pca_biplot(res.pca,                  col = colors[data.hclas_group], palette = &quot;jco&quot;,                  label = &quot;var&quot;,                 ellipse.level = 0.8,                  addEllipses = T,                 col.var = &quot;black&quot;,                 legend.title = &quot;groups4&quot;)<\/code><\/pre>\n<p>  <\/p>\n<p><img decoding=\"async\" src=\"https:\/\/habrastorage.org\/webt\/8p\/7q\/gj\/8p7qgju9dt9etebvdwob6gdejom.png\"><\/p>\n<p>  <\/p>\n<p>\u0422\u0440\u0435\u0442\u044c\u044f \u0433\u0440\u0443\u043f\u043f\u0430, \u043a\u043e\u0442\u043e\u0440\u0430\u044f \u043f\u043e \u0446\u0435\u043d\u0442\u0440\u0443, \u043f\u043e\u0440\u0442\u0438\u0442 \u0432\u0441\u044e \u043a\u0430\u0440\u0442\u0438\u043d\u0443. \u0415\u0441\u043b\u0438 \u0431\u044b \u043e\u043d\u0430 \u0431\u044b\u043b\u0430 \u043f\u043e\u043a\u0443\u0447\u043d\u0435\u0435, \u043c\u043e\u0436\u043d\u043e \u0431\u044b\u043b\u043e \u0433\u043e\u0432\u043e\u0440\u0438\u0442\u044c \u043e \u043a\u043b\u0430\u0441\u0442\u0435\u0440\u0438\u0437\u0430\u0446\u0438\u0438, \u0430 \u0442\u0430\u043a \u044d\u0442\u043e, \u0441\u043a\u043e\u0440\u0435\u0435, \u0441\u0435\u0433\u043c\u0435\u043d\u0442\u0430\u0446\u0438\u044f. \u0412 \u0446\u0435\u043b\u043e\u043c, \u043c\u0435\u0436\u0434\u0443 \u0433\u0440\u0443\u043f\u043f\u0430\u043c\u0438 \u0437\u0430\u043c\u0435\u0442\u043d\u043e \u0440\u0430\u0437\u043b\u0438\u0447\u0438\u0435, \u043f\u043e\u0441\u043c\u043e\u0442\u0440\u0438\u043c, \u043a\u0430\u043a \u0441\u043f\u0440\u0430\u0432\u0438\u0442\u0441\u044f \u043c\u0435\u0442\u043e\u0434 k-\u0441\u0440\u0435\u0434\u043d\u0438\u0445++.<\/p>\n<p>  <\/p>\n<pre><code class=\"plaintext\">library(flexclust) data.kk &lt;- kcca(data, k=3, family=kccaFamily(&quot;kmeans&quot;), control=list(initcent=&quot;kmeanspp&quot;))  fviz_pca_biplot(res.pca,                  col.ind =as.factor(data.kk@cluster), palette = &quot;jco&quot;,                  label = &quot;var&quot;,                 ellipse.level = 0.8,                  addEllipses = T,                 col.var = &quot;black&quot;, repel = TRUE,                 legend.title = &quot;clusters&quot;)<\/code><\/pre>\n<p>  <\/p>\n<p><img decoding=\"async\" src=\"https:\/\/habrastorage.org\/webt\/ix\/pi\/ah\/ixpiahm482ph0jn0i-vfhzu_11q.png\"><\/p>\n<p>  <\/p>\n<p>\u042d\u043b\u043b\u0438\u043f\u0441\u043e\u0438\u0434 \u0442\u0440\u0435\u0442\u044c\u0435\u0439 \u0433\u0440\u0443\u043f\u043f\u044b \u043f\u043e\u043b\u0443\u0447\u0438\u043b\u0441\u044f \u0441\u043b\u0438\u0448\u043a\u043e\u043c \u0448\u0438\u0440\u043e\u043a\u0438\u043c, \u0442\u0430\u043a \u043a\u0430\u043a k-\u0441\u0440\u0435\u0434\u043d\u0438\u0445 \u043f\u044b\u0442\u0430\u0435\u0442\u0441\u044f \u0440\u0430\u0437\u0431\u0438\u0442\u044c \u043d\u0430 \u0440\u0430\u0432\u043d\u044b\u0435 \u043a\u043b\u0430\u0441\u0442\u0435\u0440\u044b. \u0418\u0437 \u0433\u0440\u0430\u0444\u0438\u043a\u0430 \u0432\u0438\u0434\u043d\u043e, \u0447\u0442\u043e \u043c\u0435\u0442\u043e\u0434 \u0432\u043a\u043b\u044e\u0447\u0438\u043b \u0432 \u0442\u0440\u0435\u0442\u0438\u0439 \u043a\u043b\u0430\u0441\u0442\u0435\u0440 \u043b\u0438\u0448\u043d\u0438\u0435 \u0442\u043e\u0447\u043a\u0438, \u043a\u043e\u0442\u043e\u0440\u044b\u0435 \u0441\u043a\u043e\u0440\u0435\u0435 \u0434\u043e\u043b\u0436\u043d\u044b \u043e\u0442\u043d\u043e\u0441\u0438\u0442\u044c\u0441\u044f \u043a \u0434\u0440\u0443\u0433\u0438\u043c \u043a\u043b\u0430\u0441\u0442\u0435\u0440\u0430\u043c.<\/p>\n<p>  <\/p>\n<p>\u0411\u043e\u043b\u044c\u0448\u0435 \u0432\u0441\u0435\u0433\u043e, \u0438\u0441\u0445\u043e\u0434\u044f \u0438\u0437 \u0438\u0441\u0445\u043e\u0434\u043d\u044b\u0445 \u043a\u043b\u0430\u0441\u0441\u043e\u0432, \u043d\u0430 \u043f\u0440\u0430\u0432\u0434\u0443 \u043f\u043e\u0445\u043e\u0436 hclust. \u041f\u0440\u043e\u0438\u043d\u0442\u0435\u0440\u043f\u0440\u0435\u0442\u0438\u0440\u0443\u0435\u043c \u0440\u0435\u0437\u0443\u043b\u044c\u0442\u0430\u0442.<\/p>\n<p>  <\/p>\n<p><img decoding=\"async\" src=\"https:\/\/habrastorage.org\/webt\/bd\/vu\/mn\/bdvumnyqmuhwvzsybm55bdfrzo8.png\"><\/p>\n<p>  <\/p>\n<p>\u041d\u0430\u0438\u0431\u043e\u043b\u0435\u0435 \u043f\u043e\u043b\u043d\u044b\u0439 \u043a\u043b\u0430\u0441\u0442\u0435\u0440, \u0432 \u0441\u043c\u044b\u0441\u043b\u0435 \u0438\u0441\u0445\u043e\u0434\u043d\u043e\u0439 \u043a\u043b\u0430\u0441\u0441\u0438\u0444\u0438\u043a\u0430\u0446\u0438\u0438, \u043e\u0431\u0440\u0430\u0437\u043e\u0432\u0430\u043b\u0438 \u0432\u043e\u0441\u0442\u043e\u0447\u043d\u044b\u0435 \u0441\u0442\u0440\u0430\u043d\u044b. \u041a \u043d\u0438\u043c \u043f\u043e\u043f\u0430\u043b\u0430 \u0410\u043b\u0431\u0430\u043d\u0438\u044f \u0438\u0437 \u0446\u0435\u043d\u0442\u0440\u0430\u043b\u044c\u043d\u043e\u0439 \u0447\u0430\u0441\u0442\u0438. \u0421\u0442\u043e\u0438\u0442 \u043e\u0442\u043c\u0435\u0442\u0438\u0442\u044c, \u0447\u0442\u043e \u0410\u043b\u0431\u0430\u043d\u0438\u044f \u043f\u0440\u043e\u0441\u0442\u0440\u0430\u043d\u0441\u0442\u0432\u0435\u043d\u043d\u043e \u043d\u0430\u0445\u043e\u0434\u0438\u0442\u0441\u044f \u043d\u0435\u0434\u0430\u043b\u0435\u043a\u043e \u043e\u0442 \u0432\u043e\u0441\u0442\u043e\u0447\u043d\u044b\u0445 \u0441\u0442\u0440\u0430\u043d.<\/p>\n<p>  <\/p>\n<p>\u0412\u0442\u043e\u0440\u043e\u0439 \u043a\u043b\u0430\u0441\u0442\u0435\u0440 \u0442\u0430\u043a\u0436\u0435 \u043e\u0447\u0435\u043d\u044c \u043f\u043e\u0445\u043e\u0436 \u043d\u0430 \u0438\u0441\u0445\u043e\u0434\u043d\u043e\u0435 \u0440\u0430\u0437\u0434\u0435\u043b\u0435\u043d\u0438\u0435. \u0412 \u0442\u0440\u0435\u0442\u044c\u0435\u043c \u0436\u0435 \u0432\u0441\u0435 \u043f\u043b\u043e\u0445\u043e. \u0412 \u0438\u0441\u0445\u043e\u0434\u043d\u043e\u0439 \u0432\u044b\u0431\u043e\u0440\u043a\u0435 \u0442\u0430\u043c \u043c\u0435\u043d\u044c\u0448\u0435 \u0432\u0441\u0435\u0433\u043e \u0438\u043d\u0434\u0438\u0432\u0438\u0434\u043e\u0432, \u0438 \u043e\u043d\u0438 \u043e\u0447\u0435\u043d\u044c \u0431\u043b\u0438\u0437\u043a\u0438 \u043f\u043e \u043f\u0440\u0435\u0434\u043f\u043e\u0447\u0442\u0435\u043d\u0438\u044f\u043c \u0432 \u0430\u043b\u043a\u043e\u0433\u043e\u043b\u0435, \u0441\u043e\u0433\u043b\u0430\u0441\u043d\u043e \u0434\u0430\u043d\u043d\u044b\u043c, \u043a \u0446\u0435\u043d\u0442\u0440\u0430\u043b\u044c\u043d\u043e\u0439 \u0447\u0430\u0441\u0442\u0438. \u041c\u043e\u0436\u043d\u043e \u043f\u043e\u043f\u0440\u043e\u0431\u043e\u0432\u0430\u0442\u044c \u0443\u0441\u043b\u043e\u0432\u043d\u043e \u0440\u0430\u0437\u0434\u0435\u043b\u0438\u0442\u044c \u043d\u0430 \u0434\u0432\u0430 \u043a\u043b\u0430\u0441\u0442\u0435\u0440\u0430, \u0442\u0430\u043a \u043a\u0430\u043a \u0432\u0438\u0434\u043d\u043e, \u0447\u0442\u043e \u0434\u043b\u044f \u0438\u043d\u0442\u0435\u0440\u043f\u0440\u0435\u0442\u0430\u0446\u0438\u0438 \u043b\u0443\u0447\u0448\u0435 \u0432\u0441\u0435\u0433\u043e \u0442\u0430\u043a \u0438 \u0441\u0434\u0435\u043b\u0430\u0442\u044c \u0438 \u0440\u0435\u0437\u044e\u043c\u0438\u0440\u043e\u0432\u0430\u0442\u044c \u0431\u0438\u043f\u043e\u043b\u044f\u0440\u043d\u043e\u0441\u0442\u044c \u0415\u0432\u0440\u043e\u043f\u044b. \u0422\u043e\u0433\u0434\u0430 \u043a\u043b\u0430\u0441\u0442\u0435\u0440\u0430 \u043f\u0440\u0430\u043a\u0442\u0438\u0447\u0435\u0441\u043a\u0438 \u0441\u043e\u0432\u043f\u0430\u0434\u0443\u0442 \u0441 \u0412\u043e\u0441\u0442\u043e\u0447\u043d\u043e\u0439 \u0438 \u0417\u0430\u043f\u0430\u0434\u043d\u043e\u0439 \u0415\u0432\u0440\u043e\u043f\u043e\u0439, \u0433\u0434\u0435 \u0432 \u0417\u0430\u043f\u0430\u0434\u043d\u0443\u044e \u0432\u043e\u0439\u0434\u0435\u0442 \u0446\u0435\u043d\u0442\u0440\u0430\u043b\u044c\u043d\u0430\u044f \u0438 \u0417\u0430\u043f\u0430\u0434\u043d\u0430\u044f \u043f\u043e \u0438\u0441\u0445\u043e\u0434\u043d\u044b\u043c \u043e\u0431\u043e\u0437\u043d\u0430\u0447\u0435\u043d\u0438\u044f\u043c.<\/p>\n<p>  <\/p>\n<p>\u041c\u043e\u0436\u043d\u043e \u0431\u044b\u043b\u043e \u0431\u044b \u043f\u0440\u043e\u0432\u0435\u0441\u0442\u0438 \u043a\u043b\u0430\u0441\u0442\u0435\u0440\u0438\u0437\u0430\u0446\u0438\u044e \u043d\u0430 \u043e\u0441\u043d\u043e\u0432\u0435 \u043f\u0440\u0435\u0434\u043f\u043e\u043b\u043e\u0436\u0435\u043d\u0438\u044f \u043e \u043c\u043e\u0434\u0435\u043b\u044f\u0445 \u043a\u043b\u0430\u0441\u0442\u0435\u0440\u043e\u0432, \u0438\u0441\u043f\u043e\u043b\u044c\u0437\u0443\u044f \u0438\u043d\u0444\u043e\u0440\u043c\u0430\u0446\u0438\u043e\u043d\u043d\u044b\u0435 \u043a\u0440\u0438\u0442\u0435\u0440\u0438\u0438 (<a href=\"https:\/\/www.rdocumentation.org\/packages\/mclust\/versions\/5.4.2\/topics\/mclustModelNames\" rel=\"nofollow\">\u0442\u0443\u0442 \u043e\u043f\u0438\u0441\u0430\u043d\u0438\u0435<\/a>), \u0430 \u0442\u0430\u043a\u0436\u0435 \u043f\u043e\u043f\u0440\u043e\u0431\u043e\u0432\u0430\u0442\u044c \u043a\u043b\u0430\u0441\u0441\u0438\u0447\u0435\u0441\u043a\u0438\u0439 \u0434\u0438\u0441\u043a\u0440\u0438\u043c\u0438\u043d\u0430\u043d\u0442\u043d\u044b\u0439 \u0430\u043d\u0430\u043b\u0438\u0437 \u0434\u043b\u044f \u044d\u0442\u043e\u0433\u043e \u043d\u0430\u0431\u043e\u0440\u0430 \u0434\u0430\u043d\u043d\u044b\u0445. \u0415\u0441\u043b\u0438 \u044d\u0442\u0430 \u0441\u0442\u0430\u0442\u044c\u044f \u0431\u044b\u043b\u0430 \u043f\u043e\u043b\u0435\u0437\u043d\u043e\u0439, \u0442\u043e \u043f\u043b\u0430\u043d\u0438\u0440\u0443\u044e \u043e\u043f\u0443\u0431\u043b\u0438\u043a\u043e\u0432\u0430\u0442\u044c \u043f\u0440\u043e\u0434\u043e\u043b\u0436\u0435\u043d\u0438\u0435.<\/p>\n<\/div>\n<p> \u0441\u0441\u044b\u043b\u043a\u0430 \u043d\u0430 \u043e\u0440\u0438\u0433\u0438\u043d\u0430\u043b \u0441\u0442\u0430\u0442\u044c\u0438 <a href=\"https:\/\/habr.com\/ru\/post\/503546\/\"> https:\/\/habr.com\/ru\/post\/503546\/<\/a><\/p>\n","protected":false},"excerpt":{"rendered":"\n<div class=\"post__text post__text-html post__text_v1\" id=\"post-content-body\" data-io-article-url=\"https:\/\/habr.com\/ru\/post\/503546\/\">\n<p>\u041f\u0440\u0438\u0432\u0435\u0442, \u0425\u0430\u0431\u0440! \u0421\u0435\u0433\u043e\u0434\u043d\u044f \u0445\u043e\u0447\u0443 \u043f\u043e\u0434\u0435\u043b\u0438\u0442\u044c\u0441\u044f \u043d\u0435\u0431\u043e\u043b\u044c\u0448\u0438\u043c \u043f\u0440\u0438\u043c\u0435\u0440\u043e\u043c \u0442\u043e\u0433\u043e, \u043a\u0430\u043a \u043c\u043e\u0436\u043d\u043e \u043f\u0440\u043e\u0432\u043e\u0434\u0438\u0442\u044c \u043a\u043b\u0430\u0441\u0442\u0435\u0440\u043d\u044b\u0439 \u0430\u043d\u0430\u043b\u0438\u0437. \u0412 \u044d\u0442\u043e\u043c \u043f\u0440\u0438\u043c\u0435\u0440\u0435 \u0447\u0438\u0442\u0430\u0442\u0435\u043b\u044c \u043d\u0435 \u043d\u0430\u0439\u0434\u0435\u0442 \u043d\u0435\u0439\u0440\u043e\u043d\u043d\u044b\u0445 \u0441\u0435\u0442\u0435\u0439 \u0438 \u043f\u0440\u043e\u0447\u0438\u0445 \u043c\u043e\u0434\u043d\u044b\u0445 \u043d\u0430\u043f\u0440\u0430\u0432\u043b\u0435\u043d\u0438\u0439. \u0414\u0430\u043d\u043d\u044b\u0439 \u043f\u0440\u0438\u043c\u0435\u0440 \u043c\u043e\u0436\u0435\u0442 \u0441\u043b\u0443\u0436\u0438\u0442\u044c \u0442\u043e\u0447\u043a\u043e\u0439 \u043e\u0442\u0441\u0447\u0435\u0442\u0430 \u0434\u043b\u044f \u0442\u043e\u0433\u043e, \u0447\u0442\u043e\u0431\u044b \u0441\u0434\u0435\u043b\u0430\u0442\u044c \u043d\u0435\u0431\u043e\u043b\u044c\u0448\u043e\u0439 \u0438 \u043f\u043e\u043b\u043d\u044b\u0439 \u043a\u043b\u0430\u0441\u0442\u0435\u0440\u043d\u044b\u0439 \u0430\u043d\u0430\u043b\u0438\u0437 \u0434\u043b\u044f \u0434\u0440\u0443\u0433\u0438\u0445 \u0434\u0430\u043d\u043d\u044b\u0445. \u0412\u0441\u0435\u043c \u0437\u0430\u0438\u043d\u0442\u0435\u0440\u0435\u0441\u043e\u0432\u0430\u043d\u043d\u044b\u043c \u2014 \u0434\u043e\u0431\u0440\u043e \u043f\u043e\u0436\u0430\u043b\u043e\u0432\u0430\u0442\u044c \u043f\u043e\u0434 \u043a\u0430\u0442.<\/p>\n","protected":false},"author":1,"featured_media":0,"comment_status":"open","ping_status":"open","sticky":false,"template":"","format":"standard","meta":{"footnotes":""},"categories":[],"tags":[],"class_list":["post-304144","post","type-post","status-publish","format-standard","hentry"],"_links":{"self":[{"href":"https:\/\/savepearlharbor.com\/index.php?rest_route=\/wp\/v2\/posts\/304144","targetHints":{"allow":["GET"]}}],"collection":[{"href":"https:\/\/savepearlharbor.com\/index.php?rest_route=\/wp\/v2\/posts"}],"about":[{"href":"https:\/\/savepearlharbor.com\/index.php?rest_route=\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"https:\/\/savepearlharbor.com\/index.php?rest_route=\/wp\/v2\/users\/1"}],"replies":[{"embeddable":true,"href":"https:\/\/savepearlharbor.com\/index.php?rest_route=%2Fwp%2Fv2%2Fcomments&post=304144"}],"version-history":[{"count":0,"href":"https:\/\/savepearlharbor.com\/index.php?rest_route=\/wp\/v2\/posts\/304144\/revisions"}],"wp:attachment":[{"href":"https:\/\/savepearlharbor.com\/index.php?rest_route=%2Fwp%2Fv2%2Fmedia&parent=304144"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/savepearlharbor.com\/index.php?rest_route=%2Fwp%2Fv2%2Fcategories&post=304144"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/savepearlharbor.com\/index.php?rest_route=%2Fwp%2Fv2%2Ftags&post=304144"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}