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