我为此使用了“factoextra”、“sf”包。这里 df 是包含 PCA 数据的数据帧。在这里,我添加了另一列引用我的数据标签。在代码中,col.ind= df$lab.id 表示我已将标签id(标签)作为颜色索引。因此,在生成的 PCA 分数图中,我的分数根据它们的标签进行了颜色编码。
fviz_pca_ind(PCA,axes=c(1,2),title="PC1 vs PC2",label="none",geom.ind="point",col.ind=df$lab.id,palette="lancet",addEllipses=FALSE, ellipse.level=0.95,pointsize=2,
repel = TRUE, # Avoid text overlapping,
legend.title="Disease ",mean.point=FALSE,xlab=paste0("PC1: ",round(Variance_xplained[1]*100,1),"%"),ylab=paste0("PC2: ",round(Variance_xplained[2]*100,1),"%")
)