Move code elements common to all four plots to the projectfunction.R file
Source it in plot#.R
add the code to check for the data file and download and unzip