title: I can't have a really back-to-back bar plot
body: <p>I've been trying to do a back-to-back bar plot, but it did not happen despite I use the command coord_flip(). The output consists of bars that meet in the middle of the graphic. I attached my R code:</p>
  <pre><code>Annotation_term &lt;- c(&quot;Disulfide bond&quot;, &quot;Secreted&quot;, &quot;Signal peptide&quot;, &quot;Extracellular region&quot;, &quot;Glycoprotein&quot;, &quot;Glycosylation site&quot;, &quot;G protein-coupled receptor&quot;, &quot;Transducer&quot;, &quot;Olfaction&quot;, &quot;Olfactory receptor&quot;, &quot;Sensory transduction&quot;, &quot;Receptor&quot;, &quot;Topological extracellular domain&quot;, &quot;Transmembrane region&quot;, &quot;Cell membrane&quot;, &quot;Sensory perception of smell&quot;, &quot;Topological cytoplasmic domain&quot;, &quot;G-protein coupled receptor signaling pathway&quot;, &quot;Immunoglobulin&quot;, &quot;Complement activation&quot;, &quot;Antigen binding&quot;, &quot;Proteolysis&quot;, &quot;Regulation of inmune response&quot;, &quot;Blood microparticle&quot;, &quot;Fc-gamma receptor signaling pathway in phagocytosis&quot;, &quot;Receptor-mediated endocytosis&quot;, &quot;40S ribosomal protein SA&quot;, &quot;Laminin-binding&quot;,&quot;Homeobox: DNA binding region&quot;, &quot;Charge relay system&quot;, &quot;Cornified envelope&quot;, &quot;Cytokine receptor binding&quot;,&quot;Disulfide bond&quot;, &quot;Secreted&quot;, &quot;Signal peptide&quot;, &quot;Extracellular region&quot;, &quot;Glycoprotein&quot;, &quot;Glycosylation site&quot;, &quot;G protein-coupled receptor&quot;, &quot;Transducer&quot;, &quot;Olfaction&quot;, &quot;Olfactory receptor&quot;, &quot;Sensory transduction&quot;, &quot;Receptor&quot;, &quot;Topological extracellular domain&quot;, &quot;Transmembrane region&quot;, &quot;Cell membrane&quot;, &quot;Sensory perception of smell&quot;, &quot;Topological cytoplasmic domain&quot;, &quot;G-protein coupled receptor signaling pathway&quot;, &quot;Immunoglobulin&quot;, &quot;Complement activation&quot;, &quot;Antigen binding&quot;, &quot;Proteolysis&quot;, &quot;Regulation of inmune response&quot;, &quot;Blood microparticle&quot;, &quot;Fc-gamma receptor signaling pathway in phagocytosis&quot;, &quot;Receptor-mediated endocytosis&quot;, &quot;40S ribosomal protein SA&quot;, &quot;Laminin-binding&quot;,&quot;Homeobox: DNA binding region&quot;, &quot;Charge relay system&quot;, &quot;Cornified envelope&quot;, &quot;Cytokine receptor binding&quot;)
  test &lt;-c(&quot;Genes associated&quot;,&quot;Genes associated&quot;,&quot;Genes associated&quot;,&quot;Genes associated&quot;,&quot;Genes associated&quot;,&quot;Genes associated&quot;,&quot;Genes associated&quot;,&quot;Genes associated&quot;,&quot;Genes associated&quot;,&quot;Genes associated&quot;,&quot;Genes associated&quot;,&quot;Genes associated&quot;,&quot;Genes associated&quot;,&quot;Genes associated&quot;,&quot;Genes associated&quot;,&quot;Genes associated&quot;,&quot;Genes associated&quot;,&quot;Genes associated&quot;,&quot;Genes associated&quot;,&quot;Genes associated&quot;,&quot;Genes associated&quot;,&quot;Genes associated&quot;,&quot;Genes associated&quot;,&quot;Genes associated&quot;,&quot;Genes associated&quot;,&quot;Genes associated&quot;,&quot;Genes associated&quot;,&quot;Genes associated&quot;,&quot;Genes associated&quot;,&quot;Genes associated&quot;,&quot;Genes associated&quot;,&quot;Genes associated&quot;,&quot;FDR&quot;,&quot;FDR&quot;,&quot;FDR&quot;,&quot;FDR&quot;,&quot;FDR&quot;,&quot;FDR&quot;,&quot;FDR&quot;,&quot;FDR&quot;,&quot;FDR&quot;,&quot;FDR&quot;,&quot;FDR&quot;,&quot;FDR&quot;,&quot;FDR&quot;,&quot;FDR&quot;,&quot;FDR&quot;,&quot;FDR&quot;,&quot;FDR&quot;,&quot;FDR&quot;,&quot;FDR&quot;,&quot;FDR&quot;,&quot;FDR&quot;,&quot;FDR&quot;,&quot;FDR&quot;,&quot;FDR&quot;,&quot;FDR&quot;,&quot;FDR&quot;,&quot;FDR&quot;,&quot;FDR&quot;,&quot;FDR&quot;,&quot;FDR&quot;,&quot;FDR&quot;,&quot;FDR&quot;)
  value &lt;-c(361,242,398,247,398,365,121,122,75,73,90,149,238,392,452,77,259,121,108,27,26,53,53,27,23,27,6,6,32,26,11,6,0.000000000000000000000000000155,0.0000000000000000000000000000000184,0.00000000000000000000032300000000000004,0.00000000000181,0.000000000000000000000030800000000000004,0.00000000000000000016000000000000002,0.0000000000000000000853,0.000000000000000001,0.00000000000000029,0.0000000000000020600000000000003,0.000000000000000679,0.0000000437,0.00000000022200000000000003,0.000054199999999999996,0.0007769999999999999,0.0000041,0.000010199999999999999,0.00000000000000000147,0.007240000000000001,0.000000997,0.000000020600000000000002,0.0131,0.00147,0.0000235,0.00027,0.00163,0.00927,0.00927,0.00456,0.0111,0.00895,0.0347)
  df &lt;-data.frame(Annotation_term, test,value)
  
  ggplot(df, aes(x=Annotation_term, y= value, fill=test)) + 
    facet_wrap(~ test, scales = &quot;free_x&quot;) + 
    geom_col() + 
    coord_flip() +
    scale_y_continuous(expand = c(0, 0)) +
    theme(panel.spacing.x = unit(0, &quot;mm&quot;))
  </code></pre>
  <p><a href="https://i.stack.imgur.com/G4yvQ.png" rel="nofollow noreferrer"><img src="https://i.stack.imgur.com/G4yvQ.png" alt="image" /></a></p>