Update plot3.R

changing factor to numeric for Sub_metering_1 and Sub_metering_2 variable
so that the plot looks exactly like the one given in assignment.