Elimine 'a' de la leyenda cuando use estética y geom_text

¿Cómo puedo eliminar la letra 'a' de la leyenda generada por este código? Si elimino el geom_text, la letra "a" no se mostrará en la leyenda. Aunque quiero quedarme geom_text. ggplot(data = iris, aes(x = Sepal.Length, y=Sepal.Width, shape = Species, colour = Species)) + geom_point() +...