Carregando a base de dados e bibliotecas

load("C:/Users/vitor/Desktop/Base_de_dados-master/df_pokemon.RData")
library(dplyr)
library(corrplot)

Diagrama de dispersão

plot(df$attack,df$defense, pch=20, col="blue",
     main = "Diagrama de dispersão do Ataque com a Defesa",
     xlab = "Ataque",
     ylab = "Defesa")
abline(lsfit(df$attack,df$defense), col="red")

Podemos ver pelo diagrama de dispersão que a relação entre o ataque e a defesa do pokemon é positiva média, por causa da inclinação da linha.

Matriz de correlação

MPokemon <- df %>% select(attack,defense,hp)
MPokemon <- cor(MPokemon)
corrplot.mixed(MPokemon)

Na matriz de correlação usamos mais uma variável além do ataque e da defesa, o hp. Como pode-se perceber na matriz a correlação entre o ataque e a defesa é 0,43, assim como a correlação entre o ataque e o hp, sendo ambos positiva média. A correlação do hp com a defesa é 0,24, ou seja, positiva fraca.