created plot4.R