{roadtrafficdeaths}

Óbitos no trânsito brasileiro

Autor

Pedro Borges

Data de Publicação

15 de dezembro de 2024

Introdução

Um dos indicadores do nível da segurança viária de um local ou sistema é a quantidade de óbitos no trânsito. Esse valor normalmente é utilizado como base para construir uma taxa de óbitos por quantidade de veículos ou por quantidade de habitantes.

No Brasil, esses dados de óbitos são disponibilizados pelo Ministério da Saúde, através das declarações de óbitos (DOs) armazenadas no Sistema de Informações de Mortalidade (SIM) do Datasus. Os óbitos ocorridos no trânsito são identificados pelos códigos entre V01 e V89 do CID-10.

Considerando o uso constante desses dados para monitorar o desempenho da segurança e para realizar estudos técnicos e científicos, o pacote {roadtrafficdeaths} (Santos e Saraiva, 2024) para o R foi criado como um conjunto de dados com as DOs ocorridos no trânsito, com dados desde 1996.

Sobre o pacote

O pacote contém um data.frame nomeado rtdeaths, com mais de 970 mil observações (DOs) e 23 atributos. Esse objeto é carregado juntamente ao carregar o pacote com o comando library(roadtrafficdeaths).

# pak::pak("pabsantos/roadtrafficdeaths")
library(roadtrafficdeaths)

str(rtdeaths)
'data.frame':   970862 obs. of  23 variables:
 $ cid                : chr  "V099" "V234" "V789" "V031" ...
 $ cod_modal_vitima   : chr  "V0" "V2" "V7" "V0" ...
 $ modal_vitima       : chr  "Pedestre" "Motocicleta" "Ônibus" "Pedestre" ...
 $ cod_modal_outro    : chr  "9" "3" "8" "3" ...
 $ modal_outro        : chr  "Não especificado" "Automóvel" "Sem colisão" "Automóvel" ...
 $ data_ocorrencia    : Date, format: "1999-03-28" "1999-02-22" ...
 $ ano_ocorrencia     : num  1999 1999 1999 2006 2014 ...
 $ idade_vitima       : num  58 28 33 19 43 25 22 19 24 24 ...
 $ faixa_etaria_vitima: Factor w/ 17 levels "0 a 4 anos","5 a 9 anos",..: 12 6 7 4 9 6 5 4 5 5 ...
 $ sexo_vitima        : chr  "Feminino" "Masculino" "Masculino" "Masculino" ...
 $ escolaridade_vitima: chr  NA NA NA "de 8 a 11 anos" ...
 $ raca_vitima        : chr  "Preta" "Parda" "Parda" "Branca" ...
 $ ocup_cbo_vitima    : chr  "00612" "00004" "00034" NA ...
 $ estado_civil_vitima: chr  NA NA NA "solteiro" ...
 $ local_ocor         : chr  "hospital" "saude" "saude" "via" ...
 $ cod_municipio_ocor : chr  "270030" "270750" "270630" "355030" ...
 $ nome_regiao_ocor   : chr  "Nordeste" "Nordeste" "Nordeste" "Sudeste" ...
 $ cod_municipio_res  : chr  "270260" "270030" "270760" "355030" ...
 $ nome_regiao_res    : chr  "Nordeste" "Nordeste" "Nordeste" "Sudeste" ...
 $ nome_uf_ocor       : chr  "Alagoas" "Alagoas" "Alagoas" "São Paulo" ...
 $ nome_municipio_ocor: chr  "Arapiraca" "Porto Real do Colégio" "Palmeira dos Índios" "São Paulo" ...
 $ nome_uf_res        : chr  "Alagoas" "Alagoas" "Alagoas" "São Paulo" ...
 $ nome_municipio_res : chr  "Feira Grande" "Arapiraca" "Quebrangulo" "São Paulo" ...

Mais detalhes sobre cada atributo podem ser consultados na documentação do pacote com o comando ?rtdeaths no console do R.

Utilizando os dados

Para exemplificar o uso desses dados, foi contabilizada a quantidade de óbitos no trânsito entre 1996 e 2022 por região do Brasil. Além de carregar o {roadtrafficdeaths}, esse exemplo também necessita das bibliotecas {dplyr} e { ggplot2}.

library(ggplot2)
library(dplyr)

Com auxílio do dplyr::count(), fez-se a contagem dos óbitos com base nos atributos ano_ocorrencia e nome_regiao_ocor.

obitos <- count(rtdeaths, ano_ocorrencia, nome_regiao_ocor)
obitos <- na.omit(obitos)

ggplot(obitos, aes(x = ano_ocorrencia, y = n, color = nome_regiao_ocor)) +
    geom_line() +
    geom_point(pch = 21, fill = "white", size = 2) +
    labs(x = NULL, y = NULL, color = "Região:") +
    theme_bw(base_family = "roboto") +
    theme(
        legend.position = "top",
        legend.direction = "horizontal",
        legend.justification = "left"
    ) +
    scale_x_continuous(minor_breaks = NULL) +
    scale_y_continuous(limits = c(0, NA))
Figura 1: Quantidade de óbitos por região e ano

Conclusão

A criação do {roadtrafficdeaths} possibilitou ter os dados de óbitos no trânsito brasileiro de forma centralizada e documentada, com fácil acesso para todos que utilizam o R em seus trabalhos.

Gostaria de agradecer aos autores do pacote {microdatasus} (Saldanha et al., 2019), que facilitou muito o acesso e processamento das DOs presentes nos servidores do Datasus.

Referências

Saldanha, R. D. F., Bastos, R. R., e Barcellos, C. (2019). Microdatasus: Pacote Para Download e Pré-Processamento de Microdados Do Departamento de Informática Do SUS (DATASUS). Cadernos de Saúde Pública, 35(9), e00032419. https://doi.org/10.1590/0102-311x00032419
Santos, P. A. B., e Saraiva, J. P. M. (2024). Roadtrafficdeaths: Road Traffic Deaths Data from Brazil (Versão 0.5.0) [Software]. Observatório Nacional de Segurança Viária. https://pabsantos.github.io/roadtrafficdeaths/