在一个图中绘制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

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

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