Eu traço um gráfico de 2 geo_ pontos com o seguinte código:

source("http://www.openintro.org/stat/data/arbuthnot.R")
library(ggplot2)
ggplot() +
  geom_point(aes(x = year,y = boys),data=arbuthnot,colour = '#3399ff') +
  geom_point(aes(x = year,y = girls),data=arbuthnot,shape = 17,colour = '#ff00ff') +
  xlab(label = 'Year') +
  ylab(label = 'Rate')

Eu simplesmente quero saber como adicionar uma legenda no lado direito. Com a mesma forma e cor. Triângulo rosa deve ter a lenda "mulher" e círculo azul a legenda "homens". Parece bem simples, mas depois de muitos testes eu não consegui. (Eu sou um iniciante com ggplot).