Create plot4.R

R program to create plot4