从fviz_pca包自定义函数FactoExtra中的点形

Question

我一直在努力更改R包fviz_pca中函数FactoExtra中的输出图中的默认点形状。

该情节出现在一个特定的顺序*点形状，我想要自定义。

*相应的形状分别为16、17、15、12、0、8

    fviz_pca_biplot(PCA, axes = c(1, 2), 
            label="var", col.var = "black", #setas
            geom = "point", pointsize = 2, col.ind=PCADF$groups, 
            addEllipses = TRUE, ellipse.level = 0.95,
            ellipse.type ="confidence", palette = "aaas") + theme_minimal()

我试着添加了这个函数：

  geom_point(aes(shape = c(19,20,21,22,23,24)))

它还给了我一条错误信息：

geom1中的错误：“环境”类型的对象不可替换

有任何建议来管理和自定义函数fviz_pca中的点形状吗？

Answer 1

我们可以使用scale_shape_manual()，就像使用ggplot2对象一样：

library(factoextra)

data(iris)
res.pca <- prcomp(iris[, -5],  scale = TRUE)

fviz_pca_ind(res.pca,axes = c(1, 2), 
             label="var", col.var = "black", #setas
             geom = "point", pointsize = 2, col.ind=iris$Species, 
             addEllipses = TRUE, ellipse.level = 0.95,
             ellipse.type ="confidence", palette = "aaas") + theme_minimal()+
  scale_shape_manual(values=c(19,20,21))

​

​