传奇不会出现，因为我使用填充而不是颜色

Question

我有以下情节：

kleinebox<-ggplot(iris, aes(x=Petal.Length, y=Sepal.Length))+
  geom_point(aes(fill=Species), colour="black", pch=21, size=4)+
  scale_fill_manual(values = c("#D89000","#35A2FF","#FA62DB"), 
  breaks = c("#D89000","#35A2FF","#FA62DB"), 
  labels = c("setosa", "versicolor", "virginica")) +
  theme(plot.title = element_text(hjust = 0.2, size=20), legend.position = "right")

不幸的是，没有传说出现。这是因为我在aes(fill=..)中使用geom_point()。因为如果我使用geom_point(aes(colour=Species), pch=21, size=4)就有一个传奇。但我需要更改我的点的（填充）颜色，因为我使用pch = 21，这是一个彩色点，但边缘是黑色的。我需要这个来进行对比。