plot 1
fixing plot1.R