Изменить атрибуты легенды в функциях fviz из Factoextra

Question

Я запускаю PCA в R и строю результаты, используя функции 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  

Я пытался решить эту проблему, используя этот пост Не могу изменить шрифты в 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