Create plot4.R

The script for  plot4