添加边框到点PCA分析

Question

我想在点上添加边框，这样我就可以使用白色。

我试图利用fill，即使传递的行数等于行数，它也不起作用。此外col.ind无效

library(factoextra)   
data(iris)
res.pca <- prcomp(iris[, -5],  scale = TRUE)
fviz_pca_ind(res.pca, geom.ind = c("point", "text"),
             pointsize = 3, fill.ind="black",
             habillage=iris$Species, pointshape = 19,
             palette = c("white", "orange", "grey"),
             label = "all",
             repel = TRUE ,
             invisible="quali")