Add a point (lollipop alike) at end of a smooth line in ggplot2

Question

I would like to add a point (lollipop alike) at the end of a smooth line in ggplot2.

This is the current graph:

and this is the graph I would like to get (ima