Estou tentando criar vários gráficos individuais a partir do mesmo data.frame com uma ordem diferente dos níveis de fator no eixo y para cada gráfico. Cada gráfico deve ordenar os níveis de fator em y decrescentemente.

Sei que isso pode ser feito manualmente para cada plot, mas estou procurando uma maneira mais eficiente e elegante, pois terei várias plotagens que preciso criar. Isso não precisa incluir o uso de facet_wrap, se houver outra maneira, talvez com loops etc.?

library(ggplot2)
library(dplyr)
data("diamonds")

Tomando o conjunto de dados e agregando por dois níveis de fator (clareza e corte):

means <- diamonds %>%
group_by(clarity, cut) %>%
summarise(carat = mean(carat))

Aqui, reorganizo por meio de um fator, mas, eventualmente, gostaria de reordenar separadamente para cada gráfico (diminuindo a média de clareza).

means$clarity <- reorder(means$clarity, means$carat, FUN = mean)

Criando gráficos separados com face_wrap. Usando coord_flip para comparar plotagens mais facilmente.

ggplot(means, aes(x = clarity, y = carat)) +
  geom_col() +
  facet_wrap(~cut, ncol = 1) +
  coord_flip()

Você verá que isso cria gráficos separados para cada tipo de corte, mas a ordem dos níveis dos fatores no eixo y não está correta para cada caso individual. Como encomendá-los corretamente sem precisar fazer isso manualmente para cada tipo de corte?