
# Créer le boxplot avec ggplot2
grPgtg <- ggplot(Pgtg, aes(x = Test, y = Poids, fill = Jour)) +
  geom_boxplot() + # Ajouter les boxplots au graphique
  facet_grid(~ Forme) + # Séparer le graphique en fonction des valeurs de la colonne Forme
  labs(title = 'Boxplot des Poids par Test et Forme', # Ajouter un titre au graphique
       x = 'Test',
       y = 'Poids') +
  theme_minimal() # Utiliser un thème minimal pour le graphique

# Afficher le graphique
print(grPgtg)


mwT6J3<-wilcox.test(Pg$Poids[Pg$Forme=="Test6" & Pg$Jour=="J3"],Ptg$Poids[Ptg$Forme=="Test6" & Ptg$Jour=="J3"],paired=FALSE)
mwT6J7<-wilcox.test(Pg$Poids[Pg$Forme=="Test6" & Pg$Jour=="J7"],Ptg$Poids[Ptg$Forme=="Test6" & Ptg$Jour=="J7"],paired=FALSE)
mwT8J3<-wilcox.test(Pg$Poids[Pg$Forme=="Test8" & Pg$Jour=="J3"],Ptg$Poids[Ptg$Forme=="Test8" & Ptg$Jour=="J3"],paired=FALSE)
mwT8J7<-wilcox.test(Pg$Poids[Pg$Forme=="Test8" & Pg$Jour=="J7"],Ptg$Poids[Ptg$Forme=="Test8" & Ptg$Jour=="J7"],paired=FALSE) je voudrais integrer les pvalue dans le graph