Graphs getting squished

[GabriellaS-K]

Hello!
Thanks for a wonderful package!

My issue is with the squishing of wordy graphs.
These are some word frequency graphs taken from Julie Silge comprehensive tutorial: https://juliasilge.com/blog/term-frequency-tf-idf/

The issue is similar to #319 but the fix didn't work
These four graphs get really squished, or if I put it one above the other, stacked vertically it also looks very weird! I would appreciate some suggestions on how to fix this, I've been grappling with it for ages :(

`
library(dplyr)
library(janeaustenr)
library(tidytext)
book_words <- austen_books() %>%
unnest_tokens(word, text) %>%
count(book, word, sort = TRUE) %>%
ungroup()

total_words <- book_words %>% group_by(book) %>% summarize(total = sum(n))
book_words <- left_join(book_words, total_words)
book_words <- book_words %>%
bind_tf_idf(word, book, n)
library(ggstance)
library(ggthemes)
plot_austen <- book_words %>%
arrange(desc(tf_idf)) %>%
mutate(word = factor(word, levels = rev(unique(word))))

plot_austen_gg<-ggplot(plot_austen[1:20,], aes(tf_idf, word, fill = book, alpha = tf_idf)) +
geom_barh(stat = "identity") +
labs(title = "Highest tf-idf words in Jane Austen's Novels",
y = NULL, x = "tf-idf") +
theme_tufte(base_family = "Arial", base_size = 13, ticks = FALSE) +
scale_alpha_continuous(range = c(0.6, 1), guide = FALSE) +
scale_x_continuous(expand=c(0,0)) +
theme(legend.title=element_blank()) +
theme(legend.justification=c(1,0), legend.position=c(1,0))

library(patchwork)

plot_austen_gg+plot_austen_gg+plot_austen_gg+plot_austen_gg
#or
plot_austen_gg/plot_austen_gg/plot_austen_gg/plot_austen_gg
`

[thomasp85]

Please use the reprex package to provide a reproducible example, as it makes it much easier to see what you are experiencing