added plot4.R file