How to combine two graphs created by autoplot?

Question

Let\'s consider two financial assets (apple and gold) :

start <- as.Date("2013-01-01")
end <- as.Date("2016-10-01")
library(quantmo