Combina los gráficos base y ggplot en la ventana de figura R

Me gustaría generar una figura que tenga una combinación de gráficos base y ggplot. El siguiente código muestra mi figura utilizando las funciones de trazado...