Pequeño arreglo en la entrada anterior.

Al final enconté la solución en la extraña representación. Los ejes estaban alrevés.
Aquí os dejo los nuevos scripts y como queadarían bien representadas las solucioens.
En el resto de scripts bastaría cambiar lo siguiente :
  annotation_custom(grob = image_1, # Image
                    xmin= 0, # Coordinates to represent the image
                    xmax= 1000,
                    ymin= 0,
                    ymax= 700 # Ahora ya ajustará bien
                   
  ) +

---

En este script solo hay que fijarse en las dos últimas lineas donde hago el cambio de coordenas para que ajuste correctamente en las gráficas.

---

---

---

---