플롯 2 xts의 시계열 하나의 플롯

Question

안녕하세요, 저는 이것이 2 시간 후 간단한 작업이 될 것이라고 생각했으며 아직 고민 중입니다. 그것은이 된 paned 그래프와 함께 제공하지만 하나의 플롯 나는 chartSeries에서이 좋아하지에있을 다른 y 축에 오버레이이 두 XTS 객체를 찾고 있어요 그러나 는이 코드

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

과 함께 할 수 있었다 음모. 아마도 너무 우아하지 작동하지만

대답 :

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

Answer 1

너무

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