Compare Ratios of Crime and Voting in the United States 

Get a list of states in the continental United States.

In[1]:=

X states = EntityList[ EntityClass["AdministrativeDivision", "ContinentalUS"]];

Make an interactive map showing the ratios of various statistics by state, dealing gracefully with missing data.

In[2]:=

X Manipulate[ GeoRegionValuePlot[ If[FreeQ[{#[[3]], #[[2]]}, Missing[__]], #[[1]] -> #[[2]]/#[[3]], Missing["DataNotAvailable"]] & /@ Transpose[{states, EntityValue[states, numerator], EntityValue[states, denominator] }], PlotLegends -> Histogram, ImageSize -> 300 ], {{numerator, EntityProperty["AdministrativeDivision", "ViolentCrimeTotal"], "numerator"}, {EntityProperty["AdministrativeDivision", "CrimeTotal"], EntityProperty["AdministrativeDivision", "PropertyCrimeTotal"], EntityProperty["AdministrativeDivision", "TotalVoterRegistrationRate"], EntityProperty["AdministrativeDivision", "TotalVotingRate"], EntityProperty["AdministrativeDivision", "ViolentCrimeTotal"]}, ControlType -> PopupMenu}, {denominator, {EntityProperty["AdministrativeDivision", "CrimeTotal"], EntityProperty["AdministrativeDivision", "PropertyCrimeTotal"], EntityProperty["AdministrativeDivision", "TotalVoterRegistrationRate"], EntityProperty["AdministrativeDivision", "TotalVotingRate"], EntityProperty["AdministrativeDivision", "ViolentCrimeTotal"]}, ControlType -> PopupMenu}, SaveDefinitions -> True, SynchronousUpdating -> False]

Out[2]=