ggplot周围的空格/ Sweave生成的图

Question

我正在使用此代码创建mapplots：

ggplot(fl, aes(long, lat, group = group)) +
    geom_polygon(aes(fill = density)) + guides(fill=FALSE) +
    geom_path(colour = "white", size = .1, alpha = .5) +
    scale_x_continuous(name = "", labels = NULL, breaks = NULL) +
    scale_y_continuous(name = "", labels = NULL, breaks = NULL) +
    coord_fixed()

Lat，long和group是你所期望的，这会产生佛罗里达州的地图，其中有不同深浅的县。当我这样做时，它会生成一个6平方英寸的PDF。但是底层的情​​节不是正方形，而对于马里兰州来说，它实际上是5x3左右。我如何强制ggplot创建一个PDF而不会在剧情周围留下多余的空白，以便通过Sweave更好地包含？