r - ggplot2のx軸にバーを配置する

Question

バーと x 軸の比率を同じに保ちながら、グラフのバーを x 軸に直接載せたいと考えています。グラフを作成するために次のコードを書きました (評判が悪いためグラフを表示できません)必要に応じて。ただし、これにより比率が変わります。この場合、両方の長所を活かす方法はありますか?

plot<-ggplot(SEdatSwim,aes(x=Treatment, y=sqrtswim))+
         geom_bar(stat="identity",width=.5,fill="grey",colour="black",size=.5)+
         geom_errorbar(aes(ymin=sqrtswim-se,ymax=sqrtswim+se),width=.3)+
         geom_line(size=0.5,colour="black")+xlab("Treatment")+ylab("Number of Swims")+
         coord_cartesian(ylim=c(0,2.0))+coord_equal(1/0.7)