着色在PCA曲線

我可以通過一個名爲「日」，這從1-10變化的變量進行分區大型數據矩陣一個傳奇，我想用這個上色我的PCA圖着色在PCA曲線

該作品很好，當我使用下面的代碼：

plot(pca$x,col = day,pch=20)

但是當我嘗試添加一個傳奇表現哪天每種顏色是指：

legend("topleft", pch = 20, col=day, legend = c("Day 1","Day 2","Day 3","Day 4","Day 5","Day 6","Day 7","Day 8","Day 9","Day 10"), bty='n', cex=.75)

我得到這個。如何讓傳說的情節??顯示各個顏色： enter image description here

這可能是因爲'day'包含儘可能多的顏色數據點，但傳說你只需要十位。也許'唯一（一天）'就夠了，但這取決於你的數據是如何組織的。 –

您可以使用

legend("topleft", col=1:10, legend = paste("Day", 1:10), 
    pch = 20, bty='n', cex=.75)

要清除了一點東西。圖例只應指定您在圖中使用的不同顏色。

2014-05-18 17:30:20 MrFlick

對於mtcars這會工作：

with(mtcars, plot(mpg, wt, col=cyl)) 
with(mtcars, legend("topright", pch = 20, col=unique(cyl), legend = unique(cyl)))

也許你可以用你的數據做了同樣的方式。

或者，如果你使用GGPLOT2：

qplot(wt, mpg, data=mtcars, colour=factor(cyl))

2014-05-18 17:32:27

回答