Подобно этому вопросу, я хочу изменить по умолчанию "а" в легенде, но вместо того, чтобы полностью удалить его, я хочу заменить его самими ярлыками. То есть, первая строка легенды должна иметь цветной значок с надписью "se" с полным именем "setosa" справа.
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))