njoagleod

This is a cleaned-up version of the NJ OAG Law Enforcement Officer Diversity database available from https://www.njoag.gov/policerecruiting/

Dataset Overview

This dataset contains two tables.

• agency Has one row for each law enforcement agency, for each year
• officer Has one row for each officer, for each year.

Currently 2021 is the only year represented.

Examples

The agency table looks like this:

library(njoagleod)
library(tidyverse)
agency
#> # A tibble: 529 × 6
#>     year agency_county   agency_name   agency_type hiring_governed… municipality
#>    <dbl> <chr>           <chr>         <fct>       <lgl>            <chr>       
#>  1  2021 Atlantic County Absecon City… Municipal   FALSE            Absecon city
#>  2  2021 Atlantic County Atlantic Cit… Municipal   TRUE             Atlantic Ci…
#>  3  2021 Atlantic County Atlantic Co … County      TRUE             <NA>        
#>  4  2021 Atlantic County Atlantic Cou… County      FALSE            <NA>        
#>  5  2021 Atlantic County Brigantine PD Municipal   FALSE            Brigantine …
#>  6  2021 Atlantic County Egg Harbor C… Municipal   TRUE             Egg Harbor …
#>  7  2021 Atlantic County Egg Harbor T… Municipal   FALSE            Egg Harbor …
#>  8  2021 Atlantic County Galloway Twp… Municipal   FALSE            Galloway to…
#>  9  2021 Atlantic County Hamilton Twp… Municipal   FALSE            Hamilton to…
#> 10  2021 Atlantic County Hammonton PD  Municipal   TRUE             Hammonton t…
#> # … with 519 more rows

The columns year, agency_county and agency_name form the primary key.

The officer table looks like this.

officer
#> # A tibble: 30,565 × 6
#>     year agency_county   agency_name     officer_age officer_race officer_gender
#>    <dbl> <fct>           <chr>                 <dbl> <fct>        <fct>         
#>  1  2021 Atlantic County Absecon City PD          20 White        Male          
#>  2  2021 Atlantic County Absecon City PD          22 White        Male          
#>  3  2021 Atlantic County Absecon City PD          26 Black        Male          
#>  4  2021 Atlantic County Absecon City PD          27 White        Male          
#>  5  2021 Atlantic County Absecon City PD          29 White        Male          
#>  6  2021 Atlantic County Absecon City PD          29 White        Male          
#>  7  2021 Atlantic County Absecon City PD          30 White        Male          
#>  8  2021 Atlantic County Absecon City PD          32 White        Male          
#>  9  2021 Atlantic County Absecon City PD          34 White        Male          
#> 10  2021 Atlantic County Absecon City PD          35 White        Male          
#> # … with 30,555 more rows

The columns year, agency_county and agency_name act as a foreign key to the agency table.

The agency_name and agency_county columns are consistent with the columns of the same name in the associated njoaguof package so that they may be easily used together.

For example, here are the agencies with the highest number of use-of-force incidents per officer.

officer %>% 
  group_by(year, agency_county, agency_name) %>%
  summarize(officer_count = n(), .groups = "drop") %>%
  left_join(njoaguof::incident, by=c("agency_county", "agency_name")) %>%
  filter(lubridate::year(incident_date_1)==year) %>%
  group_by(year, agency_county, agency_name, officer_count) %>%
  summarize(incident_count = n(), .groups="drop") %>%
  mutate(incidents_per_officer = incident_count / officer_count) %>%
  select(-agency_county) %>%
  arrange(desc(incidents_per_officer))
#> # A tibble: 468 × 5
#>     year agency_name               officer_count incident_count incidents_per_o…
#>    <dbl> <chr>                             <int>          <int>            <dbl>
#>  1  2021 North Wildwood City PD               27             68             2.52
#>  2  2021 Seaside Heights PD                   25             56             2.24
#>  3  2021 Wildwood PD                          44             97             2.20
#>  4  2021 South River PD                       32             65             2.03
#>  5  2021 Willingboro PD                       62            124             2   
#>  6  2021 Millville PD                         80            154             1.92
#>  7  2021 New Jersey Transit Police           301            536             1.78
#>  8  2021 Tuckerton Boro PD                    13             22             1.69
#>  9  2021 Stratford Boro PD                    19             31             1.63
#> 10  2021 Middle Twp PD                        54             88             1.63
#> # … with 458 more rows

Notes

Duplicates entries removed

In the source data, The Delaware River and Bay Authority Police Department and its officers appear twice, once associated to Salem County and once associated to Cape May County.

In this package, we have removed the duplicate entries and assigned the county to NA. As a result, the source data has 30617 officers across 530 agencies, while this package contains 30565 officers and 529 agencies.

Chester PD agency_type changed to "Multiple Municipality"

In the source data, Chester PD is listed as a municipal agency, but it is a multiple municipality agency. In this package, the agency type has been changed to “Multiple Municipality”.

Source: Former site of the Chester Borough Police

Installation

You can install the latest version of njoaguof from GitHub with:

# install.packages("devtools")
devtools::install_github("tor-gu/njoagleod")