Dwa geom_punkty dodają legendę

Tworzę wykres 2 geom_point z następującym kodem:

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

Chcę tylko wiedzieć, jak dodać legendę po prawej stronie. Z tym samym kształtem i kolorem. Trójkąt różowy powinien mieć legendę „kobieta” i niebieski okrąg legendę „mężczyźni”. Wydaje się całkiem proste, ale po wielu próbach nie mogłem tego zrobić. (Jestem początkującym z ggplot).

questionAnswers(2)

yourAnswerToTheQuestion