Draw arrow ending on line of best fit with ggplot2 and grid

I am trying to annotate a ggplot2 line of best fit for a scatterplot with an arrow.

Draw arrow ending on line of best fit with ggplot and grid

I am trying to annotate a ggplot line of best fit for a scatterplot with an arrow.