1) Importação da base de dados Pokémon

load("C:/Users/Renato/Desktop/Estatistica/atividade5/df_pokemon.RData")
View(df)

2) Tabela de Defesa por Tipo

library(knitr)
tabela <- table(df$type_1, df$defense)
kable(tabela)
5 10 15 20 23 25 28 30 32 33 34 35 37 38 39 40 41 42 43 44 45 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 75 76 77 78 79 80 82 83 84 85 86 87 88 89 90 91 95 97 99 100 102 103 105 106 108 110 112 115 116 118 119 120 121 122 125 129 130 131 133 135 140 145 150 160 168 180 184 200 230
bug 0 0 0 0 0 0 0 2 1 0 0 2 0 0 0 4 1 1 0 0 5 0 0 0 8 1 0 0 0 7 0 0 0 1 3 0 1 0 0 1 0 0 0 0 3 0 0 0 1 0 0 0 0 3 0 0 0 3 1 0 0 1 3 0 1 0 1 2 1 0 1 0 0 0 1 0 0 0 0 0 0 0 1 0 0 0 0 0 1 0 0 0 0 0 0 0 1
dark 0 0 0 0 0 0 0 1 0 0 0 1 1 0 0 1 0 1 0 0 0 0 0 0 3 0 1 1 0 1 0 0 0 0 2 0 0 0 0 1 0 0 0 0 4 0 0 0 2 0 0 0 0 0 0 0 0 0 0 0 1 0 2 0 1 0 0 1 0 0 1 0 0 1 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
dragon 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 2 0 0 0 0 0 0 1 0 0 0 0 0 0 2 0 0 0 0 2 0 0 0 0 2 0 0 0 0 0 0 0 0 2 0 0 0 0 0 0 0 0 6 0 2 0 0 2 0 0 0 0 0 0 0 0 0 0 0 1 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
electric 0 0 1 0 0 0 0 0 1 1 1 0 1 0 0 5 0 0 0 0 0 0 0 1 2 0 1 0 0 2 0 2 0 0 3 0 0 1 0 0 0 1 0 0 5 0 0 0 1 0 1 0 1 1 0 0 0 2 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
fairy 0 0 0 0 0 0 1 0 0 0 0 0 0 0 1 0 0 0 0 0 0 1 1 0 1 0 0 0 0 0 0 0 0 0 1 0 0 0 0 2 1 0 1 0 0 0 1 1 1 0 0 0 0 0 0 0 0 1 1 0 0 0 0 0 2 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
fighting 0 0 0 0 0 0 0 1 0 0 0 2 0 0 0 1 0 0 0 0 0 0 0 0 2 0 0 1 0 2 0 0 0 0 3 0 1 0 0 0 0 0 0 0 2 0 0 0 3 0 0 1 1 1 0 0 0 2 0 0 0 0 0 0 2 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
fire 0 0 0 0 0 0 0 0 0 0 0 0 1 0 0 5 0 0 2 1 3 0 1 0 0 0 1 0 0 4 0 1 4 0 2 0 0 1 0 1 1 1 0 0 3 2 2 0 1 0 0 2 0 1 0 0 0 1 0 0 0 0 2 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0
flying 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
ghost 0 0 0 0 0 0 0 1 0 0 1 1 0 0 0 0 0 0 0 1 1 0 1 0 0 0 0 0 0 1 0 0 0 0 4 0 0 0 0 1 0 0 0 0 1 0 0 0 0 1 0 0 0 0 0 0 0 1 0 0 0 0 2 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 1 0 1 0 0 1 0 0 1 0 1 0 0 0 0 0 0 0
grass 0 0 0 0 0 0 0 1 0 0 0 3 0 0 0 3 0 0 0 0 4 0 2 1 5 0 0 0 0 3 0 0 0 0 4 0 1 2 1 5 0 1 0 0 4 0 2 0 3 0 0 0 0 3 0 2 0 4 0 0 0 0 0 1 3 0 0 2 0 0 1 0 0 0 0 1 0 0 0 0 0 1 1 0 1 1 0 0 0 0 0 0 0 0 0 0 0
ground 0 0 0 0 0 1 0 0 0 0 0 1 0 0 0 1 0 0 0 0 2 0 0 0 3 0 0 0 0 1 0 0 0 0 2 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 0 3 0 0 1 1 0 0 0 0 1 0 2 0 0 0 0 0 2 0 0 2 0 0 0 1 0 2 0 0 1 0 1 0 0 0 1 0 0 0 0 0 0 0 0
ice 0 0 1 0 0 0 0 1 0 0 0 1 0 0 0 2 0 0 0 0 1 0 0 0 3 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 2 0 0 0 0 0 0 0 0 4 0 0 0 2 0 0 0 0 1 0 0 0 0 2 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 0 0
normal 2 1 1 1 1 0 0 4 0 0 1 3 0 1 1 5 1 1 2 1 5 0 1 0 7 0 0 0 0 3 0 0 0 0 10 1 2 1 2 5 1 0 0 1 8 0 0 0 4 0 2 0 0 3 0 0 1 0 1 0 0 0 2 0 3 0 0 1 0 0 1 0 0 1 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
poison 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 2 0 0 0 1 0 1 0 0 1 0 1 1 0 0 0 1 0 0 2 0 1 0 0 1 0 2 0 1 1 0 0 0 1 0 1 0 0 1 1 1 0 0 0 1 0 0 2 0 1 0 0 0 0 0 0 0 0 1 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
psychic 0 0 1 0 0 1 0 1 0 0 0 2 0 0 0 1 0 0 1 0 5 0 2 0 4 0 0 0 1 2 0 0 1 0 1 0 0 0 0 4 0 0 0 0 5 0 0 0 2 1 0 0 0 1 0 0 0 1 0 0 0 0 1 0 1 0 0 3 0 0 1 0 0 0 0 0 0 0 0 1 0 0 0 0 2 0 0 0 0 0 0 0 0 0 0 0 0
rock 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 1 0 0 0 3 0 0 0 0 0 0 0 0 0 1 0 0 0 0 3 0 1 0 0 1 0 1 0 0 0 2 0 0 0 0 0 0 2 0 0 0 0 2 0 1 1 0 3 0 0 2 0 0 1 0 3 0 1 1 0 0 0 1 0 2 0 0 1 0 1 1 1 1 0 0 1 0
steel 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 1 0 0 0 1 1 0 0 0 0 1 1 0 0 4 0 0 0 0 0 0 0 1 1 0 0 1 0 0 0 1 1 0 0 0 2 0 3 0 0 1 0 1 0
water 0 0 0 2 0 0 0 2 0 0 0 4 0 1 0 4 0 0 1 0 3 0 3 0 6 0 1 1 0 6 1 0 1 0 3 0 1 2 1 7 0 1 2 0 5 0 0 1 4 1 0 1 2 8 0 0 0 6 0 0 2 0 4 0 3 0 0 6 0 1 2 0 0 1 0 2 0 0 0 0 0 0 0 0 1 0 1 0 0 0 0 0 0 1 0 0 0

3) Gráfico Boxplot de Defesa por Tipo

boxplot(df$defense~df$type_1,
        col= c("red", "green", "blue", "gray", "gold"),
        main= "Defesa por Tipo de Pokémon",
        xlab= "Tipo",
        ylab= "Defesa",
        las=2)

4) Resumo (Média, Mediana, etc.)

library(psych)
describeBy(df$defense,
           df$type_1)
## 
##  Descriptive statistics by group 
## group: bug
##    vars  n mean    sd median trimmed   mad min max range skew kurtosis
## X1    1 63 67.7 32.22     55   63.71 22.24  30 230   200 2.25     8.16
##      se
## X1 4.06
## -------------------------------------------------------- 
## group: dark
##    vars  n  mean   sd median trimmed   mad min max range skew kurtosis  se
## X1    1 28 67.93 23.8   67.5   67.17 25.95  30 115    85 0.33    -1.01 4.5
## -------------------------------------------------------- 
## group: dragon
##    vars  n  mean    sd median trimmed   mad min max range skew kurtosis
## X1    1 24 79.12 22.62     85    78.9 22.24  35 121    86 -0.1    -0.81
##      se
## X1 4.62
## -------------------------------------------------------- 
## group: electric
##    vars  n  mean    sd median trimmed   mad min max range skew kurtosis
## X1    1 36 59.08 20.35   58.5    58.4 20.76  15 115   100 0.34     0.08
##      se
## X1 3.39
## -------------------------------------------------------- 
## group: fairy
##    vars  n  mean    sd median trimmed   mad min max range  skew kurtosis
## X1    1 17 65.71 18.98     66   66.27 23.72  28  95    67 -0.19    -0.91
##     se
## X1 4.6
## -------------------------------------------------------- 
## group: fighting
##    vars  n  mean    sd median trimmed   mad min max range  skew kurtosis
## X1    1 25 64.28 18.32     62   64.38 19.27  30  95    65 -0.16    -0.99
##      se
## X1 3.66
## -------------------------------------------------------- 
## group: fire
##    vars  n mean    sd median trimmed   mad min max range skew kurtosis
## X1    1 46 63.7 21.35     59   60.97 19.27  37 140   103 1.38      2.4
##      se
## X1 3.15
## -------------------------------------------------------- 
## group: flying
##    vars n  mean    sd median trimmed   mad min max range  skew kurtosis
## X1    1 3 61.67 23.63     70   61.67 14.83  35  80    45 -0.31    -2.33
##       se
## X1 13.64
## -------------------------------------------------------- 
## group: ghost
##    vars  n  mean   sd median trimmed   mad min max range skew kurtosis
## X1    1 23 76.83 34.8     65   74.89 31.13  30 145   115 0.51    -1.09
##      se
## X1 7.26
## -------------------------------------------------------- 
## group: grass
##    vars  n  mean    sd median trimmed   mad min max range skew kurtosis
## X1    1 66 69.36 23.96     65   67.31 22.24  30 131   101 0.73     0.06
##      se
## X1 2.95
## -------------------------------------------------------- 
## group: ground
##    vars  n  mean    sd median trimmed   mad min max range skew kurtosis
## X1    1 30 82.17 31.89     82   82.08 41.51  25 140   115    0    -1.25
##      se
## X1 5.82
## -------------------------------------------------------- 
## group: ice
##    vars  n  mean    sd median trimmed   mad min max range skew kurtosis
## X1    1 23 71.04 35.11     70   68.16 29.65  15 184   169 1.17     2.27
##      se
## X1 7.32
## -------------------------------------------------------- 
## group: normal
##    vars  n mean    sd median trimmed   mad min max range skew kurtosis
## X1    1 93 57.8 22.35     60   57.43 22.24   5 120   115 0.12     0.17
##      se
## X1 2.32
## -------------------------------------------------------- 
## group: poison
##    vars  n  mean    sd median trimmed   mad min max range skew kurtosis
## X1    1 28 68.82 21.07     67   67.58 22.24  35 120    85 0.47    -0.39
##      se
## X1 3.98
## -------------------------------------------------------- 
## group: psychic
##    vars  n  mean    sd median trimmed   mad min max range skew kurtosis
## X1    1 46 65.15 26.44   62.5   63.34 23.72  15 130   115 0.67    -0.03
##     se
## X1 3.9
## -------------------------------------------------------- 
## group: rock
##    vars  n mean    sd median trimmed   mad min max range skew kurtosis
## X1    1 40 98.5 36.42   98.5   96.16 39.29  40 200   160 0.54    -0.08
##      se
## X1 5.76
## -------------------------------------------------------- 
## group: steel
##    vars  n   mean    sd median trimmed   mad min max range skew kurtosis
## X1    1 22 119.41 33.28  115.5   116.5 36.32  70 200   130 0.65    -0.36
##     se
## X1 7.1
## -------------------------------------------------------- 
## group: water
##    vars   n  mean    sd median trimmed  mad min max range skew kurtosis
## X1    1 105 70.49 25.58     68   69.26 25.2  20 180   160 0.84     2.03
##     se
## X1 2.5

5) Conclusão

Percebe-se pelo gráfico que, apesar de haver um outlier no tipo Bugs com o maior poder defensivo de todos, os Pokémons com maiores valores defensivos são os do tipo Steel. Portanto, podemos inferir que se ocorrer um campeonato de futebol entre os Pokémons, os zagueiros e volantes de destaque serão os de aço!