1) Importação da Base de Dados Pokemon

library(knitr)

load("C:/Users/marce/OneDrive/Documentos/RStudio/Base_de_dados-master/Base_de_dados-master/df_pokemon.RData")

View(df)

2) Diagrama de Dispersão

Gráfico analisando 2 variáveis Quanti x Quanti

plot((df$height~df$attack), 
     col = "powderblue", 
     xlab = "Ataque", ylab = "Altura", 
     main = 'Gráfico de Dispersão')
abline(lm(df$height~df$attack), col = "gold")

3)Gráfico Inédito: Densidade 2D

library(ggplot2)

ggplot(df, aes(x=height, y=attack) ) +
geom_hex(bins = 10) +
scale_fill_continuous(type = "viridis") +
theme_bw()

[]https://media.giphy.com/media/10LKovKon8DENq/giphy.gif

4)Conclusão:

Podemos analisar e afirmar que não é correto afirmar que todos os pokemóns altos são responsáveis por deter dos melhores ataques, enquanto na relação do diagrama de dispersão vemos que é uma maioria, mas não total.