First cut of plot4.R script and immage