ATIVIDADE 4

Fazer uma publicação no RPUBS com uma análise de variável qualitativa da base de dados df_pokemon.RData e/ou Titanic.RData

A base de dados escolhida foi df_pokemon.RData e a variável qualitativa escolhida para análise foi Type_1, referente ao tipo primário do Pokémon.

Passo 0 - carregar a base de dados

load("C:/Users/Che Guevara Jr/Documents/Bernardo/Estatistica/Base_de_dados-master/df_pokemon.RData")

Passo 1 - Construir tabelas

tipo_1 <- table(df$type_1)
tipo_1
## 
##      bug     dark   dragon electric    fairy fighting     fire   flying 
##       63       28       24       36       17       25       46        3 
##    ghost    grass   ground      ice   normal   poison  psychic     rock 
##       23       66       30       23       93       28       46       40 
##    steel    water 
##       22      105
tab_tipo1 <- round(prop.table(tipo_1)*100, 2)
round(prop.table(tipo_1)*100, 2)
## 
##      bug     dark   dragon electric    fairy fighting     fire   flying 
##     8.77     3.90     3.34     5.01     2.37     3.48     6.41     0.42 
##    ghost    grass   ground      ice   normal   poison  psychic     rock 
##     3.20     9.19     4.18     3.20    12.95     3.90     6.41     5.57 
##    steel    water 
##     3.06    14.62

Passo 3 - Gerar Gráfico

barplot (tab_tipo1, main = "Pokémons por tipo", ylab = "Percentual", las=2, col = c("#dbbcba","#8c7776","#e6a29e","#e3352b","#e3b781","#856a4a","#e08e2d","#754104","#d1ce04","#66a143","#43a174","#439da3","#05e6f5","#0787e3","#065f9e","#625491","#a366d1","#c014cc"))        
grid(nx=1, ny=NULL)

Passo 4 - Interpretar o Gráfico

Como é possível perceber através das tabelas e do gráfico, os tipos primários mais comuns de Pokémons são de água (14,62%), normal (12,95%) e grama (9,19%). Com somente 3 exemplares de Pokémon, o tipo primário voador (0,42%) é o menos frequente nesse universo.