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