Eu sei que uma pergunta idêntica foi feita anteriormente.Legenda do ggplot - scale_colour_manual não está funcionando

Mas a pergunta envolve um conjunto de dados um pouco complicado do que o que tenho aqui e a resposta sugere a reestruturação dos dados e, em seguida, trabalha com os dados reestruturados. Mas o problema persiste mesmo com dados simples, como eu tenho abaixo e não consigo resolvê-lo. Portanto, não marque-o como duplicado.

O problema: ao usarscale_colour_manual no ggplot2, a legenda não está aparecendo.

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

Qualquer ajuda é apreciada.