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)