Reordering Groups in Raincloud Plot

Question

Currently, I have a plot that looks like this:

df <- ToothGrowth

df %>% 
  ggplot(aes(x = supp, y = len, fill = supp)) + 
  geom_flat_violin(position = po