similar aesta pregunta, Quiero cambiar la "a" predeterminada en la leyenda, pero en lugar de eliminarla por completo, quiero reemplazarla con las etiquetas. Es decir, la primera línea de la leyenda debe tener un icono de color con la etiqueta "se" con el nombre completo "setosa" a la derecha.

iris$abbrev = substr( iris$Species, 1, 2 )

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