Добавление нескольких диаграмм в Quantmod R

Question

Я пытаюсь построить две диаграммы на одном chartSeries в quantmod в R. Мне сложно это сделать.

library(quantmod)  
tickers <- c('GLD', 'GDX') 
data <- new.env() 
getSymbols(tickers, src = 'yahoo', from = '1980-01-01', env = data) 
chartSeries(Cl(data$GLD), TA="addTA(Cl(data$GDX), on=1)") 
addRSI() 

Answer 1

Вы можете использовать chart_Series вместо chartSeries.

chart_Series(Cl(data$GLD)) 
add_TA(Cl(data$GDX), on = 1) 

И затем, если вы хотите RSI ниже в дополнительной панели, просто добавьте add_RSI().

Другой подход заключается в использовании версии> = 0.10.0 из xts (т.е. не использовать quantmod на всех), которые вы можете получить от https://github.com/joshuaulrich/xts (0.10.0 еще не на CRAN). Новая функция plot в xts очень дружелюбна с построением нескольких столбцов объекта xts. Ознакомьтесь с примерами новой функциональности ?plot.xts.

Edit # 2:

Чтобы увидеть относительные изменения легко, вы можете нормализовать ценовой ряд во многих отношениях. Это типичный подход (с использованием 0 происхождения является то, что делает карты Google):

normalise_series <- function(xdat) xdat/coredata(xdat)[1] 
getSymbols("USO") 
window <- "2013/" 

# Define colour of default chart line to chart_Series in mytheme object 
# which is passed to chart_Series: 
mytheme <- chart_theme() 
mytheme$col$line.col <- "darkgreen" 
chart_Series(normalise_series(Cl(data$GLD)[window]) - 1, theme = mytheme) 
add_TA(normalise_series(Cl(data$GDX)[window]) - 1, on = 1, col = "red", lty = 3) 
add_TA(normalise_series(Cl(USO)[window]) - 1, on = 1, col = "blue", lty =2) 

add_TA(RSI(Cl(data$GLD)), on = NA, col = "darkgreen") 
add_TA(RSI(Cl(data$GDX)), on = 2, col = "red", lty = 3) 
# Or add RSIs on different subpanels to improve readability of charts: 
add_TA(RSI(Cl(USO)), on = NA, col = "blue", lty = 2)