How to represent before/after changepoint trends using geom_smooth (ggplot2)

Question

I have a dataset composed of 3 variables evolving through time. I mapped it using ggplot2 and geom_point. I identified a common changepoint in 2013.