Este documento aborda uma análise exploratória dos dados categóricos de acidententes envolvendo motociclistas em Fortaleza-CE (2017)
A função utilizada para plotar os gráficos:
library(plotly)
library(forcats)
library(dplyr)plot_bar = function(base){
plot_ly(base,x = ~reorder(base[,1],desc(base[,2])), y = ~base[,2], type = 'bar', color = ~reorder(base[,1],base[,2]), colors = "Blues") %>%
layout(title = '', font = list(family = "Courier New, monospace", color = "black"),
xaxis = list(title = '',showgrid = FALSE, zeroline = FALSE, showticklabels = TRUE, tickangle = 45),
yaxis = list(title = 'Observações',showgrid = TRUE, zeroline = FALSE, showticklabels = TRUE),showlegend=FALSE) %>%
add_text(text=~paste(as.character(round(prop.table(base[,2])*100)),"%", sep=""),
hoverinfo='none', textposition = 'top', showlegend = FALSE,textfont=list( color="black"))
}Gravidade da lesão
Sexo
Idade
Dia da semana
Dia ou noite
Natureza do acidente
Idade da motocicleta
Tipo do cruzamento
Controle do tráfego
Uso do solo
Mapa dos acidentes