When ledgends are sorted by shape and colour on the same categorical variable the VI() description is long and repeditive about brailler

[boringNectarine0]

For example:

Iris<-ggplot(iris) +
geom_point(aes(y=Sepal.Width, x=Sepal.Length, shape=Species, col=Species))

VI(Iris) gives the description:

This is an untitled chart with no subtitle or caption.
It has x-axis 'Sepal.Length' with labels 5, 6, 7 and 8.
It has y-axis 'Sepal.Width' with labels 2.0, 2.5, 3.0, 3.5, 4.0 and 4.5.
There is a legend indicating shape is used to show Species, with 3 levels:
setosa shown as solid circle shape,
versicolor shown as solid triangle shape and
virginica shown as solid square shape.
There is a legend indicating colour is used to show Species, with 3 levels:
setosa shown as strong reddish orange colour,
versicolor shown as vivid yellowish green colour and
virginica shown as brilliant blue colour.
The chart is a set of 150 points.

Ideally this needs a total re-write to shorten it. The ideal shorter description would be similar to:

This is an untitled chart with no subtitle or caption.
It has x-axis 'Sepal.Length' with labels 5, 6, 7 and 8.
It has y-axis 'Sepal.Width' with labels 2.0, 2.5, 3.0, 3.5, 4.0 and 4.5.
There is a legend indicating shape and colour are used to show Species, with 3 levels:
setosa shown as strong reddish orange solid circle,
versicolor shown as vivid yellowish green solid triangle and
virginica shown as brilliant blue solid square.

This would take some work and new helper functions for checking for repeated categorical variables as well as possibly a function to ensure the colours/fill and shapes given in one sentence are in a logical order.