How to add a custom colorer along the axis of a ggplot in R?

Question

I want to create an additional bar along the axis of a ggplot heatmap in R. For example, if I have a data frame that looks like this:

df <- data.frame(
  a