Update plot4.R

fixed sub metering chart