Ich habe einen ggplot, in dem ich Faktoren sowohl für die Füllung als auch für die Alpha abbilde:

set.seed(47)
the_data <- data.frame(value = rpois(6, lambda=20),
                       cat1 = rep(c("A", "B"), each = 3),
                       cat2 = rep(c("X", "Y", "Z"), 2))

ggplot(the_data, aes(y = value, x = cat2, alpha = cat1, fill = cat2)) +
    geom_bar(stat = "identity", position = "dodge") +
    scale_alpha_discrete(range = c(0.5, 1)) +
    theme_bw()

Die Leute, für die ich es produziere, finden die Legende für Alpha nicht sehr klar. Ich denke, eine gute Alternative wäre so etwas (was ich in Basisgrafiken zusammen gehackt habe):

Ich weiß, dass ich mit hochrangigen ggplot-Befehlen keine solche Legende erzeugen kann, aber ich kann es ingrid und es auf mein Grundstück legen?