Два geom_points добавить легенду
Я строю график 2 geom_point со следующим кодом:
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')
Я просто хочу знать, как добавить легенду с правой стороны. С одинаковой формой и цветом. Розовый треугольник должен иметь легенду «женщина», а синий кружок - легенду «мужчина». Кажется довольно простым, но после многих испытаний я не смог этого сделать. (Я начинающий с ggplot).