Rick,
I think the better graph is using Medal Graph , which could use value to compare the difference in cities rather than color .
https://blogs.sas.com/content/graphicallyspeaking/2014/02/12/sochi-medal-graphs/

Also you could add a TOTAL column at the end to display which city has the top crime rate.

proc sql;
create table stdcrime3(drop=s) as
select *,sum(rate) as s
from stdcrime2
group by city
order by s desc;
quit;
title "Lasagna Plot of City Profiles";
title2 "Standardized Crime Rates in 1970";
proc sgpanel data=stdcrime3 noautolegend ;
panelby crime / layout=columnlattice onepanel sort=data novarname
uniscale=row proportional;
styleattrs datacontrastcolors=(navy green darkyellow orange red cyan black);
dot city / response=rate group=crime nostatlabel
markerattrs=(symbol=circlefilled size=10);
rowaxis discreteorder=data display=(nolabel) fitpolicy=none;
colaxis integer display=(nolabel);
run;