More adjustments to plotRateThroughTime R function