Trazo un gráfico de 2 geom_point con el siguiente 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')

Simplemente quiero saber cómo agregar una leyenda en el lado derecho. Con la misma forma y color. El triángulo rosa debe tener la leyenda "mujer" y el círculo azul a la leyenda "hombres". Parece bastante simple pero después de muchas pruebas no pude hacerlo. (Soy un principiante con ggplot).