Create plot2.R

initial commit with final solution