How to manage the free scaling in facet_wrap as the plot area size crops the labels on geom_bar

Question

I have this code as given below

ggplot(df1, aes(x = -Ord, y = Value, fill = Item)) +
  geom_bar(stat = "identity") +
  scale_y_continuous(labels = comma