Importando a base de dados do Pokémon

df_pokemon.RData <- load("C:/Users/Gabriel/Downloads/df_pokemon.RData")

Correlação das variáveis

Escolhi as variáveis ataque e HP para fazer a atividade

rho <- cor(df$attack, df$hp)
rho
## [1] 0.4298658

Gráfico de Dispersão - HP x Ataque

plot(df$attack,df$hp, col = "blue", xlab = "Ataque", ylab = "HP", main = "Grafico - HP x Ataque")
abline(lm(df$attack~df$hp), col = "red")

Análise do gráfico de Dispersão

Pode-se ver que nem sempre a vida (HP) do pokémon precisa ser alta para ter um ataque forte.

Gráfico Inédito - Gráfico de Linha

library(ggplot2)

ggplot(df) +
 aes(x = attack, y = hp) +
 geom_line(size = 1L, colour = "#cf4446") +
 labs(x = "Ataque", y = "HP", title = "Grafico HP X Ataque") +
 theme_minimal()

Análise do gráfico de Linha

Percebe-se que o gráfico mostra a mesma tendência, ou seja, nem sempre os Pokémon com vida alta terá o maior ataque.