load("C:/Users/homedell/Documents/Livros de Mestrado/uff 2 semestre livro/ESTATISTICA UFF 2019.1/Base_de_dados-master/df_pokemon.RData")
nivel_de_defesa<-ifelse(df$special_defense<=mean(df$special_defense),"DEFENDE NORMAL","MUITO CASCUDO")
categoria<-factor(df$type_1)
tab<-table(categoria,nivel_de_defesa)
tab2<-prop.table(tab)*100
tab2
##           nivel_de_defesa
## categoria  DEFENDE NORMAL MUITO CASCUDO
##   bug           5.4317549     3.3426184
##   dark          2.0891365     1.8105850
##   dragon        0.9749304     2.3676880
##   electric      2.3676880     2.6462396
##   fairy         0.9749304     1.3927577
##   fighting      2.0891365     1.3927577
##   fire          3.7604457     2.6462396
##   flying        0.1392758     0.2785515
##   ghost         1.5320334     1.6713092
##   grass         5.0139276     4.1782730
##   ground        2.5069638     1.6713092
##   ice           1.5320334     1.6713092
##   normal        8.6350975     4.3175487
##   poison        2.3676880     1.5320334
##   psychic       2.3676880     4.0389972
##   rock          2.9247911     2.6462396
##   steel         1.2534819     1.8105850
##   water         7.7994429     6.8245125
summary(df$special_defense)
##    Min. 1st Qu.  Median    Mean 3rd Qu.    Max. 
##   20.00   50.00   65.00   69.09   85.00  230.00
mosaicplot(tab2,main="CATEGORIA DE POKÉMON x DEFESA ESPECIAL",
sub="CATEGORIA",
xlab="",
ylab="DEFESA ESPECIAL", 
cex.axis=0.5,
color=c("green","red"))

Comentários

Observamos que em todas as categorias os pokémons tem poder de alguma DEFESA ESPECIAL, porém alguns são muito mais resistentes que outros. Destaques para:

  1. categoria flyingghost, que tem uma frequência menor porém muito “cascudo” os seus pokémons

  2. categoria Normal que tem uma menor no que de DEFESA ESPECIAL, muito pouco dos seus pokémons são “cascudos”

  3. Na categoria water, observamos um equilíbrio.

Enfim, podemos observar que o gráfico mosaico nos fornece uma visão geral sobre DEFESA ESPECIAL de cada categoria dos pokémons. Quanto mais perto da média, seu poder de defesa especial se classifica como “NORMAL”, outros acima da média, (média=69,09) são classificados como " MUITO CASCUDO“, ou seja muito resistentes.