How to draw straight line cross center of data in scatter plot?
<p>I wanted to draw a scatter plot with ggplot which <code>geom_smooth()</code> cross center of my data with 45 degree angle not drawing automatically.</p>

<p>As it shows here the geom_smooth() has small slop and I changed different method lm, auto and etc, but there was no difference. </p>

<pre><code>geom_smooth(color = "black", alpha = 0.5, method = "lm", se = F)
</code></pre>

<p>How can I draw line in way exactly cross middle of the pink dots?</p>

<p><a href="https://i.stack.imgur.com/YodT9.png" rel="nofollow noreferrer"><img src="https://i.stack.imgur.com/YodT9.png" alt="enter image description here"></a></p>