knitr::opts_chunk$set( collapse = TRUE, comment = "#>", fig.path = "man/figures/README-" )
ukpolice is an R package that facilitates retrieving data from the UK police database.. The data provided by the API contains public sector information licensed under the Open Government Licence v3.0.
Install from GitHub
#install.packages("remotes") remotes::install_github("njtierney/ukpolice")
ukp_crime
ukp_crime()
draws crimes from within a one mile radius of the location. When no date is specified, it uses the latest month available, which can be found using ukp_last_update()
.
library(ukpolice) crime_data <- ukp_crime(lat = 52.629729, lng = -1.131592) head(crime_data) ukp_last_update()
When date is specified, it must be in the format "YYYY-MM". Currently ukp_crime()
only allows for searching of that current month.
crime_data_date <- ukp_crime(lat = 52.629729, lng = -1.131592, date = "2016-03") head(crime_data_date)
This is still a little buggy at the moment as it returns blank columns for variables like persistent_id
and context
, location_subtype
, and outcome_status
. This issue is currently logged at issue #11.
library(dplyr) library(ggplot2) crime_data <- ukp_crime(lat = 52.629729, lng = -1.131592) crime_data %>% count(category) %>% ggplot(aes(x = reorder(category, n), y = n)) + geom_col() + labs(x = "Crime Type", y = "Number of Crimes", title = paste0("Crimes commited in ",crime_data$date[1])) + coord_flip() + theme_minimal()
You can add a popup that displays the crime type using the popup
argument in leaflet.
library(leaflet) crime_data <- ukp_crime(lat = 52.629729, lng = -1.131592) crime_data %>% leaflet() %>% addTiles() %>% addCircleMarkers(popup = ~category)
ukpolice does other things! At the moment other features include:
ukp_crime_poly()
ukp_neighbourhood()
To see these examples, read the vignette "Getting Started with ukpolice".
ukpolice also has functions for retrieving the stop and search data:
ukp_stop_search()
ukp_stop_search_poly()
Please note that this project is released with a Contributor Code of Conduct. By participating in this project you agree to abide by its terms.
hex sticker police logo "Police" created by Yu luck from the Noun Project, hex sticker made with hexSticker package
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.