rMapsでアメリカの州表示は短縮名を使うように

rMapsのichoroplethでStateの表示を正式表示していたら適切に色が表示されない。
state.abbなど使って短縮表示にするように。

# これはOK
ichoropleth(Crime ~ State, data = subset(violent_crime, Year == 2010))
# 短縮表示を使わないと真っ黒になる
violent_crime$State <- state.name[match(as.character(violent_crime$State), state.abb)]
ichoropleth(Crime ~ State, data = subset(violent_crime, Year == 2010))