title: combine two data frames in one graph
body: <p>I have two data frames first
  percentage_of_worker</p>
  
  <pre><code>Country,Factory,worker_efficiency
  USA,factory_A,90
  Germany,factory_A,93
  France,factory_A,90
  USA,factory_B,80
  Germany,factory_B,94
  France,factory_B,91
  USA,factory_C,78
  Germany,factory_C,95
  France,factory_C,92
  USA,factory_D,90
  Germany,factory_D,50
  France,factory_D,36
  </code></pre>
  
  <p>and  percentage_of_factory</p>
  
  <pre><code>Country,Factory,factory_efficiency
  USA,factory_A,95
  Germany,factory_A,93
  France,factory_A,90
  USA,factory_B,96
  Germany,factory_B,94
  France,factory_B,91
  USA,factory_C,97
  Germany,factory_C,95
  France,factory_C,92
  USA,factory_D,90
  Germany,factory_D,91
  France,factory_D,93
  </code></pre>
  
  <p>I draw bar plot using ggplot for both using this command </p>
  
  <pre><code>factory_plot &lt;- ggplot(percentage_of_factory,aes(Factory,factory_efficiency, fill=Country)) + 
    geom_bar(stat="identity", position=position_dodge()) +   geom_text(aes(label = round(factory_efficiency,1)) , position=position_dodge(width=0.9), vjust=-0.25, size = 3) + 
    labs(title = "Factory performance percentage", x = "Factory") 
  
  worker_plot &lt;- ggplot(percentage_of_worker,aes(Factory,worker_efficiency, fill=Country)) + 
    geom_bar(stat="identity", position=position_dodge()) +   geom_text(aes(label = round(worker_efficiency,1)) , position=position_dodge(width=0.9), vjust=-0.25, size = 3) + 
    labs(title = "worker performance percentage", x = "Factory")
  </code></pre>
  
  <p>I have those graphs </p>
  
  <p><a href="https://i.stack.imgur.com/qTU2u.png" rel="nofollow"><img src="https://i.stack.imgur.com/qTU2u.png" alt="factory graph"></a></p>
  
  <p><a href="https://i.stack.imgur.com/SCYum.png" rel="nofollow"><img src="https://i.stack.imgur.com/SCYum.png" alt="worker grpah"></a></p>
  
  <p>I would like to combine them in one graph with the same axes where column of efficiency beside each other to show the difference between the factory ans worker efficiency: 
  for example in case of factory_D it will be  factory efficiency for France "with red" is 93% followed by the worker efficiency 36% and Germany 91% for factory followed by 50% for worker etc.. for all factories</p>
  
  <p>what I tried is:</p>
  
  <pre><code>c &lt;- percentage_of_factory
  c$name &lt;- "factory"
  colnames(c)[3] &lt;- "Efficiency"
  p &lt;- percentage_of_worker
  p$name &lt;- "worker"
  colnames(p)[3] &lt;- "Efficiency"
  l &lt;- rbind(c, p)
  ggplot(l, aes(x=Factory, y=Efficiency , group=Country, fill=Country,  colour=name)) +
    geom_bar(stat="identity", position="dodge") + scale_colour_brewer(palette = "Set1")
  </code></pre>
  
  <p>but it gave this graph and it is not what I need</p>
  
  <p><a href="https://i.stack.imgur.com/aPR9d.png" rel="nofollow"><img src="https://i.stack.imgur.com/aPR9d.png" alt="enter image description here"></a></p>
  
  <p>Help would be appreciated </p>