Added plot1-4.R and png