如何在gridExtra中控制绘图宽度？

Question

  

可能重复：
  left align two graph edges (ggplot)

我正在尝试将两个使用ggplot生成的图表放在同一页面的顶部和底部，以便它们的宽度相同。数据来自相同的时间序列，x轴是时间，因此重要的是具有相同时间的数据点不会相对于彼此水平移位。我在包gridExtra中尝试了grid.arrange：

grid.arrange(p1, p2)

但由于y轴标签的宽度不同，图表的宽度不同。我看了处理类似问题的this post，但我无法应用这些信息来解决我的问题。

Answer 1

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来实现类似的效果。< / p>

Answer 2

根据我的评论（以及@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")