r - ggplot2 でプロットの寸法を変更する

Question

単一の pdf ファイルを作成し、 package を使用して複数のプロットを入れたいと考えていますggplot2。ただし、特定のプロットの幅をすべて減らす必要があります。コードは次のとおりです。

invisible(pdf("foo.pdf"))
foo <- data.frame(x=rnorm(100), y=rnorm(100), class=factor(sample(2,1000,T)))
ggplot(foo, aes(x=x,y=y))+geom_point() # first plot

# For next plot I want to reduce the width
ggplot(foo, aes(x=class,y=y)) + geom_boxplot()
invisible(dev.off())

どうやってするの？