Histogram dynamic max-value

Um die Pesticide-Load zu plotten habe ich ein histogram plot erstellt. Ich würde gerne - wie jetzt - alle drei insects gleichzeitig im Plot abbilden. Die unterschiedlichen Insektengruppen haben unterschiedliche Höchstwerte (X-Achse) an pesticide-loads. Um das irgendwie dynamisch anzupassen, habe ich das mit

let max-load max values
if max-load = 0 [set max-load 1]
set-plot-x-range 0 max-load ;x-axis

versucht. Es geht auch, aber manchmal sieht es es sehr durcheinander aus, wenn alle drei Insekten angeschaltet sind. Lässt sich das eleganter gestalten?

to plot-pesticide-histogram [breed-name plot-title pen-name] ;histograms of pesticide load per insect group
  set-current-plot plot-title
  set-current-plot-pen pen-name

  let values []
  ask breed-name with [just-spawned? = false and has-dispersed? = false] [ ;histogram for each insect group
    ;round pesticide-load to 2 decimals
    set values lput (precision pesticide-load 2) values
  ]

  if not empty? values [
    let max-load max values
    if max-load = 0 [set max-load 1]

    set-plot-x-range 0 max-load ;x-axis
    set-histogram-num-bars 10 ;number of bins
    histogram values
  ]
end