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