Work done with R, RMarkdown and LeafLet

The database is from the site Onde Fui Roubado, “Where I Was Stolen”, dated 2012. Clustering by Federative Unit (Table: Top 10 - Violência por UF) was carried out and for each Cluster, activity was classified by type of criminal practice (Table: “Quadro de violência cometida”)

Trabalho feito com R, RMarkdown e LeafLet

A base de dados é do site Onde Fui Roubado, datada de 2012. Foi realizada a clusterização por Unidade Federativa (Tabela: Top 10 - Violence by UF) e para cada cluster, a atividade foi classificada pelo tipo de prática criminosa (Tabela: “Quadro de violência cometida”)

# bibliotecas

library(googleVis); library(leaflet)

db = readRDS("/home/pcbrom/Dropbox/Trabalho e Estudo/SuperMetrica/Mapa de Exploratorio/ondefuiroubado/roubo2.rds")

# ajustes na base de dados

levels(db$tipo)[9] = "Denúncia potencialmente falsa"

tipo = db$tipo %>% table() %>% prop.table() %>% {.*100} %>% round(.,2) %>% as.data.frame(); tipo = tipo[order(tipo[,2], decreasing = T), ]

db$UF = db$cidade %>% as.character() %>% {gsub(".*./", "", .)}

UFs = db$UF %>% table() %>% prop.table() %>% {.*100} %>% round(.,2) %>% as.data.frame(); UFs = UFs[order(UFs[,2], decreasing = T), ]; UFs = UFs[1:10,]
# mapa

leaflet(db, width = "100%") %>% addTiles() %>% addCircleMarkers(
    lat = db$lat, lng = db$lon, popup = db$tipo, weight = 1,
    clusterOptions = markerClusterOptions(db$UF)
)
# tabelas

knitr::kable(tipo, align = "c", caption = "Quadro de violência cometida", 
             col.names = c("Tipo", "Frequência em %"), row.names = F)
Quadro de violência cometida
Tipo Frequência em %
Assalto à mão armada 45.72
Furto 25.38
Arrombamento Veicular 8.31
Assalto Coletivo 7.76
Roubo de Veículo 6.50
Arrombamento Domiciliar 3.11
Denúncia potencialmente falsa 1.34
Sequestro Relâmpago 1.15
Arrombamento Loja comercial 0.45
Saidinha Bancária 0.28 
knitr::kable(UFs, align = "c", caption = "Top 10 - Violência por UF", 
             col.names = c("Unidade Federativa", "Frequência em %"), 
             row.names = F)
Top 10 - Violência por UF
Unidade Federativa Frequência em %
SP 22.40
MG 13.08
CE 12.58
RJ 11.63
PR 8.43
RS 5.84
BA 4.45
PE 3.29
PB 3.27
PA 2.66