Importação da base de dados

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

Para essas atividades a base de dados Pokemon foi escolhida.

Correlação entre as variáveis

As variáveis escolhidas foram Base Experience e Special Attack.

rho <- cor(df$base_experience, df$special_attack)
rho
## [1] 0.6630866

Gráfico dado em aula relacionando tais variáveis

plot(df$base_experience,df$special_attack, col = "purple", pch=20, xlab = "Base Experience", ylab = "Special Attack", main = "Diagrama de Base Experience por Special Attack")

No diagrama é visto um “acompanhamento” do ataque especial e da base experience, pois conforme um é maior o outro também é. Quando o ataque especial está entre 0 e 20, a base experience está entre 0 e 100; quando o ataque passa de 40, a base experience passa para a faixa de 100 a 200; e assim segue até poucos serem de uma faixa de ataque ou base experience muito rara.

Gráfico novo

library(ggplot2)
library(ggthemes)
ggplot(df) +
 aes(x = base_experience, y = special_attack) +
 geom_line(size = 1L, colour = "#0c4c8a") +
 labs(x = "Base Experience", y = "Ataque especial", title = "Gráfico de linhas", subtitle = "Base experience por Ataque especial") +
 theme_economist()

O gráfico de linhas aponta a mesma predominância vista no gráfico anteriormente mostrado. Por mais diferente que seja, a representação do “acompanhamento” ainda é vista.