Script to generate a stacked clustered bar chart using R