Я пытаюсь добиться того же результата, используя siuba иplotnine. Ниже приведен мой код.
Код: Выделить всё
(
mtcars
>> arrange(_.am, _.mpg)
>> mutate(model = fct_reorder(_.model, _.am))
>> ggplot(aes(y="mpg", x="model", fill='factor(am)'))
+ geom_col()
+ labs(fill = "Automatic/Manual Transmission")
+ coord_flip()
)

Подробнее здесь: https://stackoverflow.com/questions/691 ... -variables