Create plot3.R

The script  for  plot3