Add plot4.R

Add plot4.R