如何在多面ggplot中更改填充美学的顺序？

Question

我的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()

Answer 1

类似这样的东西：

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