title: Bidirectional Bar Chart in R
body: <p>Thank you for your help in advance. I'm relatively new to R and I'm working on creating a bidirectional bar chart using ggplot2.</p>
  <pre><code>p3 &lt;- ggplot(online_offline,aes(x=Year,y=Percentage, fill=Online_Offline))+ 
  geom_bar(stat=&quot;identity&quot;, position=&quot;identity&quot;)+
  scale_y_continuous(breaks = seq(-max(online_offline$Percentage), max(online_offline$Percentage), 10))+
  theme(axis.text.x = element_text(angle = 90, hjust = 1, vjust = 0.5, size = 15))+
  coord_flip()
  p3
  </code></pre>
  <p>That is the code i'm using and this is the result I'm getting. <a href="https://i.stack.imgur.com/JZ6Ta.jpg" rel="nofollow noreferrer">enter image description here</a></p>
  <p>I would like it to look like <a href="https://i.stack.imgur.com/KYjrX.png" rel="nofollow noreferrer">this</a>. Could anyone please help me?</p>
  <p>The data I am using is:
  <a href="https://i.stack.imgur.com/GJa2h.png" rel="nofollow noreferrer">Data</a></p>