アメリカの犯罪率および選挙率の比率を比較する

アメリカ本土の州のリストを得る．

In[1]:=

さまざまな統計の比率を州ごとに示すインタラクティブな地図を作成する．欠損データは体裁よく扱う．

In[2]:=

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

Wolfram Mathematica

アメリカの犯罪率および選挙率の比率を比較する

Mathematica

Wolfram Mathematica

アメリカの犯罪率および選挙率の比率を比較する

Related Examples

Mathematica