Lectura del Dataset

kmed <- pam(df1,3,metric = "euclidean",stand = FALSE)

K-mediods resultantes con etiquetas de artista

ggplotly(fviz_cluster(kmed,data= kmedclus_meta, palette=c("#00AFBB","#FC4E07","#2E9FDF","#E7B800"),
             ellipse.type = "t",
             repel = TRUE,
             ggtheme = theme_classic()
               )+
  geom_text(label = kmedclus_meta$artist))