CLI 6 months delta ,VIX and S&P500. plot.zoo

mnt <- index(cli_xts$oecd["2000::2018"][cli_xts$oecd["2000::2018"]/as.vector(cli_xts$oecd["1999-07-01::2018-06-01"]) < 1])
plot.zoo(merge(VIX["2000::2018"][,4],VIX[mnt][,4]),type='h',col = c("red", "blue"), plot.type = "single")
abline(v=seq(as.Date("2001-01-01"),as.Date("2019-01-01"),by='years'), col='green')
par(new=T)
plot.default(SP5[,4]["2000::2018"],axes=F)