I just add to Brian G. Peterson a message about a working example of quantum code code for creating graphs chart_Seriesin several panels:
sym_bols <- c("IEF", "VTI", "XLP", "XLF", "XLK", "VXX")
data_env <- new.env()
quantmod::getSymbols(sym_bols, env=data_env, from="2017-01-01")
x11()
par(mfrow=c(3, 2))
par(mar=c(2, 2, 2, 1), oma=c(0, 0, 0, 0))
eapply(data_env, function(x) {
plot(quantmod::chart_Series(x["2017-06/"],
name=strsplit(colnames(x)[1], split="[.]")[[1]][1]))
})
Note what chart_Seriesyou need to wrap in plot.
It produces the following graph:

source
share