title: Adding legend with geom_point
body: <p>I need to add the legend for some geom_point I am adding in a geom_line graph. The example goes below.</p>
  
  <pre><code>require(dplyr)
  require(ggplot2)
  set.seed(1111)
  </code></pre>
  
  <h1>My Objects</h1>
  
  <pre><code>Sum &lt;- sample(1:50, 10)
  year &lt;- c(1990:1999)
  index.one &lt;- sample(0:1, 10,replace=TRUE)
  index.two &lt;- sample(0:1, 10,replace=TRUE)
  
  df &lt;- data_frame(Sum, year, index.one, index.two)
  </code></pre>
  
  <h1>Graph</h1>
  
  <pre><code>graph &lt;- ggplot(df, aes(x=year,y=Sum))+ geom_line() +
  geom_point(data=df[df$index.one==1,], aes(x=year, y=Sum), colour="red", 
  fill="red", shape=22) +
  geom_point(data=df[df$index.two==1,], aes(x=year, y=Sum), colour="blue", 
  fill="blue", shape=22) +
  scale_x_continuous(breaks = seq(1990,1999, by=1))
  </code></pre>
  
  <p><a href="https://i.stack.imgur.com/pjbhT.png" rel="nofollow noreferrer">graph</a></p>
  
  <p>I need to add the legend for the blue and red points in the graph. </p>
  
  <p>Thank you!</p>