plot1.png
plot1 r code