a new R script to generate stack bar visualizations. I am slowly moving