Nuage de points avec différents polygones en fond de graphique

Bonjour,

Je souhaite représenter des points (2 séries de données ainsi qu'une indication texte sur chaque point)
sur un graphique dont le fond est découpé en plusieurs polygones de couleur différente.

J'ai essayé de combiner un ggplot contenant tous mes points avec texte (sans le fond avec les différents polygones),
cela fonctionne mais après compliqué d'intégrer les polygones.

Je sais tracer mes trois polygones avec des datas frames et la commande geom_polygon mais impossible de relier à mes points ensuite.

Voici le détail des 2 bouts de scripts avec les intitulés des jeu de données:

##script nuage de points sans polygone##
# "Data_rapport" est le nom de mon jeu de données contenant une colonne "Lait" et une colonne "CH4" avec des valeurs numériques,
une colonne "Exploitation" avec des données textes qualitatives ("Vous" et "Département") et une colonne "Controle" avec des dates,
ce sont ces dates qui doivent apparaitre à côte de chaque point.#

Data_rapport%>%
ggplot(aes(x=Lait_moyen, y=CH4_moyen, col=Exploitation))+
geom_point(shape=15,size=3.5)+
geom_text_repel(aes(label=Controle, size=0.2,hjust=-0.2,vjust=1.5))+
geom_abline(slope=15.05, intercept=-42, col="red",size=1.5)+
geom_abline(intercept=429, slope=0,col="blue",size=1.5)+
xlab("PL (kg/jour)")+
ylab("CH4 (g/jour)")+
ggtitle("Graph du CH4 en fonction de la PL")

###script fond polygones sans nuage de points###
#j'arrive à avoir un nuancier de couleur avec la commande "values" mais je préférerais choisir les couleurs manuellement:
une zone rouge, une orange et une verte#

ids <- factor(c("1.1", "2.1", "1.2"))

values <- data.frame(
id = ids,
value = c(460,429,390))

positions <- data.frame(
id = rep(ids, each = 4),
x = c(29, 27, 27, 31, 32, 29, 31, 32, 32, 27, 27, 32 ),
y = c(390, 390, 429, 429, 390, 390, 429, 429, 429, 429, 460,460))


datapoly <- merge(values, positions, by = c("id"))

p <- ggplot(datapoly, aes(x = x, y = y)) +
geom_polygon(aes(fill = value, group = id))+
xlab("PL (kg/jour)")+
ylab("CH4 (g/jour)")+
ggtitle("Graph du CH4 en fonction de la PL")

p

###########

Merci de votre aidePièce jointe 634708