A function to create a very simple clustered *and* stacked bar chart in R, using no non-standard packages