ggsave("CO2 plot.pdf", CO2.plot, height = 8.5, width = 11, units = "in")