: INTRODUÇÃO

—-> Aqui será observado e estudado mais a fundo sobre proporção, gráficos e tabelas e importação de dados do banco de dados: dados_capacete_motocicleta!

: Primeira coisa

—> Baixar o banco de dados disponibilizados pelo curso!

#install.packages("usethis")
#usethis::use_course("https://github.com/DATAUNIRIO/Base_de_dados/archive/master.zip")

: Importação da base de dados

library(readr)
capa <- 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.

: INICIANDO A ANÁLISE DOS DADOS PROPOSTOS

Tabela da base de dados capacete/motocicleta

—> variável categórica escolhida {POSIÇÃO}

o banco de dados foi denominado “capa” para facilitar. Seu nome completo é “dados_capacete_motocicleta_UFPR.csv”

—> TABELA EXATA DE CONDUTORES E PASSAGEIROS

table(capa$posicao)
## 
##   condutor passageiro 
##       3738        271

: Tabela de proporção

—> PORCENTAGEM EXATA EM RELAÇÃO A POSIÇÃO

tabela1 <- table(capa$posicao)

round(prop.table(tabela1)*100,2)
## 
##   condutor passageiro 
##      93.24       6.76

: Gráfico para variáveis qualitativas

Gráfico de pizza

# GRÁFICO DE PIZZA

pie(tabela1,col=c("#62b8bd","#233db0"), main = "GRÁFICO DE POSIÇÃO PARA O BANCO DE DADOS CAPA")

: CONCLUSÃO DE DADOS

—> O banco de dados adicionado ao Rstudio nos dava os dados de gênero, posição, capacete e engate no que se refere a motocicleta. Nesta publicação, analisamos apenas uma variável categórica que está relacionada a posição de uma determinada pessoa em uma moto. Além disso, há nessa publicação uma tabela de proporção que diz a porcentagem exata da variável escolhida. Cada passo feito nessa publicação, ou seja, seu script, está anexado em seus respectivos dados.

No que se refere aos dados analisados, temos em evidência que na motocicleta há mais condutores que passageiros, dentre o número de pessoas analisadas nesse banco de dados. Enquanto temos 93,24% de condutores, nesses dados temos 6,76% de passageiros. Nessa variável escolhida, não é possível determinar quantos condutores são do sexo masculino ou feminino, nem seu capacete e seu engate. Com isso, é possível determinar com precisão que o número de passageiros é MENOR que o de condutores <—