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 являются именами генов. Я хочу представить только эти два генных названия курсивом. Но сохраняйте "GM" и "CZ" обычным шрифтом на графике PCA.
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)