Atividades 6 e 7

Importando a base de dados pokemon

df_pokemon <- load("C:/Users/Vitor/Desktop/Base_de_dados-master/df_pokemon.RData")

Analogia das variáveis

rho <- cor(df$weight, df$attack)
rho

## [1] 0.4605428

Gráfico de dispersão: Peso X Ataque

plot(df$weight,df$attack, col = "violetred2", xlab = "Peso", ylab = "Ataque", main = "Gráfico: Peso X Ataque")

Gráficos Inéditos

library(ggplot2)
library(ggthemes)
ggplot(df) + aes(x = weight, y = attack) + geom_hex(size= 0.9, colour = "violetred") + theme_economist() + ggtitle("Gráfico 1: Peso X Ataque, dos nossos amiguinhos fofos")

library(ggplot2)
ggplot(df, aes(x = weight, y = attack)) + geom_density2d(alpha = 0.4) + labs(x = "Peso", y = "Ataque") + ggtitle("Gráfico 2: Relação Peso X Ataque")

Conclusão

Vemos que não é pelo fato de um pokemon ser pesado, que ele deve ter um forte ataque. Também ocorre o oposto: um pokemon leve pode ter um bom ataque. Isso acontece, pois o peso não influencia diretamente na capacidade de atacar dos pokemons. OBS: a maioria dos pokemons tem entre 50 e 100 de ataque, e entre 0,1 a 250 kgs.