<div dir="ltr">So something that just irritated me is this:<div><br></div><div>I'm replicating a strategy that uses weekly rebalancing, but when I go to plot the equity curve, the years cut off on the x axis, which looks weird.<br><br>Here's my code:<br><br></div><div><div>require(quantstrat)</div><div><br></div><div>#long TLT 60%, leverage 3x to 180%, rebalance weekly, short VIX 40%</div><div>getSymbols("^VIX", from="1990-01-01")</div><div>getSymbols("TLT", from="1990-01-01")</div><div>VIX <- to.weekly(OHLC(VIX), OHLC=TRUE)</div><div>TLT <- to.weekly(OHLC(TLT), OHLC=TRUE)</div><div>vixRets <- Cl(VIX)/Op(VIX)-1</div><div>tltRets <- Cl(TLT)/Op(TLT)-1</div><div>both <- merge(vixRets, tltRets, join='inner')</div><div>colnames(both) <- c("VIX", "TLT")</div><div>portfRets <- -.4*both$VIX+1.8*both$TLT</div><div>colnames(portfRets) <- "VIXTLT"</div><div>charts.PerformanceSummary(portfRets)</div></div><div><br></div><div>Along with the attached picture.<br><br>Any tips on how to get the years back into the x axis would be appreciated.</div><div><br>Thanks.</div><div><br></div><div>-Ilya</div><div><br></div><div><br></div></div>