r - 向charts.PerformanceSummary() 添加第二个时间序列

Question

我正在使用charts.PerformanceSummary()Performance Analytics 的功能展示我的回测策略。我想在顶部图表上添加第二张图表，以查看我的回测策略与基准相比如何。因此，例如，我当前的代码是：

library(PerformanceAnalytics)
library(quantmod)

myEnv <- new.env()
getSymbols(c("AAPL","GOOG"), src = "yahoo", from = "2004-04-01", to = "2012-09-30", env = myEnv)
index <- do.call(merge, c(eapply(myEnv, Ad), all=TRUE))

index.ret <- (index / lag(index,1) - 1)[-1,]

charts.PerformanceSummary(index.ret[,1])

我想将index.ret[,2]系列添加到“累积收益”图表，但保留“每日收益”和“回撤”图表index.ret[,1]。points()根据基本绘图功能，我正在考虑类似的东西。