Wolfram Research

Urbana Police Stop Sheets

Police Stop Sheet results from the City of Urbana after 2016

Originator: City of Urbana

Stop Sheet results from the City of Urbana, since the Stop Sheet collection began in 2016. Not all Stop Sheets are submitted to the Illinois Department of Transportation (IDOT), so there is a field that indicates if the record is one that would be sent to the State.

Examples

Basic Examples

Retrieve the resource:

In[1]:=
ResourceObject["Urbana Police Stop Sheets"]
Out[1]=

Retrieve the default content:

In[2]:=
ResourceData["Urbana Police Stop Sheets"]
Out[2]=

Plot the mean, median, and mode of age of suspects over time:

In[3]:=
With[{data = 
   GatherBy[
    ResourceData["Urbana Police Stop Sheets"][
       Select[#ArrestMade && #CitationIssued &]][
      All, {"StopDate", "AgeInYears"}] /. 
     d_DateObject :> d["Year"], #StopDate &]},
 DateListPlot[{
   Normal[{{First@#[[All, "StopDate"]]} , 
       First@N@Mean[#[[All, "AgeInYears"]]]} & /@ data],
   Normal[{{First@#[[All, "StopDate"]]} , 
       First@Median[#[[All, "AgeInYears"]]]} & /@ data],
   Normal[{{First@#[[All, "StopDate"]]} , 
       First@Commonest[#[[All, "AgeInYears"]]]} & /@ data]}, 
  PlotLegends -> {"Mean", "Median", "Mode"}]]
Out[3]=

Create a PieChart of the race of suspects:

In[4]:=
With[{data = 
   Counts[ResourceData["Urbana Police Stop Sheets"][[All, 
     "RaceDescription"]]]},
 PieChart[data, ChartLegends -> Normal@Keys[data]]]
Out[4]=

Plot the number of stops with a one month moving average:

In[5]:=

Module[{data = ResourceData["Urbana Police Stop Sheets"], stops, 
  means}, stops = TimeSeries[Normal[Tally[data[[All, "StopDate"]]]]]; 
 means = MovingMap[Mean, stops, {1, "Month"}]; 
 DateListPlot[{stops, means}, PlotRange -> All]]
Out[5]=

Group police stops by day of week:

In[6]:=
Module[{byday = 
   SortBy[ Normal[
     Tally[DayName /@ 
       ResourceData["Urbana Police Stop Sheets"][All, "StopDate"]]], 
    Last]},
 BarChart[Last /@ byday, ChartLabels -> First /@ byday, 
  ImageSize -> Large]]
Out[6]=

Wolfram Research, "Urbana Police Stop Sheets" from the Wolfram Data Repository (2018) 

Data Resource History

Source Metadata

Data Downloads

Publisher Information