仅在r的PCA图中用基因名称的斜体设置标签字体

Question

library(factoextra)
library(FactoMineR)

dt <- data.frame(GM = c(1,1,0,1,0,1,0,1,1,1),
                 CZ = c(0,0,1,1,1,0,0,1,1,1),
                 efa1 = c(1,1,1,0,0,0,1,1,1,0),
                 ipfA = c(1,0,0,0,0,0,0,1,1,0))

efa1 和 ipfA 是基因名称。我只想用斜体表示这两个基因名称。但是在PCA图中将“ GM”和“ CZ”保留为常规字体。

res.pca <- PCA(dt,  graph = FALSE)

# for pca plot
fviz_pca_var(res.pca,label = "var", col.var = "contrib",
             gradient.cols = c("blue", "green", "red"), repel = TRUE)