Sort the data set for the graphs of leading producers of each grain type.

proc sort data=grainldr out=type;
by type;
run;