如何改变分面情节的填充顺序?

ggplot 那就差不多完成了。我似乎无法让填充美学在闪避情节中的每一组和各个方面下降。这样做的目的是查看图并快速识别y轴上每组中的前三个类别,并且每组的颜色顺序不同。下面是一些获取代表性图形的代码。

library(tidyverse)
set.seed(123)

#using crossing from purrr

df <- crossing(
  mean = 1:8,
  cats = sample(letters[1:3], 8, T), 
  gender = c('Male', 'Female')) %>% 
  mutate(vary_x = sample(seq(1,3,.1),nrow(.), T))


df %>% 
  ggplot(aes(mean, vary_x, fill = cats))+
  geom_bar(stat = 'identity',
           position = 'dodge') +
  facet_grid(.~gender) +
  coord_flip()