commiting plot1.R