Create plot3.R

Be sure to incorporate code from plot1.R to get the Day