Time series bar graph reordering

Question

I have the following script I\'m working on, I want to re order the bar graph in descending order.

library(tidyverse)
library(lubridate)
library(ggplot2)

#df