Corrected Plot2.R to create correct graph