R quantmod：如何拥有两个独立的Y轴刻度？

Question

我想绘制一种针对货币对的交易策略。当然，交易策略具有较大的价值（> 10,000，因为10,000是初始资本），而货币对则在1.5左右徘徊。因此，我想将该策略与货币对叠加在同一张图表上，但我需要两个不同的Y轴比例尺。

如何做到这一点？ 两者都在同一张图表中，但是由于投资策略（Investment）远高于货币对的最高价格，因此该策略并不可见。

还有一个奖励问题 :-) 如何从特定日期开始子集化数据直至今天？例如从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)

- MichiZH

---

答案为：在您的 chartSeries 调用中使用 subset="2008/"，或者如果您已经调用了 chartSeries，则使用 zoomChart("2008/")。另请参见：zooom()（使用 3 个 o）。 - GSee

我敢打赌xtsextra可以做到这一点，但是找不到一个例子。我发现的都是更复杂的东西的例子（例如http://timelyportfolio.blogspot.jp/2012/08/plotxts-with-moving-average-panel.html） - Darren Cook

Answer 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)

- agstudy

---

加油啊！为什么要踩这里？我认为如果你无法提供解决方案，至少给我们一个踩的理由也好啊。 - agstudy