knitr::opts_chunk$set(fig.width=15, fig.height=7.5)

I- ANÁLISE QUALI-QUANTITATIVA

load("C:/Users/LAB 25/Downloads/Base_de_dados-master/df_pokemon.RData")
library(RcmdrMisc)
## Warning: package 'RcmdrMisc' was built under R version 3.5.3
## Loading required package: car
## Loading required package: carData
## Loading required package: sandwich
library(corrplot)
## Warning: package 'corrplot' was built under R version 3.5.3
## corrplot 0.84 loaded

Gráfico 1: ATAQUE VS TIPO DE POKÉMON

Este gráfico Boxplot mostra a capacidade de ataque de cada categoria de pokémons

par(bg="skyblue")
boxplot(attack~type_1, data=df, id=list(method="y"),pch=20, xlab="TIPO DE POKÉMON", ylab="ATAQUE", main="ATAQUE VS TIPO DE POKÉMON",col=c("#1bd650","#db4c13","#2541ce","#8c8283","#525929","#8e9596",
"#8c4646","#f70404","#9a0eba","#caa2d3","#473407","#175415",
"#EE8130","#427255","#d86565","#722121","#accc22","#1fc477"), cex.lab=1.2, cex.main=1.9)

RESUMO NÚMERICO

numSummary(df[,"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% attack:n
## bug       65.22222 30.74161 47.50 10 42.50  63.0  90.00  135       63
## dark      86.25000 24.33657 32.50 50 65.00  86.5  97.50  131       28
## dragon   102.62500 29.64253 51.25 50 78.75  97.5 130.00  150       24
## electric  67.77778 25.15223 35.00 30 50.00  61.5  85.00  123       36
## fairy     61.52941 29.75130 27.00 20 45.00  52.0  72.00  131       17
## fighting  94.72000 27.66394 40.00 35 80.00 100.0 120.00  140       25
## fire      81.60870 25.29776 37.00 40 60.75  82.5  97.75  140       46
## flying    71.66667 42.52450 42.50 30 50.00  70.0  92.50  115        3
## ghost     66.65217 25.28674 35.00 30 50.00  65.0  85.00  115       23
## grass     70.90909 24.07790 36.25 27 53.50  68.0  89.75  130       66
## ground    91.30000 28.62498 43.75 40 72.00  83.5 115.75  150       30
## ice       70.69565 25.93600 32.50 30 50.00  65.0  82.50  130       23
## normal    71.73118 29.30096 30.00  5 55.00  70.0  85.00  160       93
## poison    74.67857 19.63001 30.50 43 60.00  74.0  90.50  106       28
## psychic   60.21739 30.76933 38.25 20 36.25  52.5  74.50  150       46
## rock      88.17500 32.57566 54.75 40 58.00  86.5 112.75  165       40
## steel     83.54545 24.60687 22.50 24 75.00  82.5  97.50  135       22
## water     71.04762 25.03013 38.00 10 52.00  70.0  90.00  130      105

COMENTÁRIO 1

Através dessde gráfico Boxplot, muitas informações são observadas sobre cada tipo ou categoria de pokémon no quesito de ATAQUE. Observando-se que pokémons na categoria fighting, tem mediana acima das outras categorias, enquanto que os do ROCK tem valor máximo mais elevado. Importante destacar também, a categoria NORMAL, além de ter um dois valores mínimos mais baixo, também possui um outlier abaixo do mínimo.

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

II- ANÁLISE Quantitativa-Quantitativa

DIAGRAMA DE DISPERÇÃO

par(bg="yellow")
scatterplot(attack~speed, regLine=TRUE, smooth=FALSE, boxplots='xy', xlab="VELOCIDADE", ylab="ATAQUE", main="DIAGRAMA DE DISPERSÃO VELOCIDADE VS ATAQUE", 
  data=df)

Matriz de correlação

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

COMENTÁRIO 2

No gráfico de dispersão, podemos observar e verificar a relação causa e efeito entre a velocidade e ataque dos pokémons. Primeiramente, no intervalo de velocidade [0 a 100] observa-se uma concentração enorme, porém quando olhar o intervalo [100 a 150] ja temos diminuição considerável. isto é, muitos pokémons não são rápidos e poderosos com os seus ataques ao mesmo tempo.

Destaque para a matrix de correlação que mostra que a velocidade não é destaque entre os pokémons quando se trata de ataque, possui valor de 0,34 como pode se observar na figura acima.