CO2.graph <- CO2.graph + 
    geom_line(aes(group = Plant))
CO2.graph