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