Plot 1 done

Have code that gets the zip file from the internet, unzips it,
loads the data into R and makes plot 1