R數據顏色的主成分分析

Question

大家好我有一個簡單的問題，但我沒有能夠在任何教程中得到答案。我對一組數據做了一個簡單的主成分分析，然後用雙標繪製我的數據。

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

biplot(CP) 

用這個我得到了我的數據在第一和第二組件的散點圖。我希望按顏色分開我的數據，指示R將我的前20個數據用紅色繪製，接下來20個數據用藍色繪製。我不知道如何告訴R給這兩組數據着色。 任何幫助將非常感激。 THKS！ （IM很新的R）

Answer 1

使用plot()將爲您提供更大的靈活性 - 你可以單獨或與text()使用它的文本標籤作爲初級講座（爲有用的意見感謝@flodel）：

col = rep(c("red","blue"),each=20) 
plot(CP$x[,1], CP$x[,2], pch="", main = "Your Plot Title", xlab = "PC 1", ylab = "PC 2") 
text(CP$x[,1], CP$x[,2], labels=rownames(CP$x), col = col) 

然而如果你想使用biplot()試試這個代碼：

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

Answer 2

免責聲明：這不是一個直接的答案，但可以調整，以獲得期望d輸出。

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))