Remova 'a' da legenda ao usar estética e geom_text

Como posso remover a letra 'a' da legenda gerada por este código? Se eu remover o geom_text, a letra 'a' não aparecerá na legenda. Eu quero manter geom_text, no entanto. ggplot(data = iris, aes(x = Sepal.Length, y=Sepal.Width, shape = Species, colour = Species)) + geom_point() +...