CO2.graph <- CO2.graph + facet_grid(. ~ Type)
CO2.graph