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