plot1

r and graph