CO2.graph <- ggplot(data = CO2, aes(x = conc, y = uptake, colour = Treatment)) +
    geom_point() +
    xlab("Concentration en CO2 (mL/L)") +
    ylab("Absorption de CO2 (umol/m^2 sec)") +    
    ggtitle("Absorption de CO2 par une espèce de graminée") +
    geom_smooth(method = "loess")
CO2.graph