Create plot1.R

load in data and plot first emissions graph