Create plot4.R

initial version of plot4.R