ANALISANDO UM BANCO DE DADOS

—> IMPORTANDO BASE DE DADOS

library(readr)
motocicleta <- read_csv("C:/Users/02aci/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.

View(motocicleta)

—> Analisando o banco de dados denominado

> dados_capacete_motocicleta_UFPR.csv

> Tabela exata em números para a variável {CAPACETE}

tabela1 <- table(motocicleta$capacete)

table(motocicleta$capacete)

## 
##  aberto fechado modular 
##     178    3361     470

> Tabela de proporção para a variável {CAPACETE}

round(prop.table(tabela1)*100,2)

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

> Gráfico para variável qualitativa

GRÁFICO DE BARRAS

barplot(tabela1,col=c("#851d1d","#b220e3","#5a6a94"))

Conclusão dos dados analisados

—> Após a importação da base de dados “dados_capacete_motocicleta_UFPR.csv” foi observado a existência de quatro variáveis dentro desse banco, sendo elas: capacete, gênero, posição e engate, onde é possível observar que se trata de uma análise em torno de diversas condições em uma motocicleta. O estudo feito nessa publicação envolve uma análise com uma tabela numérica, tabela de proporção e gráfico de barras sobre a variável CAPACETE.

Ao observar a variável escolhida, é fato afirmar que cerca de 83,84% de pessoas utilizam o capacete fechado, cerca de 3361 pessoas, o que mostra uma vantagem consideravel ao se referir aos capacetes modular e aberto , sendo respectivamente 11,72% e 4,44%, onde somados chegam a um total numérico de 648 pessoas. Com isso, a conclusão vista é que a maioria dos motociclistas utilizam o capacete FECHADO.