PCA分析去除质心

Al1*_*l14 5 r pca factoextra

我用来fviz_pca_ind制作 PCA 图,如下所示。

 fviz_pca_ind(res.pca,  geom="point",  pointsize = 1, habillage=iris$Species, addEllipses=TRUE, ellipse.level=0.95
             , palette = c("green", "orange", "grey")) 
Run Code Online (Sandbox Code Playgroud)

我想删除质心,但保留我得到的不同颜色和椭圆habillage=iris$Species

col.ind需要一个元素数量等于行数的向量。

Mar*_*dri 7

这是删除质心的方法:

library(factoextra)
data(iris)
res.pca <- prcomp(iris[, -5],  scale = TRUE)
fviz(res.pca, element="ind", geom="point",  pointsize = 1, 
              habillage=iris$Species, addEllipses=TRUE, ellipse.level=0.95, 
              palette = c("green", "orange", "grey"), invisible="quali") 
Run Code Online (Sandbox Code Playgroud)

在此输入图像描述