updating plot4.R to scale the sub metering legend