Create plot1.R

R code for the first plot - plot1