Create plot2.R

hope this works