title: Labelling points on a geom_point() based on the equation of geom_abline()
body: <p>I have a fun problem for you today. Any help would be amazing.</p>
  <p>I have geom_plot()</p>
  <pre><code>set.seed(1)
  list1 &lt;- sample(10, 100, replace = T)
  list2 &lt;- sample(7, 100, replace = T)
  
  df &lt;- data.frame(list1, list2)
  df
  
  ggplot(data=df, aes(x=list1, y=list2)) + geom_point()
  
  x3 &lt;- c(10,6)
  y3 &lt;- c(1,7)
  
  slope3 &lt;- diff(y3)/diff(x3)
  
  intercept3 &lt;- y3[1] - slope*x3[1]
  
  ggplot(data = df, aes(x=list1, y=list2)) +
    geom_point() + 
    geom_abline(data = NULL, intercept = intercept3, slope = slope3, col=&quot;red&quot;)
  </code></pre>
  <p>What I would ideally like to do is label all the points that lay on, or to the right of the geom_abline()  I have plotted I wanted to use the geom_label_repel() function to make this look tidy, but when I tried this it just labelled every poitn! If possible, I would also like to further subset the data points on or to the right of the plotted geom_abline() in the future based on other criteria.</p>
  <p>Thank you in advance!</p>