Удалите 'a' из легенды при использовании эстетики и geom_text

Как я могу удалить букву «а» из легенды, созданной этим кодом? Если я уберу geom_text, буква «а» не будет отображаться в легенде. Но я хочу сохранить geom_text. ggplot(data = iris, aes(x = Sepal.Length, y=Sepal.Width, shape = Species, colour = Species)) + geom_point() + geom_text(aes(label =...