¿Cómo puedo evitar que mis gráficos facet_wrap() se aplasten?

Este es mi primer post de una pregunta acá, así que estoy nervioso, pero esto me ha estado molestando para siempre: ¿hay una forma de evitar que los gráficos se aplasten cuando se usan facet_wrap() en ggplot y hay muchos de ellos? (ver ejemplo abajo)

¡Los gráficos están muy aplastados que se vuelven difíciles de ver! Cuando agrego algo de espacio entre los gráficos, solo los aplasta más como si estuviera trabajando con una cantidad limitada de espacio. También intenté ajustar el tamaño de la fuente, eliminar el título e incluso la leyenda. ¡Eliminar la leyenda hace más espacio pero obviamente es algo importante que debe estar allí!

¿Hay una forma de solucionar esto o es algo que simplemente sucede al tratar de facetar muchos gráficos?

Aquí está mi código:

lu_acres_plot <- ggplot(data = land_use_acres, aes(x = land_use, y = acres)) +
geom_col(aes(fill = land_use)) +
facet_wrap(~i_desclu, scales = “free_y”) +
labs(title = “Cambio en el uso de la tierra”,
y = “Cambio en Acres”) +
theme_minimal() +
geom_hline(aes(yintercept=0)) +
scale_fill_manual(values = lu_pallette) +
theme(
axis.title.x = element_blank(),
axis.text.x = element_blank(),
text = element_text(family = “Times”),
axis.text = element_text(size = 12),
axis.title = element_text(size = 14, face = “bold”),
plot.title = element_text(size = 16, face = “bold”),
legend.position = “bottom”,
legend.title = element_text(size = 14, face = “bold”),
legend.title.align = 0.5,
strip.background = element_rect(color = “grey40”, fill = “grey30”),
strip.text = element_text(size = 9, color = “white”, face = “bold”),
panel.border = element_rect(color = “grey40”, fill = NA)
) +
guides(fill = guide_legend(title = “Uso de la tierra”,
title.position = “top”,
nrow = 2))
lu_acres_plot