r - 将不同绘图的 autoplot(x, facet=TRUE) 中的统一黑色更改为不同颜色

Question

这最好地解释了挑战（代码取自@Chris Snow）

if(!require('fma')){    
  install.packages("fma")    
  library(fma)    
}    

if(!require('ggfortify')){    
  install.packages("ggfortify")    
  library(ggfortify)    
}  
  
ec <- ts(econsumption, frequency = 12)    
ec 
   
autoplot(as.zoo(ec), facet = TRUE) + scale_x_date(date_labels = '%b')

请我需要将颜色更改为绿色和红色，而不是统一的黑色。此外，垂直线将在 1 月中旬和 4 月和 7 月引入