Split out total emissions by type and use ggplot2