title: How can I center the bar graphs in a facet wrap and remove the x axis labels in the facets?
body: <p>I am seeking help with ggplot facetwraps to generate a figure where the bars are centered within each facet, and there are no labels on the x-axis on the facets (since they are labeled above).</p>
  <p>How would you go about achieving this?</p>
  <p>First, generate the data frame</p>
  <pre><code>act &lt;- c(&quot;Wildlife viewing&quot;, &quot;Wildlife viewing&quot;, &quot;Wildlife viewing&quot;, 
           &quot;Birdwatching&quot;, &quot;Birdwatching&quot;, &quot;Birdwatching&quot;, 
           &quot;Wildlife photography&quot;, &quot;Wildlife photography&quot;, &quot;Wildlife photography&quot;, 
           &quot;Deer hunting&quot;, &quot;Deer hunting&quot;, &quot;Deer hunting&quot;, 
           &quot;Trapping&quot;, &quot;Trapping&quot;, &quot;Trapping&quot;, 
           &quot;Fishing&quot;, &quot;Fishing&quot;, &quot;Fishing&quot;)
  
  ppart &lt;- c(65.87091, 60.64611, 66.12500,
             37.66578, 35.97651, 41.75000,
             29.00088, 26.28488, 30.50000, 
             53.40407, 28.92805, 42.37500, 
             9.018568, 3.524229, 5.250000, 
             63.21839, 44.19971, 57.62500)
  
  Region &lt;- c(&quot;UP&quot;, &quot;SL&quot;, &quot;NL&quot;, 
              &quot;UP&quot;, &quot;SL&quot;, &quot;NL&quot;, 
              &quot;UP&quot;, &quot;SL&quot;, &quot;NL&quot;,
              &quot;UP&quot;, &quot;SL&quot;, &quot;NL&quot;,
              &quot;UP&quot;, &quot;SL&quot;, &quot;NL&quot;,
              &quot;UP&quot;, &quot;SL&quot;, &quot;NL&quot;)
  
  df &lt;- data.frame(act, ppart, Region) # create a df with % participation in various activities
  </code></pre>
  <p>Then, create the graphic.</p>
  <pre><code>ggplot(df, aes(x = act, y = ppart, fill = Region)) + 
      geom_bar(position = &quot;dodge&quot;, stat = &quot;identity&quot;) + 
      facet_wrap(~act) +
    scale_fill_grey(start = 0.8, end = 0.2) +
      ylab(&quot;Percent participation in activity&quot;) + 
    xlab(&quot;&quot;) + 
      theme_bw()
  </code></pre>
  <p><a href="https://i.stack.imgur.com/xX4x9.png" rel="nofollow noreferrer"><img src="https://i.stack.imgur.com/xX4x9.png" alt="Resulting figure" /></a></p>
  <p>As you can see, when I use the above code to generate the graph, things are a bit smushed and there are obvious issues with spacing and labels. How can I resolve these?</p>
  <p>Specifically, centering the bar graphs within each facet and removing the x-axis labels within facets. Please advise! Thank you.</p>