Я использовал пакеты "factoextra", "sf" для этого. Здесь df - фрейм данных, который содержит данные для PCA. Здесь я добавил еще один столбец, ссылающийся на метки моих данных. В коде col.ind = df $ lab.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),"%")
)