Create plot2.R

Second plot