预测＆amp;绘制多个时间序列

Question

我有一些数据我将它转换为每周的时间序列，从2017年7月26日开始到2017年3月5日结束，这就是我所拥有的。 我执行了这个命令来获得这个

sensor <- msts(reshape2::dcast(data.post,sale.week~Reference,value.var='Quantite'),start = c(2016,30), seasonal.periods=c(7,52))

Data

然后我这样做是为了预测所有数据

output <- lapply(sensor, function(x) forecast(tbats(x)))

但我不知道如何在预测后绘制每个参考的数量 我试过这个，但我得到了

         ggplot(data = fc, aes(x=sale.year, y=Quantite, group=Reference)) + geom_line()
        Error: ggplot2 doesn't know how to deal with data of class forecast

任何人都可以帮我提前谢谢你