title: Creating facets for ggplot boxplots
body: <p>I have a dataframe set up as follows:</p>
  <div class="s-table-container">
  <table class="s-table">
  <thead>
  <tr>
  <th>Region</th>
  <th>Sub-region</th>
  <th>March</th>
  <th>April</th>
  <th>May</th>
  </tr>
  </thead>
  <tbody>
  <tr>
  <td>A</td>
  <td>A1</td>
  <td>9.2</td>
  <td>7.9</td>
  <td>8.0</td>
  </tr>
  <tr>
  <td>A</td>
  <td>A2</td>
  <td>8.9</td>
  <td>8.5</td>
  <td>8.0</td>
  </tr>
  <tr>
  <td>A</td>
  <td>A3</td>
  <td>9.5</td>
  <td>8.5</td>
  <td>8.4</td>
  </tr>
  <tr>
  <td>B</td>
  <td>B1</td>
  <td>9.1</td>
  <td>8.7</td>
  <td>8.5</td>
  </tr>
  <tr>
  <td>B</td>
  <td>B2</td>
  <td>9.9</td>
  <td>8.0</td>
  <td>7.7</td>
  </tr>
  <tr>
  <td>C</td>
  <td>C1</td>
  <td>8.7</td>
  <td>8.0</td>
  <td>8.2</td>
  </tr>
  <tr>
  <td>C</td>
  <td>C2</td>
  <td>9.3</td>
  <td>8.0</td>
  <td>8.4</td>
  </tr>
  <tr>
  <td>C</td>
  <td>C3</td>
  <td>9.1</td>
  <td>8.3</td>
  <td>8.5</td>
  </tr>
  </tbody>
  </table>
  </div>
  <p>I've melted the dataframe so its in this format:</p>
  <div class="s-table-container">
  <table class="s-table">
  <thead>
  <tr>
  <th>Region</th>
  <th>Sub-region</th>
  <th>Variable</th>
  <th>Value</th>
  </tr>
  </thead>
  </table>
  </div>
  <p>I'm trying to create a ggplot boxplot with a facet wrap/grid so that the output contains a panel for each region and within each panel is a boxplot for each sub-region. I've tried the below code but it's not the desired output:</p>
  <pre><code>p&lt;- Name_SR %&gt;% 
    ggplot(aes(value, sub_region)) + 
    geom_boxplot() + 
    labs(title=&quot;&quot;,
         subtitle =&quot;
           &quot;,
         x=&quot;Percentage Difference&quot;, 
         y = &quot;Sub-Region&quot;) + 
    facet_wrap(~Region) +
    theme(panel.grid = element_blank(),
          plot.margin=unit(c(1,6,1,1),&quot;cm&quot;),
          plot.title = element_text(size=12), 
          plot.subtitle = element_text(size=10),
          axis.title = element_text(size = 10))
  q&lt;- p + theme(axis.text = element_text(size=8))
  </code></pre>
  <p>Would someone be able to help me please?</p>