R 创建图形以显示观察值和拟合值

我试图使用

ggplot

绘制数据集的观测值和拟合值，以及与公共时间段变量的线性回归

我的数据帧称为

余额

gdp.model <- lm(depvar ~ 
              indepvar1 + 
              indepvar2 + 
              indepvar3, 
            data = balances)

gdp.fitted <- ggplot(data = balances,
                 mapping = aes(x = observation.num, y = depvar)) +
                 geom_line() + 
                 geom_line(data = gdp.model,
                           mapping = aes(y = fitted.values))

---

gdp.model Look up
fortify（）
函数位于
library（ggplot2）
和
gdp.model
不是数据帧，而是
lm
对象。收听Vlo并增强数据。。。。或者直接使用
broom
包及其
augment
功能，因为
fortify
似乎在这里的时间不长。