title: i want to transform this plot to this
body: <p>using this code want to transform the plot</p>
  <pre><code>ggplot(melteddata,aes(x=date, y=value, fill=variable)) +
    geom_col(width=0.3,position = position_nudge(x=-0.2))+theme(legend.position=&quot;top&quot;)+ggtitle(&quot;wtg83363&quot;)+
    geom_col(melteddata2,mapping = aes(x=date,y=value,fill=variable),width=0.3,position = position_nudge(x=+0.2))+theme(legend.position=&quot;top&quot;)+scale_fill_manual(values=pal)+facet_wrap(~blade, scales=&quot;free_x&quot;, nrow=1)+labs(x=&quot;UT Scan Date&quot;, y=&quot;Wedge Delamination Count [-]&quot;)
  </code></pre>