# Instale os pacotes de R necessários
#install.packages("tidyverse", dependencies=TRUE)
#install.packages("dplyr")
#install.packages("data.table")
#install.packages("abjutils")
#install.packages("lubridate")
#install.packages("janitor")
# Depois, é preciso carregar os pacotes.
#library(tidyverse)
library(dplyr)
library(data.table)
library(abjutils)
library(lubridate)
library(janitor)
search() #what packages are loaded
guarda <- fread("/work/2021-07-01_sigesguarda.csv", encoding = "Latin-1")
head(guarda)
nrow(guarda) # para verificar o número de ocorrências registradas na base
glimpse(guarda)
# para obter apenas o nome das colunas:
colnames(guarda)
Rows: 354,336
Columns: 35
$ ATENDIMENTO_ANO <chr> "---------------", "2009", "2009", "2009", "…
$ ATENDIMENTO_BAIRRO_NOME <chr> "-----------------------", "CIDADE INDUSTRIA…
$ EQUIPAMENTO_URBANO_NOME <chr> "-------------------------------------------…
$ FLAG_EQUIPAMENTO_URBANO <chr> "-----------------------", "NÃO", "SIM", "NÃ…
$ FLAG_FLAGRANTE <chr> "--------------", "NÃO", "NÃO", "NÃO", "NÃO"…
$ LOGRADOURO_NOME <chr> "-------------------------------------------…
$ NATUREZA1_DEFESA_CIVIL <chr> "----------------------", "0", "0", "0", "0"…
$ NATUREZA1_DESCRICAO <chr> "-------------------------------------------…
$ NATUREZA2_DEFESA_CIVIL <chr> "----------------------", "", "", "", "", ""…
$ NATUREZA2_DESCRICAO <chr> "-------------------------------------------…
$ NATUREZA3_DEFESA_CIVIL <chr> "----------------------", "", "", "", "", ""…
$ NATUREZA3_DESCRICAO <chr> "-------------------------------------------…
$ NATUREZA4_DEFESA_CIVIL <chr> "----------------------", "", "", "", "", ""…
$ NATUREZA4_DESCRICAO <chr> "-------------------------------------------…
$ NATUREZA5_DEFESA_CIVIL <chr> "----------------------", "", "", "", "", ""…
$ NATUREZA5_DESCRICAO <chr> "-------------------------------------------…
$ SUBCATEGORIA1_DESCRICAO <chr> "-------------------------------------------…
$ SUBCATEGORIA2_DESCRICAO <chr> "-------------------------------------------…
$ SUBCATEGORIA3_DESCRICAO <chr> "-------------------------------------------…
$ SUBCATEGORIA4_DESCRICAO <chr> "-------------------------------------------…
$ SUBCATEGORIA5_DESCRICAO <chr> "-------------------------------------------…
$ OCORRENCIA_ANO <chr> "--------------", "2009", "2009", "2009", "2…
$ OCORRENCIA_CODIGO <chr> "-----------------", "1", "2", "3", "4", "5"…
$ OCORRENCIA_DATA <chr> "-----------------------", "2009-01-01 15:14…
$ OCORRENCIA_DIA_SEMANA <chr> "---------------------", "QUINTA", "QUINTA",…
$ OCORRENCIA_HORA <chr> "---------------", "15:14:00", "15:22:00", "…
$ OCORRENCIA_MES <chr> "--------------", "1", "1", "1", "1", "1", "…
$ OPERACAO_DESCRICAO <chr> "-------------------------------------------…
$ ORIGEM_CHAMADO_DESCRICAO <chr> "-------------------------------------------…
$ REGIONAL_FATO_NOME <chr> "--------------------", "CIC", "PORTÃO", "CA…
$ SECRETARIA_NOME <chr> "-------------------------------------------…
$ SECRETARIA_SIGLA <chr> "----------------", "FAS", "SMMA", "SMS", "S…
$ SERVICO_NOME <chr> "-------------------------------------------…
$ SITUACAO_EQUIPE_DESCRICAO <chr> "-------------------------------------------…
$ NUMERO_PROTOCOLO_156 <chr> "--------------------", "", "", "2640856", "…
summary(guarda)
# Aqui, vamos analisar os valores únicos do campo "NATUREZA1_DESCRICAO"
# A ideia é checar se há algum campo específico sobre casos de violação da Lei Maria da Penha
unique(guarda$NATUREZA1_DESCRICAO) # vai dar uma lista dos valores únicos no campo depois do $
# Para contar quantos são os valores únicos:
#howmany <- unique(guarda$NATUREZA1_DESCRICAO)
#length(howmany)
guardapenha <-
filter(guarda, NATUREZA1_DESCRICAO == 'Violação de Medida Protetiva Lei Maria da Penha' |
SERVICO_NOME == 'PATRULHA MARIA DA PENHA')
nrow(guardapenha)
head(guardapenha, 15)
guardapenha <-
guardapenha %>% mutate(
OCORRENCIA_DATA = ymd_hms(OCORRENCIA_DATA)
)
guardapenha$MES <- month(guardapenha$OCORRENCIA_DATA, label=TRUE)
guardapenha$MES_ANO <- paste(guardapenha$MES, guardapenha$ATENDIMENTO_ANO)
summary(guardapenha)
write.csv(guardapenha, "GM_guarda.csv")