Aula 7 - Correlação

Profª. Edneide Ramalho

05/03/2026

Pacotes

Mostrar/ocultar código

library(tidyverse)
library(palmerpenguins)
library(ggthemes)
library(nycflights13)
library(skimr)
library(readr)
library(gt)
library(corrplot)

Dados de churn

Mostrar/ocultar código

churn <- read_csv("dados/churn_clean.csv")

Correlação

Correlação simples

Mostrar/ocultar código

cor(churn$tenure, churn$monthly_charges) |> 
  round(2)

[1] 0.25

• A correlação entre tempo de uso de serviço em meses e valor pago mensalmente é fraca (r = 0.25).

• Gráfico:

Mostrar/ocultar código

churn |> 
  ggplot(aes(x = tenure, y = monthly_charges)) +
  geom_point()

• Mais visualizações:

Mostrar/ocultar código

churn_num <- churn |> 
  select(where(is.numeric))

Mostrar/ocultar código

# Matriz de correlação
matriz_cor <- cor(churn_num, use = "complete.obs")

Mostrar/ocultar código

# Matriz de correlação - gráfica
corrplot(
  matriz_cor, 
  method = "color",
  type = "upper",
  addCoef.col = "gray",
  tl.col = "black",
  tl.srt = 45
)

• Gráfico de tenure vs. total_charges:

Mostrar/ocultar código

churn |> 
  ggplot(aes(x = tenure, y = total_charges)) +
  geom_point(alpha = 0.3, color = "lightblue") +
  geom_smooth(method = "lm", se = FALSE, color = "red") +
  theme_minimal()