plot1 R Code