title: How to manage the free scaling in facet_wrap as the plot area size crops the labels on geom_bar
body: <p>I have this code as given below</p>
  <pre><code>ggplot(df1, aes(x = -Ord, y = Value, fill = Item)) +
    geom_bar(stat = &quot;identity&quot;) +
    scale_y_continuous(labels = comma) +
    facet_wrap(~Area, scales = &quot;free&quot;, drop = T, nrow = 2) +
    labs(title = &quot;Major Crops of South Asia, Top 10 on avg of 2006-2015&quot;,
         caption = &quot;Source: fao.org&quot;) +
    theme(legend.position = &quot;none&quot;,
          axis.title.y = element_blank(),
          axis.title.x = element_blank(),
          axis.text.x = element_blank(),
          axis.ticks.x = element_blank(),
          plot.caption = element_text(face = &quot;italic&quot;)) +
    geom_text(aes(label=Item), angle = 65,
              vjust=.3, hjust = -.1, size=3)
  </code></pre>
  <p>The image it produces is given as below
  <a href="https://i.stack.imgur.com/DJPCH.png" rel="nofollow noreferrer"><img src="https://i.stack.imgur.com/DJPCH.png" alt="image" /></a>
  as you can see the bar labels are getting cropped. The problem with free scales in facet_wrap is that I cannot use <code>limits</code> in <code>scale_y_continuous</code> otherwise some plot areas would be blank due to wide variation in value range for each country.
  So, my query is how to manage adding some extra space by increasing y scale for each plot freely without compromising the <code>scales</code>.</p>
  <p>I have tried <code>scale_y_continuous(limits = c(0, max(df1$Value)), labels = comma)</code> but then it kills <code>scales = &quot;free&quot;</code> in <code>facet_wrap</code>.
  And, also the <code>max</code> values are to be groupwise in order to be really effective. This part I am unable to sort out.</p>
  <p>I have deliberately avoided dput data just in case if it is needed kindly let me know. I would supply it.
  Thanks.</p>