Легенда ggplot не работает с scale_colour_manual

Я знаю, идентичный вопрос был задан ранее.легенда ggplot - scale_colour_manual не работает

Но этот вопрос связан с несколько более сложным набором данных, чем тот, который у меня есть, и ответ предполагает реструктуризацию данных, а затем работу с реструктурированными данными. Но проблема сохраняется даже с простыми данными, как у меня ниже, и я не могу ее решить. Поэтому, пожалуйста, не отмечайте это как дубликат.

Проблема: при использованииscale_colour_manual в ggplot2 легенда не отображается.

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"))

Любая помощь приветствуется.

Ответы на вопрос(1)

Ваш ответ на вопрос