ggbiplot - 更改組顏色和標記

Question

在示例ggbiplot腳本圖中有3組，我如何更改標記的顏色和形狀？

library(ggbiplot) 
data(wine) 
wine.pca <- prcomp(wine, scale. = TRUE) 
ggbiplot(wine.pca, obs.scale = 1, var.scale = 1, group=wine.class, 
     varname.size = 3, labels.size=3, 
     ellipse = TRUE, circle = TRUE) + 
    scale_color_discrete(name = '') + 
    geom_point(aes(colour=wine.class), size = 3) + 
    theme(legend.direction ='horizontal', 
     legend.position = 'top') 

Answer 1

以下適用於我。

ggbiplot(wine.pca, obs.scale = 1, var.scale = 1, group=wine.class, 
    varname.size = 3, labels.size=3, ellipse = TRUE, circle = TRUE) + 
scale_color_manual(name="Variety", values=c("orange", "purple", "green")) + 
scale_shape_manual(name="Variety", values=c(17:19)) + 
geom_point(aes(colour=wine.class, shape=wine.class), size = 3) + 
theme(legend.direction ="horizontal", 
     legend.position = "top") 

對於傳說中，招似乎是使用相同的name爲scale_color_manual和scale_shape_manual。