Extrahieren Sie PC1 und PC2 in R.

pca <- prcomp(data, center=T, scale.=T)
individuals <- as.data.frame(pca$x[,1:2])
Laughing Lobster