Montagem da Tabela

library(readr)
dados_capacete_motocicleta_UFPR <- read_csv("C:/Users/berna_y/Documents/#Mestrado UFF/1º Período/Estatística Aplicada à Engenharia/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(dados_capacete_motocicleta_UFPR)

tabela = table(dados_capacete_motocicleta_UFPR$capacete)
tabela
## 
##  aberto fechado modular 
##     178    3361     470
class(tabela)
## [1] "table"
prop.table(tabela)*100
## 
##   aberto  fechado  modular 
##  4.44001 83.83637 11.72362

Montagem do Gráfico

pie(c("Aberto \n 4,44% \n 178 capacetes \n \n \n"=178,"Fechado \n 83,84% \n 3.361 capacetes"=3361,"\n Modular \n 11,72% \n 470 capacetes"=470),col = c("#31d4ce","#d43139","#33d431"),main = "Análise do Tipo de Capacete em uma Amostra de Motociclistas")

Conclusão

Foram analisadas diferentes variáveis em uma amostra de motociclistas, dentre elas o tipo do capacete que cada um estava utilizando, se era condutor ou passageiro, o seu gênero, entre outras variáveis. Nesse estudo, foi montada uma base de dados com base em um levantamento feito a partir de 4.009 motociclistas, e esses dados foram sintetizados por meio de uma tabela para análise estatística de cada categoria.

A categoria analisada graficamente, a partir da tabela gerada, foi o tipo de capacete utilizado. Desse modo, foi montado um gráfico do tipo pizza a partir da proporção entre os tipos de capacete, onde concluiu-se que, dessa amostra, 3.361 capacetes eram do tipo fechado (83,84%), 178 capacetes eram do tipo aberto (4,44%) e 470 capacetes eram do tipo modular (11,72%).