r - ggplot2の凡例と軸のサイズがknitrの使用時に変更されない

Question

Knitr ドキュメントで 2 つの ggplot を並べて配置しようとしています。オンラインで表示されるチャンク オプションを使用して、それらを並べて表示することができます。ただし、これを行うと、凡例と軸のラベルのサイズが変更されません。それらは切り取られており、プロットよりもはるかに大きくなっています。欠けているものがあると確信していますが、それが何であるかはわかりません。

問題が発生する最小限の例を次に示します。

\documentclass{article}

\begin{document}

<<data, echo=FALSE>>=
library(ggplot2)
School<-c("a","a","a","a","a","a","b","b","b","b","b","b")
Name<-c("Tom", "Jim", "Sam", "Smith", "Bill", "John", "Kim", "Jill", "Rob", "Son", "Moon", "Star")
ave1<-c(1,2,3,4,5,6,7,8,9,10,11,12)
ave2<-c(12,11,10,9,8,7,6,5,4,3,2,1)
table1<-data.frame(School, Name, ave1, ave2)
@

<<graphs, fig.width=3, fig.height=3, out.width='.49\\linewidth', echo=FALSE, fig.show='hold'>>=
ggplot(table1, aes(x=School, y=ave1, fill=Name))+
  geom_bar(position="dodge", stat="identity")+
  theme_bw()+
  scale_fill_grey()+
  ylab("Average 1 Scores")+
  xlab("a vs. b Schools")+
  ggtitle("Means for a and b Schools on average 1")

ggplot(table1, aes(x=School, y=ave2, fill=Name))+
  geom_bar(position="dodge", stat="identity")+
  theme_bw()+
  scale_fill_grey()+
  ylab("Average 2 Scores")+
  xlab("a vs. b Schools")+
  ggtitle("Means for a and b Schools on average 2")
@



\end{document}

助けてくれてありがとう。