plot4.R updated code
plot4.png from updated code