比较美国的投票率和犯罪率的比率

获取美国大陆各州的列表.

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