title: How to get multiple bar plots in R
body: <p>The data are as follows</p>
  
  <pre class="lang-r prettyprint-override"><code>df1&lt;-read.table(text=" Fruit1 Fruit2 Frut3 Z1   Z2  Z3  ZQ1 ZQ2 ZQ3
  A   A   A   A   A   N   N   A   A
  B   A   B   N   A   N   N   A   A
  C   D   A   A   N   A   N   A   A
  D   C   A   A   N   N   N   A   N
  B   A   A   A   A   N   N   N   A
  B   C   B   N   N   A   N   N   N
  A   C   D   N   A   N   A   N   A
  D   B   D   A   N   A   N   N   N
  A   A   C   A   N   N   N   A   N",header=TRUE)
  </code></pre>
  
  <p>I want to have THREE plots concurrently, i.e., Z1 and ZQ1 with Fruit1, Z2 and ZQ2 with Fruit2 and Z3 and ZQ3 with Fruit3. 
  I want to get three graphs concurrently like this:
  <a href="https://i.stack.imgur.com/dY6uk.png" rel="nofollow noreferrer"><img src="https://i.stack.imgur.com/dY6uk.png" alt="enter image description here"></a></p>
  
  <p>I have used Map, but it does not work:</p>
  
  <pre><code>map2(names(df1)[4:6],(df1)[7:9], names(df1)[1:3], ~
                     ggplot(df1, aes_string(x = .x, fill = .y)) + 
                     geom_bar(position = position_dodge()))
  </code></pre>
  
  <p>Can we do it in R?</p>