finished plot4.R and produced plot4.png