R Markdown

library(RcmdrMisc)
## Loading required package: car
## Loading required package: carData
## Loading required package: sandwich
library(corrplot)
## corrplot 0.84 loaded
load("C:/Users/homedell/Documents/Livros de Mestrado/uff 2 semestre livro/ESTATISTICA UFF 2019.1/Base_de_dados-master/df_pokemon.RData")
boxplot(special_attack~type_1, data=df, id=list(method="y"), xlab="Tipo de Pokemon", ylab="Ataque Especial", main="Gráfico de Ataque Especial",col=c("#877e4e",
  "#936e4c","#3e6587","#66874e","#6b874e","#3e6587","#8c2550","#afaf36","#193c42","#582475","#b58084","#36930e","#173768","#68172d","#bcc90a","#434770","#af5d4d",
  "#282825"))

par(bg="yellow")
library(abind, pos=16)
library(e1071, pos=17)
numSummary(df[,"special_attack", drop=FALSE], groups=df$type_1, statistics=c("mean", "sd", "IQR", "quantiles"), quantiles=c(0,.25,.5,.75,1))
##              mean       sd   IQR 0%   25%  50%    75% 100%
## bug      54.03175 27.31475 35.00 10 32.50 50.0  67.50  135
## dark     70.50000 31.37645 40.75 30 45.00 62.5  85.75  135
## dragon   82.45833 36.40948 56.25 30 53.75 75.0 110.00  150
## electric 83.08333 26.46332 41.00 35 64.00 80.5 105.00  130
## fairy    78.52941 28.54846 39.00 40 60.00 75.0  99.00  131
## fighting 48.56000 22.19812 25.00 20 35.00 40.0  60.00  115
## fire     82.45652 25.11282 36.75 15 66.25 80.0 103.00  130
## flying   89.00000 40.59557 40.00 45 71.00 97.0 111.00  125
## ghost    80.43478 28.33858 37.50 30 60.00 83.0  97.50  145
## grass    74.33333 24.57099 36.25 24 55.25 74.5  91.50  125
## ground   51.73333 20.97935 20.25 20 38.50 45.0  58.75  115
## ice      75.69565 25.58308 35.00 30 60.00 75.0  95.00  130
## normal   54.45161 22.87134 25.00 15 40.00 50.0  65.00  135
## poison   60.42857 19.32266 30.75 30 40.75 60.0  71.50  100
## psychic  89.30435 29.89528 35.00 23 70.00 90.0 105.00  154
## rock     59.05000 23.66752 25.50 10 45.00 55.0  70.50  115
## steel    63.54545 28.28886 33.00 24 45.00 55.0  78.00  150
## water    71.71429 25.98066 37.00 10 53.00 70.0  90.00  150
##          special_attack:n
## bug                    63
## dark                   28
## dragon                 24
## electric               36
## fairy                  17
## fighting               25
## fire                   46
## flying                  3
## ghost                  23
## grass                  66
## ground                 30
## ice                    23
## normal                 93
## poison                 28
## psychic                46
## rock                   40
## steel                  22
## water                 105

COMENTÁRIO 01

Analisando o gráfico Boxplot, podemos observar sobre cada tipo de pokémon no quesito de ATAQUE ESPECIAL. Observando-se que pokémons na categoria BUG, tem A miníma mais baixa das outras categorias, enquanto que os do Dragon e ghost tem valores máximos mais elevados .

Enfim podemos dizer que as categorias; DRAGON, GROUND possuem capacidades de ataques especiais um pouco maior acima das demais.

par(bg="tomato")
scatterplot(special_defense~special_attack, regLine=TRUE, smooth=FALSE, boxplots='xy', xlab="Defesa Especial", ylab="Ataque Especial", main="Gráfico de Defesa x 
  Ataque", data=df)

gle<-cor(df[,c("special_attack","defense","speed",
              "weight","height")], use="complete")
corrplot(gle,addCoef.col=TRUE,number.cex=.95, tl.cex=1.5)

COMENTÁRIO 02

Nesse gráfico de dispersão, podemos observar e verificar a relação causa e efeito entre a Defesa Especial vs ataque especial dos pokémons. De um lado, no intervalo de defesa especial {20 a 120} podemos verificar uma relação constante, porém quando olhar o intervalo [80 a 200] de Ataque Especial ja temos uma situação interessante, muitos pokémos tem grande poder de ataques.

A matrix de correlação mostra que o peso é destaque entre os pokémons quando se trata de ataque especial, possui valor de 0,65 como pode se observar na figura acima.