Add legend to geom_vline

Question

I know that this question has been asked before but the solutions don\'t seem to work for me.

What I want to do is represent my median, mean, upper and lower quanti

Answer 1

You need to map the color inside the aes:

ggplot(aes(x = Sepal.Length), data = iris) + 
  geom_histogram(color = 'black', fill = NA) + 
  geom_vline(aes(xintercept=median(iris$Sepal.Length),
                 color="median"), linetype="dashed",
             size=1) +
  geom_vline(aes(xintercept=mean(iris$Sepal.Length),
                 color="mean"), linetype="dashed",
             size=1) +
  scale_color_manual(name = "statistics", values = c(median = "blue", mean = "red"))