sapply(pc, class)
pc$gen <- as.factor(pc$gen)
rownames(pc)<-pc$gen
pc2<-pc[,-1]
rownames(pc2)<-pc$gen
View(pc)
library(ggplot2)
library(factoextra)
library(FactoMineR)
head(pc)
res <- hcut(pc2, k = 5, stand = TRUE)

fviz_dend(res, rect = TRUE, cex = 1.2, labels_track_height=3, k_colors = c("darkblue", "darkred", "darkgreen", "black", "chocolate4", "hotpink", "chocolate","purple"))