R quantmod: How to have two separate Y-scales?

Question

I want to build a trading strategy against a currency pair. Of course, the trading strategy is of great importance (> 10,000, since 10,000 is the initial capital), and the currency pair fluctuates around 1.5. So I want to overlay the strategy on the same chart as the currency pair, but I need two different Y-scales.

How can i do this?
Similarly, both are in the same chart, but the strategy (Investments) is not visible, since it is above the maximum maximum of the currency pair.

And the bonus question :-)
How can I multiply data from a specific date to today? how until 2008 or something else?

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) 

Answer 1

You can use xyplot.lattice and doubleYScale from latticeExtra .

 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)