R Markdown

load("C:/Users/Gustavo Keoma/Downloads/Base_de_dados-master/df_pokemon.RData")
library(knitr)
tabela <- table(df$type_1, df$attack)
kable(tabela)
5 10 15 20 22 23 24 25 27 29 30 33 35 36 38 40 41 42 43 44 45 46 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 74 75 76 77 78 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 97 98 100 102 103 104 105 106 107 108 109 110 112 115 117 120 121 123 124 125 129 130 131 134 135 140 147 150 160 165
bug 0 1 0 2 1 0 0 2 0 1 3 0 5 0 0 1 0 0 0 0 4 0 2 0 0 1 0 1 1 0 2 0 0 0 1 3 0 0 1 0 4 0 0 0 0 3 0 0 1 0 1 1 1 0 1 0 0 0 0 2 0 0 0 0 5 0 0 0 1 2 0 0 1 0 1 0 0 0 0 0 1 1 0 0 0 1 0 0 0 2 0 1 0 0 1 0 0 0 0 0
dark 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 1 2 0 0 0 0 1 0 0 0 0 4 0 0 0 0 0 0 0 0 0 2 0 0 0 0 0 0 0 0 3 0 0 1 0 4 0 1 0 0 1 0 0 0 0 0 0 2 0 0 0 0 0 0 0 0 1 0 0 0 2 0 1 1 0 0 0 0 0 0 0
dragon 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 0 0 0 0 0 1 0 0 0 0 0 2 0 0 0 0 2 0 0 0 1 0 0 0 1 0 0 1 0 0 2 0 0 0 0 1 0 0 2 0 0 0 0 0 0 0 0 0 0 0 1 2 0 0 0 0 0 2 0 1 1 0 1 2 0 0
electric 0 0 0 0 0 0 0 0 0 0 1 0 1 0 1 3 0 0 0 0 2 0 0 0 0 3 0 0 0 0 4 0 0 1 0 2 0 0 1 0 2 0 0 0 0 1 0 0 0 0 3 0 0 0 0 0 0 1 0 3 0 0 0 0 2 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 2 0 1 0 1 0 0 0 0 0 0 0 0 0 0 0 0
fairy 0 0 0 1 0 0 0 1 0 0 0 0 0 0 1 1 0 0 0 0 2 0 0 1 0 1 0 1 0 0 0 0 0 0 0 0 0 0 0 0 2 0 0 0 0 1 0 1 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 1 0 0 0 0 0 0 1 0 0 0 0 0 0 0
fighting 0 0 0 0 0 0 0 0 0 0 0 0 1 0 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 2 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 3 0 1 0 0 1 0 0 0 0 0 0 1 0 0 1 0 0 2 0 0 0 3 0 0 0 0 1 0 0 0 2 0 0 1 2 0 1 0 0 0 1 0 0 0 0
fire 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 1 0 0 0 1 0 0 0 0 2 0 2 1 0 0 0 0 1 1 2 0 0 1 2 0 0 0 1 1 1 0 0 1 0 1 1 0 1 0 1 0 0 2 3 0 0 0 0 2 0 0 1 0 2 1 1 3 0 0 1 0 0 0 0 0 1 0 1 0 1 0 1 0 0 0 2 0 0 0 1 0 0 0 0
flying 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 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 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
ghost 0 0 0 0 0 0 0 0 0 0 2 0 1 0 0 2 0 0 0 0 0 0 0 0 0 3 0 0 0 0 1 0 0 0 0 2 0 0 0 0 1 1 0 0 0 2 0 0 0 0 1 0 0 0 1 0 0 0 0 0 0 0 0 0 1 0 1 0 0 0 0 0 2 0 0 0 0 0 0 0 0 1 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
grass 0 0 0 0 0 0 0 0 1 0 2 0 3 0 0 3 0 0 0 0 3 0 0 0 2 2 0 0 1 0 3 0 0 0 0 4 1 3 0 0 3 0 1 2 0 2 0 0 0 0 3 0 0 1 2 0 2 0 0 3 1 0 0 1 2 0 1 0 1 1 0 1 5 0 0 0 1 0 1 0 1 1 0 1 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0
ground 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 1 0 0 0 0 1 0 0 0 0 1 0 0 0 0 0 1 0 0 0 2 0 2 0 1 2 0 0 0 2 0 1 0 0 2 0 0 0 0 0 0 0 0 0 1 0 0 3 0 0 0 0 0 0 0 0 0 1 0 1 1 0 0 1 1 0 1 0 0 1 1 0 1 0 0
ice 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 1 0 0 0 0 0 0 0 0 0 6 0 0 0 0 1 0 0 0 0 2 0 0 0 0 1 0 0 0 1 1 0 0 0 0 0 0 0 0 3 0 0 0 0 1 0 0 0 0 0 0 0 0 0 1 0 0 1 0 0 0 0 0 0 0 0 1 0 0 1 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0
normal 2 1 0 2 0 0 0 0 0 0 3 0 0 1 0 1 0 0 0 0 5 1 0 1 0 3 1 0 0 0 7 2 0 0 0 8 0 0 0 0 3 1 0 0 0 6 1 0 0 0 1 2 2 0 9 1 1 1 0 6 0 0 0 0 2 1 0 0 0 3 0 0 3 0 0 0 0 0 0 0 0 4 0 2 0 2 0 1 0 0 0 1 0 0 0 0 0 0 2 0
poison 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 0 1 0 1 0 0 2 0 0 0 0 0 0 1 0 0 2 1 1 1 0 1 0 0 0 0 0 0 1 1 0 1 0 0 0 2 0 0 0 0 1 0 0 0 0 3 0 1 1 0 1 0 0 1 1 0 0 1 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
psychic 0 0 0 1 0 1 0 4 0 0 3 1 2 0 0 1 0 0 0 0 4 0 0 3 0 3 0 0 0 0 3 0 1 1 0 0 0 0 0 0 3 0 0 0 0 1 0 1 1 0 3 0 0 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 3 0 0 0 1 0 0 0 0 1 0 0 0 0 0 0 0 2 0 0 0 0 0 0 0 1 0 0
rock 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 1 1 0 0 2 0 0 0 0 1 0 2 0 0 2 0 0 0 1 1 0 0 0 1 0 0 0 0 0 0 0 0 0 0 1 0 1 0 3 1 0 0 1 0 0 0 0 1 0 0 0 0 0 3 0 0 2 0 0 0 3 0 0 0 0 0 1 1 0 1 1 0 0 2 1 0 0 1 1 1 0 0 0 1
steel 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 1 0 0 0 0 2 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 2 0 0 0 4 0 0 0 0 2 0 0 0 1 2 0 0 0 0 0 0 0 2 0 0 0 0 0 0 0 0 2 0 0 0 1 0 0 0 0 0 0 0 0 1 0 0 0 0 0
water 0 1 1 2 0 0 0 0 0 0 3 0 0 0 1 4 0 0 0 1 3 0 0 3 1 5 1 1 2 0 2 1 0 1 0 2 0 0 2 1 9 1 1 0 1 5 0 1 1 0 7 0 0 2 3 0 1 2 1 3 1 1 0 0 3 0 2 0 0 6 0 1 3 0 0 1 4 0 0 1 0 1 0 0 0 3 0 0 0 1 0 1 0 0 0 0 0 0 0 0 
boxplot(df$attack~df$type_1,
        col= c("darkgreen", "gray20", "darkblue", "yellow","pink","deeppink1","red","skyblue","purple","green","brown","lightblue","tan","violet","lightpink","darkgrey","gray","blue"),
        main= "Ataque por Tipo de Pokémon",
        xlab= "Tipo",
        ylab= "Ataque",
        las=2)

library(psych)
describeBy(df$attack,
           df$type_1)
## 
##  Descriptive statistics by group 
## group: bug
##    vars  n  mean    sd median trimmed   mad min max range skew kurtosis
## X1    1 63 65.22 30.74     63   63.57 40.03  10 135   125 0.38    -0.69
##      se
## X1 3.87
## -------------------------------------------------------- 
## group: dark
##    vars  n  mean    sd median trimmed   mad min max range skew kurtosis
## X1    1 28 86.25 24.34   86.5   85.42 29.65  50 131    81 0.35    -0.99
##     se
## X1 4.6
## -------------------------------------------------------- 
## group: dragon
##    vars  n   mean    sd median trimmed   mad min max range skew kurtosis
## X1    1 24 102.62 29.64   97.5  102.45 33.36  50 150   100 0.12    -1.32
##      se
## X1 6.05
## -------------------------------------------------------- 
## group: electric
##    vars  n  mean    sd median trimmed   mad min max range skew kurtosis
## X1    1 36 67.78 25.15   61.5   65.97 24.46  30 123    93 0.64    -0.55
##      se
## X1 4.19
## -------------------------------------------------------- 
## group: fairy
##    vars  n  mean    sd median trimmed   mad min max range skew kurtosis
## X1    1 17 61.53 29.75     52   59.67 20.76  20 131   111 0.88     0.06
##      se
## X1 7.22
## -------------------------------------------------------- 
## group: fighting
##    vars  n  mean    sd median trimmed   mad min max range  skew kurtosis
## X1    1 25 94.72 27.66    100   96.33 29.65  35 140   105 -0.44    -0.66
##      se
## X1 5.53
## -------------------------------------------------------- 
## group: fire
##    vars  n  mean   sd median trimmed   mad min max range skew kurtosis
## X1    1 46 81.61 25.3   82.5   80.39 26.69  40 140   100 0.35    -0.69
##      se
## X1 3.73
## -------------------------------------------------------- 
## group: flying
##    vars n  mean    sd median trimmed  mad min max range skew kurtosis
## X1    1 3 71.67 42.52     70   71.67 59.3  30 115    85 0.04    -2.33
##       se
## X1 24.55
## -------------------------------------------------------- 
## group: ghost
##    vars  n  mean    sd median trimmed   mad min max range skew kurtosis
## X1    1 23 66.65 25.29     65   65.68 22.24  30 115    85 0.31    -1.08
##      se
## X1 5.27
## -------------------------------------------------------- 
## group: grass
##    vars  n  mean    sd median trimmed   mad min max range skew kurtosis
## X1    1 66 70.91 24.08     68   70.59 26.69  27 130   103 0.15    -0.81
##      se
## X1 2.96
## -------------------------------------------------------- 
## group: ground
##    vars  n mean    sd median trimmed   mad min max range skew kurtosis
## X1    1 30 91.3 28.62   83.5   90.38 24.46  40 150   110 0.33    -0.96
##      se
## X1 5.23
## -------------------------------------------------------- 
## group: ice
##    vars  n mean    sd median trimmed   mad min max range skew kurtosis
## X1    1 23 70.7 25.94     65   68.89 22.24  30 130   100 0.64    -0.57
##      se
## X1 5.41
## -------------------------------------------------------- 
## group: normal
##    vars  n  mean   sd median trimmed   mad min max range skew kurtosis
## X1    1 93 71.73 29.3     70   71.09 22.24   5 160   155 0.36     0.72
##      se
## X1 3.04
## -------------------------------------------------------- 
## group: poison
##    vars  n  mean    sd median trimmed   mad min max range skew kurtosis
## X1    1 28 74.68 19.63     74   74.67 23.72  43 106    63    0    -1.38
##      se
## X1 3.71
## -------------------------------------------------------- 
## group: psychic
##    vars  n  mean    sd median trimmed   mad min max range skew kurtosis
## X1    1 46 60.22 30.77   52.5   57.03 28.91  20 150   130 0.93     0.25
##      se
## X1 4.54
## -------------------------------------------------------- 
## group: rock
##    vars  n  mean    sd median trimmed   mad min max range skew kurtosis
## X1    1 40 88.17 32.58   86.5   87.03 41.51  40 165   125 0.23    -0.94
##      se
## X1 5.15
## -------------------------------------------------------- 
## group: steel
##    vars  n  mean    sd median trimmed   mad min max range  skew kurtosis
## X1    1 22 83.55 24.61   82.5   83.83 14.83  24 135   111 -0.21     0.11
##      se
## X1 5.25
## -------------------------------------------------------- 
## group: water
##    vars   n  mean    sd median trimmed   mad min max range skew kurtosis
## X1    1 105 71.05 25.03     70   71.05 28.17  10 130   120 0.01    -0.34
##      se
## X1 2.44

Conclusão

Primeiramente, nota-se que há uma diferença entre Ataque e Ataque especial em Pokemon. O que pode ser entendido como Ataque sendo associado ao físico, como um soco, chute ou cabeçada e Ataque Especial sendo associado a uma “magia”, como um sofro de chamas, jato de água ou veneno. Com isso, nota-se que os tipos Dragão e Lutador lideram entre as médias e medianas e o tipo Pedra possui o Pokemon com maior ataque entre esses apesar de estar bem abaixo nas outras medidas. Apesar dos outliers em outros tipos, faz todo sentido nesse universo que os danos físicos sejam liderados por lutadores ou bestas ou pedregulhadas!