names(ghgs07)<-c('Agriculture','Energy','Industry','Waste','Solvents') png(file="NZ-ghgs-sector-w650h550-2007.png",pointsize = 16,width=650,height=550) par(mar=c(6,7,6...