4 r scripts for 4 plots and get_data script for load, unzip and subset data