plot4.R file added