绘制 Bayesian 模型

在之前的练习中，我们已经估计了一个 Bayesian 模型，用歌曲的年龄（song_age）来预测其受欢迎度（popularity）。现在让我们把模型可视化。使用已加载的 songs 数据集和 stan_model 对象，利用 ggplot2 创建一个可视化，展示数据点以及估计的回归直线。

本练习是课程的一部分

使用 rstanarm 进行贝叶斯回归建模

练习说明

将模型参数的整洁汇总保存到 tidy_coef
从 tidy_coef 中提取估计的截距和斜率
创建一幅图：x 轴为 song_age，y 轴为 popularity，同时展示数据点和估计的回归直线

交互式实操练习

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

# Save the model parameters
tidy_coef <- ___(stan_model)

# Extract intercept and slope
model_intercept <- tidy_coef$___[1]
model_slope <- tidy_coef$___[2]

# Create the plot
ggplot(songs, aes(x = ___, y = ___)) +
  geom_point() +
  geom_abline(intercept = ___, slope = ___)

编辑并运行代码