Create plot2.R

The script  for   plot2