如何控制gridExtra中的绘图宽度？
可能重复：
左对齐两个图形边缘（ggplot）
我试图将两张使用ggplot生成的图绘制在同一页上，上下两个图上，以便它们的宽度相同。 数据来自同一时间序列，x轴是时间，所以重要的是同一时间的数据点不会相互水平移动。 我试图grid.arrange从包gridExtra：
grid.arrange(p1, p2)
但是由于y轴标签的宽度不同，图中的宽度不同。 我看了这篇文章，讨论类似的问题，但我无法应用这些信息来解决我的问题。
根据我的评论（以及@Justin答案中的评论）， facet_wrap可能是一条路。 它会生成如下图所示的内容。 很明显，你需要玩弄色彩，传说和可能的因素顺序，但你可以看到一般的方法。 代码如下图所示。
library(ggplot2)
library(reshape)
mydf <- data.frame(day = 1:10,
upper1 = runif(10, 10000, 20000),
upper2 = runif(10, 15000, 16000),
lower1 = runif(10, 1, 10),
lower2 = runif(10, 3, 8))
mydf.melt <- melt(mydf, id.var = 'day')
mydf.melt$grouping <- ifelse(mydf.melt$value >= 10000, "upper", "lower")
ggplot(mydf.melt, aes(x = day, y = value, group = variable)) +
geom_line() +
facet_wrap(~ grouping, ncol = 1, scales = "free_y")
grid.arrange的帮助文字说：
Arguments:
...: plots of class ggplot2, trellis, or grobs, and valid
arguments to grid.layout
因此阅读grid.layout会导致：
Arguments:
nrow: An integer describing the number of rows in the layout.
ncol: An integer describing the number of columns in the layout.
widths: A numeric vector or unit object describing the widths of the
columns in the layout.
heights: A numeric vector or unit object describing the heights of the
rows in the layout.
换句话说，你可以传递宽度和高度作为向量。 grid.arrange(p1, p2, heights=c(1, 2)或者举个例子：
dat <- data.frame(x=1:10, y=10:1)
q1 <- qplot(x, y, data=dat)
q2 <- qplot(y, x, data=dat)
q3 <- qplot(x, y, data=dat, geom='line')
q4 <- qplot(y, x, data=dat, geom='line')
grid.arrange(q1, q2, q3, q4, heights=1:2, widths=1:2)
还值得一提的是，类似的效果可以通常使用来实现melt从reshape2包和facet_wrap或facet_grid在ggplot2 。