Как сделать шрифты диаграмм курсивом? (пакет ggplot2 и factoextra)

Question

Я пытаюсь создать график с функцией fviz_pca_ind(), где слова для каждой точки выделены курсивом. Мне удалось оставить названия осей, номера осей и легенды, однако я не могу найти альтернативу словам, которые есть внутри графика. Я не могу найти ничего на этот счет ни в пакете ggplot2, ни в пакете factoextra. Поэтому я надеюсь, что вы можете мне помочь, следуйте приведенному ниже коду и изображению.

# creating data table
lines <- c(1,2,3,55,56,57,120,121,122,123,124)
df <- iris[lines,]
.rowNamesDF(df, make.names=TRUE) <- rep("specie_name", 15)

# calculating pca
library(FactoMineR)
pca <- PCA(df[,1:4], graph = FALSE)

# Plotting PCA
library(factoextra)
fviz_pca_ind(pca, label = "all", habillage = as.factor(df$Species), mean.point = FALSE) +
  ylim(-2,2) + 
  xlim(-4,4) +
  theme_classic() +
  theme() +
  theme(axis.title.y = element_text(face="italic"),
        axis.title.x = element_text(face="italic"),
        axis.text.x = element_text(face="italic"),
        axis.text.y = element_text(face="italic"),
        legend.text = element_text(face="italic")
        ) +
  ggsave("pca.png", width = 15, height = 10, units = "cm", dpi=300)

Answer 1

В этом конкретном случае вы можете установить шрифт слоя 2 на itali c:

lines <- c(1,2,3,55,56,57,120,121,122,123,124)
df <- iris[lines,]
.rowNamesDF(df, make.names=TRUE) <- rep("specie_name", 15)
library(FactoMineR)
pca <- PCA(df[,1:4], graph = FALSE)
library(factoextra)
pv <- fviz_pca_ind(pca, label = "all", habillage = as.factor(df$Species), 
                   mean.point = FALSE) +
    ylim(-2,2) + 
    xlim(-4,4) +
    theme_classic()+
    theme(text = element_text(face="italic"),
          title = element_text(face="italic"),
          plot.caption=element_text(face="italic"),
          plot.tag=element_text(face="italic")
    )
pv$layers[[2]]$aes_params$fontface <- "italic"
pv

^{Создано 05.05.2020 пакетом REPEX (v0.3.0)}