title: r scatter plot and regression line issues
body: <p>I am trying to create to regression line for this graph, why is the below code not working?</p>
  <p>After doing so, I need to create a custom legend with labels: black dot named 'actual' and blue dash (corresponding to the line) named 'predicted'</p>
  <pre><code>library(ggplot2)
  d1 &lt;- c(20,30,40,50,60,70)
  d2 &lt;- c(23, 32,41,53,60,69)
  
  df &lt;- data.frame(d1, d2)
  
  
  ggplot(df,aes(x=d1,y=d2)) +
    geom_point(size=1.1)+
    geom_smooth(method = &quot;glm&quot;, 
                method.args = list(family = &quot;binomial&quot;), 
                se = FALSE)  
  </code></pre>