Create plot1.R

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