title: how to extract intercept and slope from a plot for large number of variables
body: <p>I am trying to extract intercepts and slopes for 500 variables from a qplot. The code I am using:</p>
  
  <pre><code>qplot(gd, nd, data = test, colour = factor(ENT)) + 
    geom_smooth(method = "lm", se = FALSE)
  </code></pre>
  
  <p>Could someone help me extract the intercept and slope for each regression line (500 lines/variables) as plotted in the attached figure.</p>
  
  <p><img src="https://i.stack.imgur.com/khi5l.png" alt=""></p>