plot4

complete plot4.R and plot4.png