Начертайте 2 xts времеви реда в един график

Здравейте, мислех, че това ще е лесна задача, 2 часа по-късно и все още се боря. Успях с този код

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

Въпреки това идва с диаграма с 2 панела, но аз търся тези два xts обекта, насложени с различни оси y, за да бъдат в един график, а не както го имам в графиката на chartSeries.

Отговор, който работи, но вероятно не е толкова елегантен:

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

r plot quantmod xts
person Mickson    schedule 19.05.2014    source източник

Отговори (1)


arrow_upward
1
arrow_downward

Използвайте аргумента on= за addTA (вижте ?addTA)

chartSeries(snp.obj, TA=c("addTA(over, on=1)"))
person GSee    schedule 26.05.2014