Create project2plot1.R

This is project2 plot1.R