first implementation of plot1-4.R and results (plot1-4.png)