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

Question

您好，我认为这将是一项简单的任务，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')`

Answer 1

对addTA 使用on= 参数（参见?addTA）

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