load("C:/Users/danie/Desktop/Base_de_dados-master/df_pokemon.RData")
library(corrplot)
library(dplyr)
plot(df$hp,df$attack,pch=20,main = "Diagrama de dispersão",xlab = "HP",ylab = "Ataque")
abline(lsfit(df$hp,df$attack),col= "darkred")
pokemon <- df %>% select(attack,hp)
pokecorr <- cor(pokemon)
corrplot(pokecorr,addCoef.col = TRUE,number.cex = 0.7)
As duas variáveis escolhidas foram ataque e hp(vida) dos pokemons. Analisando o diagrama de dispersão, podemos ver uma correlação positiva média, na medida que com o aumentar dos hp dos pokemons, o ataque vai aumentando tambem.
A correlação entre as duas variáveis quantitativas indica uma associação positiva entre elas. A correlação é sempre um número entre -1 e 1. Podemos perceber que a correlação tem valor positivo de 0,43, com um grau entre fraco e médio de associação e indicado no gráfico pela cor azul.