创建一个图表以显示观察值和拟合值

Question

我正在尝试使用ggplot绘制数据集中的观察值和拟合值以及针对公共时间段变量的线性回归。

我的数据框称为balances。

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))

我的目的是在公共轴上绘制拟合值和观测值，并从另一个轴上的余额绘制时间段变量 - observation.num。但是，因为gdp.model对象中没有时间段变量，所以我不断收到错误：

  

eval（expr，envir，enclos）中的错误：对象'observation.num'没有   结果

有没有简单的方法来解决没有共同时间变量的拟合值的问题？