Update plot1.R

Solution for plot1.png