Das Kriminalitäts- und Wahlverhältnis in den USA vergleichen 

Erstellen Sie eine Liste der kontinentalen US-Bundesstaaten.

In[1]:=

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

Generieren Sie eine interaktive Karte, die die Verhältniswerte verschiedener Statistiken nach Bundesstaat anzeigt und mit fehlenden Daten großzügig umgeht.

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