R语言用列数据画PCA带椭圆图

library("FactoMineR")
library("factoextra")
library("dplyr")
data = read.csv("G:/TPTNW.csv",row.names = "gene_id")
这是分组信息

datagroup = read.csv("G:/TPTNWgroup.csv")
t()用于转换矩阵行列，用起来方便省事

verdata = t(data)
res.pca <- PCA(verdata, graph = FALSE)
将同一组的individuals圈在一起

fviz_pca_ind(res.pca,
        geom.ind = c("point","text"), # 表现点与笔墨        col.ind = datagroup$group, #以组分颜色，这里直接上面导入的group信息即可        palette = c("#00AFBB", "#E7B800", "#FC4E07"), #颜色        addEllipses = TRUE, #画椭圆        legend.title = "Groups" #分组名)