Added plot4.R plot4.png