Create plot2.R

#made with RStudio