VERIFICAÇÃO DO COMPORTAMENTO DA VELOCIDADE ENTRE ATAQUE E ATAQUE ESPECIAL DOS POKÉMONS

O objetivo e analisar através de gráficos o comportamento da velocidade dos pokémons considerando ATAQUE propremamente dita e ATAQUE ESPECIAL. Será que os pokémons mantém o mesmo comportamento de velocidade quando eles precisam utilizar ATAQUE ESPECIAL? Podemos observar nos gráficos abaixo que há uma semelhança, porém analisando sucintamente, podemos ver que tem uma variação entre o ATAQUE E ATAQUE ESPECIAL.

library(ggplot2)
library(Select)
load("~/Livros de Mestrado/uff 2 semestre livro/ESTATISTICA UFF 2019.1/Base_de_dados-master/df_pokemon.RData")

RELAÇÃO ENTRE ATAQUE E VELOCIDADE

Quanto mais afastado do centro vermelho maior é a relação Ataque e velocidade.Isto é, o pokémon ataqua com uma velocidade maior. Podemos observar muitos outliers atráves dos pontos pretos fora da superficie considerada, tanto para mais quanto para menos.

sp <- ggplot(df, aes(x = attack, y = speed))
sp + geom_point() + stat_density_2d(aes(fill = ..level..), geom = "polygon") + scale_fill_gradient(low = "#79db18", high = "#e80b0b")

RELAÇÃO ENTRE ATAQUE ESPECIAL E VELOCIDADE

Quanto mais afastado do centro vermelho maior é a relação Ataque especial e velocidade.Isto é, o pokémon ataqua com uma velocidade maior. Podemos observar muitos outliers atráves dos pontos pretos fora da superficie considerada, tanto para mais quanto para menos.

sp <- ggplot(df, aes(x = special_attack, y = speed))
sp + geom_point() + stat_density_2d(aes(fill = ..level..), geom = "polygon") + scale_fill_gradient(low = "#00AFBB", high = "#FC3E07")