Compare proporciones de delitos y votación en los Estados Unidos 

Obtenga una lista de estados en Estados Unidos continental

In[1]:=

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

Cree un mapa interactivo mostrando las proporciones de varias estadísticas por estado, haciendo frente con gracia a los datos faltantes.

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