Traffic Accidents In São Paulo - 2015

Wagner Pinheiro
February, 2017

The Shiny App Demo

The App

Interactive map of traffic accidents in the metropolitan region of São Paulo, clustered by region and type, during the year 2015.

See the hosted app on Shinyapp.io

The source code is on Github

App Screenshot

The APP

Making the figures

Source code to generate all figures used in this presentation

source("main.R")
suppressPackageStartupMessages(library(mapview))
dataset <- TrafficAccidents.loadDataset()
m <- TrafficAccidents.plotTrafficAccidents(dataset)
mapshot(m, file = paste0(getwd(),"/presentation_app-figure/map_all_accidents.png"))
m <- TrafficAccidents.plotTrafficAccidents(dataset, "QM")
mapshot(m, file = paste0(getwd(),"/presentation_app-figure/map_motorcyclists.png"))

Example 1: Browser for all accidents

This image was generated in the previous slide using the lib:

all accidents

Example 2: Get only the run-overs in freeway

First filter by “run over by vehicle”, and mark “only in the freeway”

run overs

Example 3: Deadly places for Motorcyclists

First filter by “fall motorcycle”, and mark “only in the freeway” and “deadly”

Background News

In the last 2 years, São Paulo has been going through several discussions about the reduction of accidents involving the reduction of speeds on the freeways. To know more:

Reducing Speeds in Sao Paulo, Brazil Leads to Record Low Traffic Fatalities - July, 2016
Reduced Speed on Margins reduces accidents and slowness - July, 2016
Mayor Doria against the world, increases speed in the Marginais (freeways) - December, 2016

In portuguese:

Redução da velocidade nas Marginais diminui acidentes e lentidão - July, 2016
Dória, na contramão do mundo, aumenta velocidade nas Marginais - December, 2016