Description
Access Data from the Public Security Institute of the State of Rio De Janeiro.
Description
Allows access to data from the Rio de Janeiro Public Security Institute (ISP), such as criminal statistics, data on gun seizures and femicide. The package also contains the spatial data of Pacifying Police Units (UPPs) and Integrated Public Safety Regions, Areas and Circumscriptions.
README.md
ispdata
Sobre o pacote
O pacote ispdata permite acessar os dados do Instituto de Segurança Pública (ISP) do Rio de Janeiro por meio do R.
Instalação
Para instalar via CRAN:
install.packages("ispdata")
library(ispdata)
Para instalar a versão em desenvolvimento(GitHub):
install.packages("devtools")
devtools::install_github("igorlaltuf/ispdata")
library(ispdata)
Exemplos
Acessar estatísticas de segurança pública por área de delegacia de polícia:
df <- monthly_stats(by = 'cisp')
Carregar o dicionário de dados da tabela acima:
data_dictionary <- monthly_stats_dictionary(by = 'cisp')
Acessar dados sobre feminicídio:
df <- crimes_against_life(type = "femicide")
Ver estatísticas sobre apreensão de armas:
df <- gun_seizure(gun_type = "firearms")
Carregar estatísticas de segurança pública em área de UPPs:
df <- upp_data(data = "stats")
Dados espaciais vetoriais dos limites das UPPs:
shape <- spatial_upp
Exemplo: Taxa de homicídios por intervenção policial em 2020 na cidade do Rio de Janeiro. Dados por Área Integrada de Segurança Pública (AISP).
library(ispdata)
library(dplyr)
library(ggplot2)
library(sf)
pop <- population(data = 'cisp_yearly')
df <- monthly_stats(by = 'cisp') |>
left_join(spatial_cisp, by = c("cisp" = "dp", "aisp")) |>
filter(aisp %in% c(27, 40, 31, 14, 18, 41, 9, 6, 23, 3, 16, 22, 4, 17, 19, 2),
ano == '2020') |>
group_by(ano, cisp, geometry) |>
summarise(hom_por_interv_policial = sum(hom_por_interv_policial)) |>
left_join(pop, by = c("cisp" = "circ", "ano")) |>
mutate(v_100k_hab = hom_por_interv_policial/pop * 100000) |>
st_as_sf()
ggplot() +
geom_sf(data = df, mapping = aes(fill = v_100k_hab), color = NA) +
theme_classic() +
scale_fill_viridis_c(name = "Quantidade para\ncada 100 mil hab") +
labs(title = "",
subtitle = "") +
coord_sf() +
ggspatial::annotation_scale() +
ggspatial::annotation_north_arrow(location = "br")
Citação
Para citar em trabalhos, use:
citation('ispdata')
#>
#> To cite package 'ispdata' in publications use:
#>
#>
#> A BibTeX entry for LaTeX users is
#>
#> @Misc{,
#> title = {ISPDATA: the package to access public security data from the State of Rio de Janeiro.},
#> author = {Igor Laltuf},
#> year = {2023},
#> url = {https://github.com/igorlaltuf/ispdata},
#> }