Erstellen Sie abgekürzte Legenden manuell für lange X-Beschriftungen in ggplot2

Ich möchte ein einfaches Balkendiagramm mit ggplot2 erstellen und mein Problem ist, dass meine x-Variable lange Strings enthält, so dass die Labels überlagert sind.

Hier sind falsche Daten und die Handlung:

Ich möchte die Beschriftungen durch kürzere ersetzen und eine Legende erstellen, um die Übereinstimmungen anzuzeigen.

Was ich versucht habe:

Ich verwende den form aes-Parameter in geo_point, der eine Legende mit Formen erzeugt (und plottet Formen, die ich mit alpha = 0 verberge). Dann ändere ich die Formen mit scale_shape_manual und ersetze die x-Labels mit scale_x_discrete . Mit guides überschreibe ich den Alpha-Parameter meiner Formen, damit sie in der Legende nicht sichtbar sind.

Es gibt mir die erwartete Ausgabe, aber ich denke, das ist sehr hacky.

Bietet ggplot2 eine Möglichkeit, dies direkter zu tun? Danke.