First is the sample data and some manipulations
A<- c(150,125,0,-300,-350,-370) Series<- c("Construction","Manufacturing",&qu