stacked area charts
ggplot(a, aes(x = As_of_Year, y =LoanVolume,fill=State))+geom_area(stat ="identity",position ='stack')+ scale_x_discrete(limits = positions)+ggtitle("blank")