Atividade 4 - análise de variável qualitativa

Passo 1 - Carregar base de dados

load("C:/Users/mario/Desktop/Base_de_dados-master/df_pokemon.RData")

Passo 2 - Construção de tabelas

tipo1<-table (df$type_1)

Passo 3 - Transformação em percentual

tab_tipo1 <- round(prop.table(tipo1)*100, 2)
round(prop.table(tipo1)*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 4 - Apresentação em gráfico de barras

barplot(tab_tipo1, main = "Tipos Primários de Pokémon", las=2,col = c("#C6D16E","#A29288","#7038f8","#F8D030","#F4BDC9","#C03028","#F08030","#A890F0","#705898","#78C850","#E0C068","#98D8D8","#A8A878","#A040A0","#F85888","#D1C17D","#B8B8D0","#6890F0"))

Passo 5 - Análise dos Tipos Primários de Pokémon

Através do gráfico é possível observar que os tipos primários com maior incidência nos pokémon são o tipo water (14.62 %), o normal (12.95%) e o grass (9.19 %). Os tipos com menor incidência são o stell (3.06), o fairy ( 2.37 %) e o flying (0.42%).