added the missed out plot4.R file