Atividade 6 e 7 para a aula de estatística

Durante essa atividade, os status ofensivos e defensivos, serão correlacionados para verificar se existe alguma relação entre eles.

É importante explicar no começo de que existe dois tipos diferentes de ataque e de defesa

Existem os ataques fisicos como Dragon Claw

Dragon Claw

Dragon Claw

E os que nao se enquadram nesse aspecto como ataques que envolvam a mente, veneno e outros

Psychic

Psychic

1. Importação do banco de dados

library(knitr)

load("D:/estatistica/Base_de_dados-master/df_pokemon.RData")
View(df)

2. Gráfico de densidade dos parametros analisados(gráfico novo)

library('ggplot2')

ggplot(df, aes(attack)) + geom_density(fill = "orange", alpha = .3) + labs( x = "Ataque", y = "Distribuição dos dados")+ggtitle("Gráfico de densidade sobre o ataque dos pokemons")

ggplot(df, aes(defense)) + geom_density(fill = "yellow", alpha = .3) + labs( x = "defesa", y = "Distribuição dos dados")+ggtitle("Gráfico de densidade sobre a defesa dos pokemons")

ggplot(df, aes(defense)) + geom_density(fill = "blue", alpha = .3) + labs( x = "Ataque especial", y = "Distribuição dos dados")+ggtitle("Gráfico de densidade sobre a ataque especial dos pokemons")

ggplot(df, aes(special_defense)) + geom_density(fill = "green", alpha = .3) + labs( x = "defesa especial", y = "Distribuição dos dados")+ggtitle("Gráfico de densidade sobre a defesa especial dos pokemons")

Ao comparar esses gráficos se verifica que eles apresentam certos padrões onde eles apresentam um maximo de densidade perto do ponto 50 do eixo x. e com exceção do parametro do ataque que termina um pouco antes do 175 os outros terminam um pouco depois do 225

3. Correlação entre os parametros

Durante essa etapa será veriguado se existe um relação entre os quatro parametros anteriores.É immportante considerar que o parametro de ataque não será correlacionado com o parametro defesa especial assim como ataque especial não será correlacionado com o parametro defesa.

O motivo por tráz disso é que durante um confronto nos jogos esses parametros não são colocados um contra o outro

rho <- cor(df$attack, df$special_attack)
rho
## [1] 0.3278213
sho <- cor(df$defense, df$special_defense)
sho
## [1] 0.4818737
lho <- cor(df$special_attack, df$special_defense)
lho
## [1] 0.48673
pho <- cor(df$attack, df$defense)
pho
## [1] 0.4317745

Ao se analisar os numeros obtidos pode ser confirmado que existe um forte relação entre os trêz ultimos numeros e uma relação moderada com o primeiro. Além disso, todos apresentam uma correlação positiva ou seja eles crescem juntas o que seria uma representação da subida de nivel presente nos jogos

4. Diagramas de dispersão (Quanti x Quanti)

plot(df$attack,df$special_attack, col = "blue", pch=20, xlab = "Ataque", ylab = "Ataque especial", main = "Diagrama de dispersão de ataque por ataque especial")
abline(lm(df$attack~df$special_attack), col = "darkred")

plot(df$defense,df$special_defense, col = "darkgreen", pch=20, xlab = "Defesa", ylab = "Defesa especial", main = "Diagrama de dispersão de Defesa por Defesa especial")
abline(lm(df$defense~df$special_defense), col = "darkred")

plot(df$special_attack,df$special_defense, col = "darkorange", pch=20, xlab = "Ataque especial", ylab = "Defesa especial", main = "Diagrama de dispersão de Ataque especial por Defesa especial")
abline(lm(df$special_attack~df$special_defense), col = "darkred")

plot(df$attack,df$defense, col = "darkgreen", pch=20, xlab = "Ataque", ylab = "Defesa", main = "Diagrama de dispersão de Ataque por Defesa")
abline(lm(df$attack~df$defense), col = "darkred")

Nos quatro gráficos se verifica uma grande dispersão dos dados o que dificulta obter uma conclusão. Mas se verifica um certo padrão com relação ao ataque e atque especial e com defesa e defesa especial, nesses dois graficos é possivel ver uma linha imaginária com um algulo de mais ou menos 45 graus

Uma outra curiosidade e com relação ao maior outlier dos três ultimos graficos que é o pokemon shuckle que apresenta um ataque e ataque especial de 10 enquanto a defesa e a defesa especial é de 230

5. Conclusão

Existe sim uma relação entre esses parametros mas isso é devido ao fato de quando um pokemon subir de nivel ele aumenta quase todos os seus parametros e com isso se torna quase impossivel não haver nenhuma correlação. Esse estudo talvez se tornasse mais apropriado se ele conseguisse retirar o fator do aumento de nivel