从Factoextra更改fviz函数中的图例属性

Question

我正在R中运行PCA，并使用fviz包中的Factoextra函数来绘制结果。我想使用此代码更改图例属性，例如标题和值

    acp<-PCA(params_alpha, scale.unit = TRUE, ncp=5, quali.sup=c(1,2))

    plot1<-fviz_pca_biplot(acp, geom=c("point"), pointsize=1, col.var="black", axes=c(1,2), habillage=2)+
   theme(legend.text = element_text("Lobulo"))

我在这里有两个主要问题：首先，当我运行代码时出现此错误：

    In grid.Call(C_textBounds, as.graphicsAnnot(x$label), x$x, x$y, : font family not found in Windows font database  

我尝试使用这篇文章Can't change fonts in ggplot/geom_text解决此问题，但效果不佳。关于此代码的另一个问题是，图例属性根本没有更改。

我只想更改图例标题和值，但我不知道如何。如果您能帮助我，我将非常感激。

Answer 1

我一直在研究，可以找到解决问题的方法。这是我使用的代码

    plot1<-fviz_pca_biplot(acp, geom.ind="point", pointsize=1, col.var="black", axes=c(1,2), col.ind=params_alpha$lob ,pointshape=19) +
    scale_color_manual(name = "Lobulo", labels = c("Frontal", "Occipital", "Parietal", "Temporal"),
                 values= c("red","blue","orange","forestgreen"))

我还进行了一些更改，以调整点的形状和颜色。我希望它对其他人有用。

此链接也很有用https://rstudio-pubs-static.s3.amazonaws.com/323416_ab58ad22d9e64ba2831569cf3d14a609.html