R quantmod：如何拥有两个独立的 Y 尺度？答案

【问题标题】：R quantmod: How to have two separate Y-scales?R quantmod：如何拥有两个独立的 Y 尺度？
【发布时间】：2013-06-19 13:31:39
【问题描述】：

我想针对货币对制定交易策略。当然，交易策略具有较大的价值（>10'000，因为 10'000 是初始资本）并且货币对徘徊在 1.5 左右。所以我想将策略覆盖在与货币对相同的图表上，但我需要两个不同的 Y 尺度。

我该怎么做？
就像这样，两者都在同一张图表中，但是策略（投资）是不可见的，因为它远高于货币对的最高点。

还有奖金问题:-)
如何子集从特定日期到今天的数据？像 2008 年到现在还是什么？

FXTimeSeries <- zoo(MergedSet$FXCloseRate,MergedSet$Date)
InvestmentTimeSeries <- zoo(matrix[,"Investment"], MergedSet$Date)
chartSeries(FXTimeSeries, theme="white", subset='2011-04::2013-06')
addTA(InvestmentTimeSeries,legend="Strategy", on=1)

【问题讨论】：

回答额外问题：subset="2008/" 在您的chartSeries 电话中，或者如果您已经拨打过chartSeries、zoomChart("2008/")。参见：zooom()（3 点）
我打赌 xtsextra 可以做到这一点，但找不到示例。我发现的只是做更复杂事情的例子（例如timelyportfolio.blogspot.jp/2012/08/…）

标签： r charts quantmod

【解决方案1】：

您可以使用来自latticeExtra 的xyplot.lattice 和doubleYScale。

library(latticeExtra)
library(zoo)
x.Date <- as.Date(paste(rep(2003:2004, each = 12), rep(1:12, 2), 1, sep = "-"))
x <- zoo(rnorm(24), x.Date)
obj1 <- xyplot(x)
y <- zoo(sample(10000:20000, 24),x.Date)
obj2 <- xyplot(y,col='red')
doubleYScale(obj1, obj2, add.axis = TRUE,style1 = 1, style2 = 1)

【讨论】：

加油！！为什么在这里投反对票？我认为，当您无法提供解决方案时，至少要给我们一个拒绝投票的理由……