Create plot4.R

R code for the fourth plot. Data should be in the same folder.