添加线性平滑器

您已经看到，既可以用 add_markers() 也可以用 add_lines() 痕迹在散点图上添加 LOESS 平滑线。添加线性平滑器的方法相同，但需要用 lm() 来拟合线性模型。

在本练习中，您的任务是为 2016 年电子游戏的用户评分与评论员评分的散点图添加一条线性平滑线。

添加平滑线时，缺失值（NA）可能会带来问题，因为许多建模函数会自动删除含缺失的观测。为避免冲突，请在绘图前使用 select() 和 na.omit() 删除观测。

注意：plotly 库和 vgsales2016 数据已经为您加载。

本练习是课程的一部分

R 中的 plotly 交互式数据可视化

查看课程

练习说明

以 Critic_Score 为自变量、User_Score 为因变量拟合线性回归模型，并将模型存入对象 m。
创建一个散点图，x 轴为 Critic_Score，y 轴为 User_Score。
为散点图添加一条表示拟合值的线性平滑线。

交互式实操练习

通过完成这段示例代码来试试这个练习。

# 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 = ___)

编辑并运行代码