从概念上讲，如果你在每个图上有不同顺序的y轴，那么我认为你有五个不同的图，而不是一个单一的多面图。因此，您可以将其绘制为：

plots <- lapply(levels(factor(diamonds$cut)), function(x) {
  diamonds %>% 
  group_by(cut) %>% 
  count(clarity, order = FALSE) %>% 
  filter(cut == x) %>%
  mutate(clarity = as.factor(reorder(clarity, n))) %>% 
  ggplot(aes(n, clarity)) +
  geom_col(fill = scales::hue_pal()(5)[match(x, levels(factor(diamonds$cut)))])+
  labs(title = x, x = "count", y = NULL) +
  theme_bw()
  }
)

library(patchwork)

  (plots[[1]] + plots[[2]]) / 
  (plots[[3]] + plots[[4]]) / 
  (plots[[5]] + plot_spacer())

一种选择是使用tidytext包中的reorder_within和scale_y_reorderd：

library(ggplot2)
library(dplyr, warn = FALSE)
library(tidytext)

diamonds$cut <- as.character(diamonds$cut)
diamonds$clarity <- as.character(diamonds$clarity)

diamonds %>%
  group_by(cut) %>%
  count(clarity, order = FALSE) %>%
  mutate(clarity = tidytext::reorder_within(clarity, n, cut)) %>%
  ggplot(aes(n, clarity, fill = cut)) +
  geom_col(show.legend = FALSE) +
  tidytext::scale_y_reordered() +
  facet_wrap(~cut, ncol = 2, scales = "free") +
  labs(x = "count", y = NULL) +
  theme_bw()