R: how do you add a red dot line in residual plot for funnel type shape?

I want to add a red dot line in the residual scatterplot in R to look like the one from SPSS.

So it is clear for you to say there is a funnel type pattern in the residual plot, then the residual does not have a constant variance?