ggplot2 в настоящее время не поддерживает свободные масштабы с не декартовой системой координат или ordin_flip

Question

С результатами тематической модели LDA я пытаюсь создать 30 горизонтальных столбчатых диаграмм, чтобы показать главные слова в сравнении с их вероятностями.

png("airport.png")
top_terms %>%
  mutate(term = reorder(term, beta)) %>%
  ggplot(aes(term, beta, fill = factor(topic))) +
  geom_bar(stat = "identity", show.legend = FALSE) +
  facet_wrap(~ topic, scales = "free") + 
  coord_flip()
dev.off()

Приведенные выше коды возвращают ошибку:

Error in facet_render.wrap(plot$facet, panel, plot$coordinates, theme,  : 
  ggplot2 does not currently support free scales with a non-cartesian coord or coord_flip.

Какие-либо предложения?

Я также попробовал следующее:

png("airport.png")
top_terms %>%
  mutate(term = reorder(term, beta)) %>%
  ggplot(aes(beta, term, fill = factor(topic))) +
  geom_bar(stat = "identity", show.legend = FALSE) +
  facet_wrap(~ topic, scales = "free")  
  #coord_flip()
dev.off()

Вывод выглядит как ниже. Проблема в том, что график не показывает горизонтальные полосы.