R ggplot2：纵横比和将标题/轴标签放置在正确的位置

在R下使用ggplot2，下面的代码使用rpy2，我实际上不知道直接的R，抱歉

我试图在我的绘图中添加纵横比，这样它就可以很好地放在幻灯片上。下面的例子非常简单。纵横比是正确的，除了标题和x轴标签分别放置在绘图的上方和下方，标题和绘图之间以及绘图和x轴标签之间有一个巨大的空白，如：

不酷。我怎样才能把它们挤在一起

#!/usr/bin/env python2.6
import rpy2.robjects.lib.ggplot2 as ggplot2
import rpy2.robjects as ro
from rpy2.robjects.packages import importr

df = ro.DataFrame({'x': ro.IntVector((1,2)), 'y': ro.IntVector((3,4))})
pp = ggplot2.ggplot(df) + \
    ggplot2.aes_string(x='x', y='y') + \
    ggplot2.opts(**{'title' : 'Title',
                    'aspect.ratio' : 0.618033989} ) + \
    ggplot2.geom_line()
grdevices = importr('grDevices')
grdevices.pdf(file="aspect.pdf")
pp.plot()
grdevices.dev_off()

---

这是当前布局系统中的一个限制，也是我希望很快能够解决的问题

#!/usr/bin/env python2.6
import rpy2.robjects.lib.ggplot2 as ggplot2
import rpy2.robjects as ro
from rpy2.robjects.packages import importr

df = ro.DataFrame({'x': ro.IntVector((1,2)), 'y': ro.IntVector((3,4))})
pp = ggplot2.ggplot(df) + \
    ggplot2.aes_string(x='x', y='y') + \
    ggplot2.opts(**{'title' : 'Title',
                    'aspect.ratio' : 0.618033989} ) + \
    ggplot2.geom_line()
grdevices = importr('grDevices')
grdevices.pdf(file="aspect.pdf")
pp.plot()
grdevices.dev_off()