plots 1-4

R source and png result