Análise das bases de dados dos capacetes

Análise qualitativa dos capacetes

library(readr)
dados_capacete_motocicleta_UFPR <- read_csv("C:/Users/55219/Desktop/Base_de_dados-master/dados_capacete_motocicleta_UFPR.csv")

## Rows: 4009 Columns: 5
## ── Column specification ────────────────────────────────────────────────────────
## Delimiter: ","
## chr (5): y, capacete, engate, genero, posicao
## 
## ℹ Use `spec()` to retrieve the full column specification for this data.
## ℹ Specify the column types or set `show_col_types = FALSE` to quiet this message.

head(dados_capacete_motocicleta_UFPR) 

## # A tibble: 6 × 5
##   y         capacete engate        genero    posicao 
##   <chr>     <chr>    <chr>         <chr>     <chr>   
## 1 correto   modular  serrilhado    masculino condutor
## 2 incorreto fechado  naoserrilhado masculino condutor
## 3 correto   fechado  naoserrilhado masculino condutor
## 4 correto   modular  naoserrilhado masculino condutor
## 5 correto   fechado  serrilhado    masculino condutor
## 6 incorreto fechado  naoserrilhado masculino condutor

Tabela de Proporção

tabela_1<-table(dados_capacete_motocicleta_UFPR$capacete)
#tabela_1

#prop.table(tabela_1)
#prop.table(tabela_1)*100
round(prop.table(tabela_1)*100,2)

## 
##  aberto fechado modular 
##    4.44   83.84   11.72

Gráfico

pie(tabela_1, col =c ("#edad0c","#541818","#57a84d"),main ="Gráfico 1 - Estilos de capacetes mais utilizados")

Conclusão

Como base para este trabalho, foram utilizadas as bases de dados da UFPR (Universidade Federal do Paraná) referentes aos capacetes de motocilcetas. A partir desses dados, foi criado uma tabela de proporção para medir a porcentagem de uso desstes capacetes.

Já com gráfico em pizza, é possível obter uma observação mais gráfica para o entendimento do uso dos capacetes. Assim, é possível enteder que o capacete fechado(83.84) é mais utilizado do que o aberto(4.44) e o modular(11.72).