First version of plot1-4.R