Added code to R scipt to produce plot1.png