r - ggplot 图例不适用于 scale_colour_manual

Question

我知道之前有人问过一个相同的问题。 ggplot legend - scale_colour_manual not working

但是这个问题涉及一个比我这里的数据稍微复杂的数据集，答案建议重组数据，然后使用重组的数据。但是，即使使用下面的简单数据，问题仍然存在，我无法解决。所以请不要将其标记为重复。

问题:使用时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"))

任何帮助表示赞赏。

Answer 1

您必须使用 show_guide=TRUE在 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"))