#Carregando base de Dados

#base de dados Capacetes

library(readr)
## Warning: package 'readr' was built under R version 4.0.5
dados_capacete_motocicleta_UFPR <- read_csv("C:/Users/vinny/Desktop/Base_de_dados-master/dados_capacete_motocicleta_UFPR.csv")
## 
## -- Column specification --------------------------------------------------------
## cols(
##   y = col_character(),
##   capacete = col_character(),
##   engate = col_character(),
##   genero = col_character(),
##   posicao = col_character()
## )
View(dados_capacete_motocicleta_UFPR)

#Tabela de proporção

#Tabela de proporção Capacetes

tabela01<-table(dados_capacete_motocicleta_UFPR$capacete)
prop.table(tabela01)*100
## 
##   aberto  fechado  modular 
##  4.44001 83.83637 11.72362
round(prop.table(tabela01),2)*100
## 
##  aberto fechado modular 
##       4      84      12

#Variavel Qualitativa #Gráfico de Pizza

pie(tabela01,col =c("#3ec9c2","#d04df7","#dbeb52"),main = "Gráfico de Pizza - Tipos de Capacetes")

#Observções análisadas dos dados

Ao análisar o banco de dados “dados_capacete_motocicleta_UFPR.csv” sobre a variável quantitativa de tipos de capacetes, obtivemos determinados resultados que convém análisa-lós em uma tabela de proporção, e logo em seguida um gráfico de pizza.Dados esses que são complementares.

Em um primeiro momento podemos destacar o alto índice de uso do capacete “fechado”, obtendo 84% dos números dos seus usários. Em contra partida, observa-se que apenas 4% dos tipos de capacetes são do modelo “aberto”.No entanto, ainda que não seja expresivo, temos o modelo modular com 12% no seu índice de uso.Por fim, temos um gráfico de pizza para ilustrar com cores e formas.