Wolfram Research

Urbana Police Arrests Since 1988

Arrests by the Urbana Police Department since 1988

Originator: City of Urbana

Arrests by the Urbana Police Department since 1988, with arrestee demographic data. Only the home city of the arrestee is available for mapping.

Examples

Basic Examples

Retrieve the resource:

In[1]:=
ResourceObject["Urbana Police Arrests Since 1988"]
Out[1]=

Retrieve the default content:

In[2]:=
ResourceData["Urbana Police Arrests Since 1988"]
Out[2]=

Create a choropleth map of ZIP Codes in New Jersey of people arrested in Urbana:

In[3]:=
GeoRegionValuePlot[
 Rule @@@ Tally[
   Select[ResourceData[
      "Urbana Police Arrests Since 1988"], #"ArresteeHomeState" == 
       Entity["AdministrativeDivision", {"NewJersey", 
         "UnitedStates"}] &][All, "ArresteeHomeZip"]]]
Out[3]=

Generate a BarChart of the days of the week for cannabis arrests:

In[4]:=
With[{byday = 
   SortBy[ Normal[
     Tally[DayName /@ 
       ResourceData["Urbana Police Arrests Since 1988"][
         Select[And[StringQ[#CrimeCodeDescription], 
            StringContainsQ[#CrimeCodeDescription, "CANNABIS"]] &]][
        All, "DateOfArrest"]]], Last]},
 BarChart[Last /@ byday, ChartLabels -> First /@ byday, 
  ImageSize -> Large]]
Out[4]=

Create a PieChart of the races of those held for prosecution:

In[5]:=
With[{data = 
   Counts[ResourceData["Urbana Police Arrests Since 1988"][
      Select[MatchQ[#DispositionDescription, 
         "ARRESTED AND HELD FOR PROSECUTION"] &]][[All, 
     "ArresteeRace"]]]},
 PieChart[data, ChartLegends -> Normal@Keys@data]]
Out[5]=

Wolfram Research, "Urbana Police Arrests Since 1988" from the Wolfram Data Repository (2018) 

Data Resource History

Source Metadata

Publisher Information