Update plot1.R

Edited final