Complete plot1.R and .png