r - 将多个 ggplot2 绘图与网格对齐

Question

上下文

我想在同一页面上使用相同的图例绘制两个 ggplot2。 http://code.google.com/p/gridextra/wiki/arrangeGrob描述了如何做到这一点。这看起来已经不错了。但是...在我的示例中，我有两个具有相同 x 轴和不同 y 轴的图。当 y 轴的范围至少比其他图高 10 倍时(例如 10000 而不是 1000)，ggplot2(或网格？)不会正确对齐图(请参见下面的输出)。

问题

如何使用两个不同的 y 轴对齐图的左侧？

示例代码

x = c(1, 2)
y = c(10, 1000)
data1 = data.frame(x,y)
p1 <- ggplot(data1) + aes(x=x, y=y, colour=x) + geom_line()

y = c(10, 10000)
data2 = data.frame(x,y)
p2 <- ggplot(data2) + aes(x=x, y=y, colour=x) + geom_line()


# Source: http://code.google.com/p/gridextra/wiki/arrangeGrob
leg <- ggplotGrob(p1 + opts(keep="legend_box"))
legend=gTree(children=gList(leg), cl="legendGrob")
widthDetails.legendGrob <- function(x) unit(3, "cm")
grid.arrange(
  p1 + opts(legend.position="none"),
  p2 + opts(legend.position="none"),
  legend=legend, main ="", left = "")

输出

Answer 1

以更通用的方式执行相同操作的更简洁方法是使用格式化程序参数:

p1 <- ggplot(data1) +
    aes(x=x, y=y, colour=x) +
    geom_line() + 
    scale_y_continuous(formatter = function(x) format(x, width = 5))

对第二个图执行相同的操作，并确保设置宽度 >= 您期望在两个图中的最宽数字。