Struggling to get ggplot Bargraph to change colour

[andresrcs]

Can you please turn this into a proper REPRoducible EXample (reprex) that includes sample data on a copy/paste friendly format?