library(factoextra)#可视化library(FactoMineR)#PCA聚类library(tidyverse)df<-iris%>%select(-Species)%>%na.omit()%>%scale()%>%scale(center=TRUE,scale=FALSE)res.pca<-PCA(df,ncp=3,graph=FALSE)res.hcpc&l