first version of plot1.R, the basis