如何我刚刚删除这两个传说中的一个GGPLOT

Question

我有以下代码：

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

将会产生这样的：

如该图说怎么办我只是删除'集群'的传说？

Answer 1

设置你的fill指南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)