Here is the complete code:

Creating a Stacked Bar Graph with Customizable Aesthetics and Reordered Stacks Using ggplot2 in R