The hardware and bandwidth for this mirror is donated by dogado GmbH, the Webhosting and Full Service-Cloud Provider. Check out our Wordpress Tutorial.
If you wish to report a bug, or if you are interested in having us mirror your free-software or open-source project, please feel free to contact us at mirror[@]dogado.de.

ispdata

CRAN_Status_Badge CRAN_Download_Badge CRAN_Download_Badge

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},
#>   }

These binaries (installable software) and packages are in development.
They may not be fully stable and should be used with caution. We make no claims about them.
Health stats visible at Monitor.