Adding plot4.R