update of R script and png for plot 4