r - ggplot2 でバーの幅を制御する

Question

建物ごとにパネル化された棒グラフを作成しようとしています。読みやすくするために、4 つの建物のセットごとに個別のグラフを作成します。バーの幅をすべてのプロットで同じにしたいと思います。

width コマンドを使用してみました。これは、特定のプロット内の幅を調整するために機能しますが、プロット全体で幅を均一に保ちません。変数 Final の値の数に基づいて幅を固定する上書き関数があるかのように表示されます。プロット全体で同じになるように幅を修正する方法を知っている人はいますか?

library(ggplot2)
building <- c(1,1,1,2,5,4,5,4,2,3,1,4,3,5,5)
Final       <- c("Developing","Developing","Developing","Skilled","Skilled","Skilled","Skilled","Skilled","Skilled","Skilled","Skilled","Skilled","Skilled","Accomplished","Accomplished")
mydata <- data.frame(building,Final)
str(mydata)

sub1 <- subset(mydata, building <= 4)
sub2 <- subset(mydata, building == 5)

p1 <- ggplot(sub1, aes(Final)) + 
  geom_bar(aes(fill=Final),position="dodge",colour="black",width=0.4) + 
  facet_wrap( ~ building,ncol=2) + coord_flip()
p1  + xlab("Final Summative Rating") +   
  scale_x_discrete(labels = c("","","","")) + 
  scale_fill_manual(
    values=c("Ineffective" ="red2","Developing" ="darkgoldenrod2",
             "Skilled" =  "olivedrab3","Accomplished"= "springgreen3")) + 
  theme(strip.text.x = element_text(size = 7.5)) + 
  ylab("Teacher Count") + 
  labs(fill = "Rating")

p2 <- ggplot(sub2, aes(Final)) + 
  geom_bar(aes(fill=Final),position="dodge",colour="black",width=0.4) + 
  facet_wrap( ~ building,ncol=2) + coord_flip()
p2  + xlab("Final Summative Rating") +   
  scale_x_discrete(labels = c("","","","")) + 
  scale_fill_manual(values=c("Ineffective" ="red2","Developing" ="darkgoldenrod2",
                             "Skilled" =  "olivedrab3","Accomplished"= "springgreen3")) + 
  theme(strip.text.x = element_text(size = 7.5)) + 
  ylab("Teacher Count") + labs(fill = "Rating")