first cut plot1.R