plot1.R generates histogram