R 绘制预测的S&；P 500收益率与10年期国债收益率之比

我试图创建一个图表，如下图所示，覆盖10年期国债收益率（红线）和标准普尔500指数股票的10年期预测（蓝线）。我如何在同一个绘图中绘制这两个图形？以下是我努力实现的一个例子：

我从这篇文章中检索到上述数字：

---

您可以使用ggplot将它们绘制在一起：

    p <- ggplot() + geom_point(bonddata,aes(x,y))+
         geom_point(sp500data,aes(x,y))

p