Added plot4.R