Sort the data set for the graphs of leading producers of each grain type.
proc sort data=grainldr out=type; by type; run;