Легенда 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"))
Любая помощь приветствуется.