どのように私はちょうどGGPLOT

Question

で2つの伝説の1を削除するには、私は次のコードを持っている：

library(ggplot2) 

df  <- data.frame(iris)     # iris dataset 
pca <- prcomp(df[,1:4], retx=T, scale.=T) # scaled pca [exclude species col] 
scores <- pca$x[,1:3]      # scores for first three PC's 

# k-means clustering [assume 3 clusters] 
km  <- kmeans(scores, centers=3, nstart=5) 
ggdata <- data.frame(scores, Cluster=km$cluster, Species=df$Species) 

# stat_ellipse is not part of the base ggplot package 
source("https://raw.githubusercontent.com/tidyverse/ggplot2/master/R/stat-ellipse.R") 


ggplot(ggdata) + 
    geom_point(aes(x=PC1, y=PC2, color=factor(Species)), size=5, shape=20) + 
    stat_ellipse(aes(x=PC1,y=PC2,fill=factor(Species)), 
       geom="polygon", level=0.95, alpha=0.2) + 
    guides(color=guide_legend("Species"),fill=guide_legend("Cluster")) 

この生成します。私はどのように行うこと絵で述べたように

を'Cluster'凡例を削除しますか？

Answer 1

FALSE

ggplot(ggdata) + 
    geom_point(aes(x=PC1, y=PC2, color=factor(Species)), size=5, shape=20) + 
    stat_ellipse(aes(x=PC1,y=PC2, fill=factor(Species)), 
          geom="polygon", level=0.95, alpha=0.2)+ 
    guides(color=guide_legend("Species"), fill = FALSE) 

にご fillガイドを設定します