如何在R语言的因变量vs预测值图中添加黄色对角线

没问题！要在你的回归预测对比图里加上那条代表「预测值与实际值完全相等」的黄色对角线，只需要在ggplot代码里加入geom_abline()函数就行，以下是修改后的完整代码和说明：

修改后的完整代码 #

house_test <- lm(mpg ~ 1 + hp + wt, data = mtcars)
prediction <- as.data.frame(predict(house_test, mtcars, interval = 'prediction', level = .95))
prediction$mpg <- mtcars$mpg

ggplot(prediction) +
  # 调整geom_ribbon的x为预测值fit，匹配坐标轴需求（X=预测值，Y=因变量）
  geom_ribbon(aes(x = fit, ymin = lwr, ymax = upr), fill = 'lightskyblue', alpha = 0.5) +
  # 调整散点的x为预测值fit，y为实际因变量mpg
  geom_point(aes(x = fit, y = mpg), alpha = 0.2) +
  # 添加黄色y=x对角线
  geom_abline(intercept = 0, slope = 1, color = "yellow", linewidth = 1) +
  labs(title = "interval 95%CI", y = "因变量(mpg)", x = "预测值")

关键说明 #

• geom_abline(intercept = 0, slope = 1, color = "yellow", linewidth = 1) 是核心语句：
  • intercept = 0 和 slope = 1 精准定义了y=x的直线，也就是预测值与实际值完全重合的情况；
  • color = "yellow" 设置线条为你需要的黄色；
  • linewidth = 1 可以根据视觉需求调整粗细，让线条更显眼。
• 我顺便调整了geom_ribbon和geom_point的aes映射，确保X轴是预测值（fit）、Y轴是实际因变量（mpg），完全匹配你描述的坐标轴需求。

内容的提问来源于stack exchange，提问作者psysky