Create plot3.r

Creates the sub-metering graph