CO2.graph + scale_y_continuous(name = "Taux d'absorption de CO2",
                              breaks = seq(5, 50, by = 10),
                              labels = seq(5, 50, by = 10), 
                              trans = "log10")