Update Plot2.R

Correcting thecode