First version - code R plotting plot1.png