Create plot4.R

R code for png4 includes reading of data, subsetting and creation of png