Nothing
## ----setup, include = FALSE---------------------------------------------------
knitr::opts_chunk$set(
collapse = TRUE,
comment = "#>"
)
## ----stop-search-london, eval=FALSE-------------------------------------------
# library(ukpolice)
# library(ggplot2)
# library(dplyr)
#
# london_ss <- ukc_stop_search_force("metropolitan", date = "2018-12")
#
# london_ss2 <- london_ss %>%
# filter(!is.na(officer_defined_ethnicity)) %>%
# group_by(officer_defined_ethnicity, outcome) %>%
# summarise(n = n()) %>%
# mutate(perc = n/sum(n))
#
#
# p1 <- ggplot(london_ss2, aes(x = outcome, y = perc,
# group = outcome, fill = outcome)) +
# geom_col(position = "dodge") +
# scale_y_continuous(labels = scales::percent,
# breaks = seq(0.25, 0.8, by = 0.25)) +
# scale_x_discrete(labels = scales::wrap_format(15)) +
# theme(legend.position = "none") +
# labs(x = "Outcome",
# y = "Percentage of stop and searches resulting in outcome",
# title = "Stop and Search Outcomes by Police-Defined Ethnicity",
# subtitle = "Metropolitan Police Department, December 2018",
# caption = "(c) Evan Odell | 2019 | CC-BY-SA") +
# facet_wrap(~officer_defined_ethnicity)
#
# p1
## ----stop-search-plot, echo=FALSE, out.width = '100%'-------------------------
knitr::include_graphics("stop-search.png")
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.