Plot with geom_smooth(,) multiple colours, double y-axis with four variables in ggplot2

Question

I have an issue with ggplot2 plotting system with R.

I would like to print a graph, scatterplot + smoothing with two grades (ref) and two variable each (