library(cluster)    # clustering algorithms
library(factoextra) # clustering algorithms & visualization
library(readxl)
u <- read_excel("C:/v.xlsx")
cvbb<-u[,4:43]
cl<-hclust(dist(scale(cvbb)),"centroid" )
plot(cl, hang = -1)