Added plot4.R script