在 Quantmod R 中添加多个图表系列
Adding Multiple Chart Series in Quantmod R
我正在尝试在 R 中的 quantmod 中将两个图表绘制在一个 chartSeries
上。我在执行此操作时遇到了一些困难。
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()
您可以使用 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 上)。 xts
中的新 plot
函数非常友好,可以同时绘制一个 xts
对象的多列。查看 ?plot.xts
了解新功能的示例。
编辑#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)
我正在尝试在 R 中的 quantmod 中将两个图表绘制在一个 chartSeries
上。我在执行此操作时遇到了一些困难。
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()
您可以使用 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 上)。 xts
中的新 plot
函数非常友好,可以同时绘制一个 xts
对象的多列。查看 ?plot.xts
了解新功能的示例。
编辑#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)