R数据颜色的主成分分析

大家好，我有一个简单的问题，但在任何教程中我都找不到答案。我对一组数据做了一个简单的主成分分析，然后用biplot绘制了我的数据

CP <- prcomp(dat, scale. = T)
summary(CP)

biplot(CP)

CP使用
plot（）
将为您提供更大的灵活性-您可以单独使用，也可以与
text（）
一起使用，用于文本标签，如下所示（感谢@flodel提供有用的注释）：

但是，如果要使用
biplot（）
请尝试以下代码：

biplot(CP$x[1:20,], CP$x[21:40,], col=c("red","blue"))

免责声明：这不是一个直接的答案，但可以调整以获得所需的输出

library(ggbiplot)
data(wine)
wine.pca <- prcomp(wine, scale. = TRUE)
print(ggbiplot(wine.pca, obs.scale = 1, var.scale = 1, groups = wine.class, ellipse = TRUE, circle = TRUE))

库（ggbiplot）
数据（葡萄酒）
葡萄酒
library(ggbiplot)
data(wine)
wine.pca <- prcomp(wine, scale. = TRUE)
print(ggbiplot(wine.pca, obs.scale = 1, var.scale = 1, groups = wine.class, ellipse = TRUE, circle = TRUE))