Created plot4.R

Contains code to arrive at plot4.png