Script para tirar série história de BOs do Estado de SP (fonte: SSPSP)

readme.md

Script para tirar série história de BOs do Estado de SP (fonte: SSPSP)

Evite fazer muitos requests em pouco tempo para não ter seu IP bloqueado nem abusar do servidor alheio

Pacote desenvolvido por Fernando Corrêa (azeloc), publicado no GitHub da Associação Brasileira de Jurimetria (abjur).

Referência e metodologia: http://www.ssp.sp.gov.br/transparenciassp/

Crime	Trigger
Homicídios	btnTaxaHomicicio*
Latrocínios	btnLatrocinio
Lesão corporal seguida de morte	btnLesaoMorte
Registros de óbito - IML	btnIML
Morte decorrente de intervenção policial	btnMortePolicial
Morte suspeita	btnMorteSuspeita
Furto de veículo	btnFurtoVeiculo
Roubo de veículo	btnRouboVeiculo
Furto de celular	btnFurtoCelular
Roubo de celular	btnFurtoCelular
Taxa de homicídio	btnTaxaHomicidio

*não é typo, está assim no site

Para iteração entre os crimes, se quiserem (não recomendo).

c("btnTaxaHomicidio", "btnLatrocinio", "btnLesaoMorte", "btnIML", "btnMortePolicial", "btnMorteSuspeita", "btnFurtoVeiculo", "btnRouboVeiculo", "btnFurtoCelular", "btnRouboCelular")

Colunas totais do banco de dados

Nome das colunas
ANO_BO	UF	RG	CIDADE_VEICULO
NUM_BO	LATITUDE	RG_UF	DESCR_COR_VEICULO
NUMERO_BOLETIM	LONGITUDE	NATURALIDADE	DESCR_MARCA_VEICULO
BO_INICIADO	DESCRICAOLOCAL	NACIONALIDADE	ANO_FABRICACAO
BO_EMITIDO	EXAME	SEXO	ANO_MODELO
DATAOCORRENCIA	SOLUCAO	DATANASCIMENTO	DESCR_TIPO_VEICULO
PERIDOOCORRENCIA	DELEGACIA_NOME	IDADE	QUANT_CELULAR
DATACOMUNICACAO	DELEGACIA_CIRCUNSCRICAO	ESTADOCIVIL	MARCA_CELULAR
DATAELABORACAO	ESPECIE	PROFISSAO
BO_AUTORIA	RUBRICA	GRAUINSTRUCAO
FLAGRANTE	DESDOBRAMENTO	CORCUTIS
NUMERO_BOLETIM_PRINCIPAL	STATUS	NATUREZAVINCULADA
LOGRADOURO	NOMEPESSOA	TIPOVINCULO
NUMERO	TIPOPESSOA	PLACA_VEICULO
BAIRRO	VITIMAFATAL	UF_VEICULO

ssp_sp.R

#devtools::install.github("abjur/brcrimR")
library(brcrimR)
library(tidyverse)

# ref -->> https://github.com/abjur/brcrimR

meses <- c(1:12)
anos <- c(#"2003", "2004", "2005", "2006", "2007", "2008", "2009", 
  "2010", "2011", "2012", "2013", "2014", "2015", "2016", "2017", "2018")
crimes <- c("btnTaxaHomicidio", "btnLatrocinio", "btnLesaoMorte", "btnIML", "btnMortePolicial", "btnMorteSuspeita", "btnFurtoVeiculo", "btnRouboVeiculo", "btnFurtoCelular", "btnRouboCelular")
dados_meses <- list()
dados_anos <- list()

for (a in anos) {
  for (i in meses) {
    d <- brcrimR::get_detailed_table_sp(folder = 'btnTaxaHomicidio', 
                                      year = a, 
                                      month = i, 
                                      department = '0') %>%
      select(RUBRICA,
             NUM_BO, 
             BO_INICIADO, 
             DATAOCORRENCIA, 
             BO_AUTORIA, 
             FLAGRANTE,
             BAIRRO,
             CIDADE,
             UF,
             VITIMAFATAL,
             DESCRICAOLOCAL,
             SOLUCAO,
             DELEGACIA_NOME,
             STATUS,
             #TIPOPESSOA,
             #SEXO,
             #IDADE,
             QUANT_CELULAR,
             MARCA_CELULAR,
             LATITUDE, 
             LONGITUDE) %>%
    distinct(NUM_BO, .keep_all = T)
    
    # cria coluna apenas com mês e ano, pra facilitar análise
    d$mes <- i
    d$ano <- a
    
    # preenche a lista vazia de MESES com as iterações
    dados_meses[[i]] <- d
  }
  # preenche a lista vazia de ANOS com as iterações
  dados_anos[[a]] <- bind_rows(dados_meses)
}

total = bind_rows(dados_anos)