R 在一个图中绘制2 xts时间序列

嗨，我以为这将是一个简单的任务，2小时后，我仍然在挣扎。 我可以用这个密码

chartSeries(snp.obj, TA=c("addTA(over,layout=NULL)"))

然而，它有一个2窗格的绘图，但我正在寻找这两个与不同的y轴重叠的xts对象在一个绘图中，不像我在chartSeries绘图中看到的那样

答案可行，但可能不那么优雅：

over = xts(over, order.by=snp.obj[121:1730])
plot(snp.obj, main='Shiller PE Timer')
lines(2000*over+1, col= 'red')`

---

将

on=

参数用于

addTA

（请参见

？addTA

）

chartSeries(snp.obj, TA=c("addTA(over, on=1)"))