Elimina 'a' de la leyenda cuando uses estética y geom_text

¿Cómo puedo eliminar la letra 'a' de la leyenda generada por este código? Si quito elgeom_text, entonces la letra 'a' no se mostrará en la leyenda. Quiero guardargeom_text, aunque.

ggplot(data = iris, aes(x = Sepal.Length, y=Sepal.Width, shape = Species, colour = Species)) + 
   geom_point() + 
   geom_text(aes(label = Species))

Respuestas a la pregunta(3)

Su respuesta a la pregunta