Compare as proporções entre crime e votação nos Estados Unidos 

Obtenha uma lista dos estados continentais dos Estados Unidos.

In[1]:=

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

Faça um mapa interativo que mostra as proporções de várias estatísticas por estado, lidando elegantemente com dados ausentes.

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]=