Adicionando um suavizador linear

Você já viu como adicionar suavizadores LOESS a um gráfico de dispersão usando os traços add_markers() e add_lines(). Para adicionar um suavizador linear, a abordagem é a mesma, mas você usa o comando lm() para ajustar o modelo linear.

Neste exercício, sua tarefa é adicionar um suavizador linear a um gráfico de dispersão da pontuação de usuários versus a pontuação de críticos para jogos de vídeo de 2016.

Ao adicionar suavizadores, valores ausentes (NAs) podem ser problemáticos porque muitas funções de modelagem removem automaticamente observações ausentes. Para evitar esse conflito, use select() e na.omit() para excluir observações antes de plotar.

Observe que plotly e os dados vgsales2016 já foram carregados para você.

Este exercício faz parte do curso

Visualização Interativa de Dados com plotly em R

Ver curso

Instruções do exercício

Ajuste um modelo de regressão linear usando Critic_Score como variável preditora e User_Score como variável resposta. Armazene esse modelo no objeto m.
Crie um gráfico de dispersão mostrando Critic_Score no eixo x e User_Score no eixo y.
Adicione um suavizador linear ao seu gráfico de dispersão representando os valores ajustados.

Exercício interativo prático

Experimente este exercício completando este código de exemplo.

# Fit the regression model of User_Score on Critic_Score
m <- lm(___ ~ ___, data = ___)

# Create the scatterplot with smoother
vgsales2016 %>%
   select(User_Score, Critic_Score) %>%
   na.omit() %>%
   ___(x = ___, y = ___) %>%
   ___(showlegend = FALSE) %>%
   ___(y = ___)

Editar e executar o código