Визуализация дендрограммы для метода главных компонент PCA в RStudio

Использованный датасет - TeachingRatings

*цветом обозначены кластеры

____________________________________________________________________________________
Код:

library(readxl)
library(FactoMineR)
library(factoextra)

TeachingRatings <- read_excel("TeachingRatings.xls")
mod1 <- PCA(TeachingRatings)
mod1_clust <- HCPC(mod1)

fviz_dend(mod1_clust, cex = 0.6, lwd = 0.8, k = 4,
rect = TRUE,
k_colors = "jco",
rect_border = "jco",
rect_fill = TRUE,
type = "phylogenic", repel = TRUE)

#graph_R
#PCA