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

任何帮助表示赞赏。

你必须使用show_guide=TRUE in geom_vline（默认为FALSE):

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