1
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))

efa1ipfA是基因名称。我只想用斜体显示这两个基因名称。但在 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)
4

0 回答 0