Ich weiß, dass eine identische Frage bereits gestellt wurde.ggplot legend - scale_colour_manual funktioniert nicht

Aber die Frage beinhaltet einen etwas komplizierten Datensatz als den, den ich hier habe, und die Antwort schlägt eine Umstrukturierung der Daten vor und arbeitet dann mit umstrukturierten Daten. Aber das Problem besteht auch bei einfachen Daten, die ich unten habe und die ich nicht lösen kann. Also bitte nicht als Duplikat markieren.

Das Problem: bei Verwendung vonscale_colour_manual in ggplot2 wird die Legende nicht angezeigt.

p <- data.frame(a = runif(10, 1, 2))
ggplot(data=p, aes(x=a)) +
  geom_histogram() +
  geom_vline(aes(xintercept=mean(p$a), colour="mea")) +
  geom_vline(aes(xintercept=median(p$a), colour="med")) +
  scale_colour_manual(name="Statistic",
                      values=c("med"= "red", "mea"="green"))

Jede Hilfe wird gebeten.