指定ggplot2面板宽度

我在同一页面上有两个ggplots，我希望它们的面板宽度相同。一些样本数据：

dfr1 <- data.frame(
  time = 1:10,
  value = runif(10)  
)

dfr2 <- data.frame(
  time = 1:10,
  value = runif(10, 1000, 1001)  
)

一个低于另一个的情节：

p1 <- ggplot(dfr1, aes(time, value)) + geom_line()
p2 <- ggplot(dfr2, aes(time, value)) + geom_line()

grid.newpage()
pushViewport(viewport(layout = grid.layout(2, 1)))   
print(p1, vp = viewport(layout.pos.row = 1, layout.pos.col = 1))         
print(p2, vp = viewport(layout.pos.row = 2, layout.pos.col = 1))

如何指定每个图中的面板宽度和位置，以使它们对齐？（我不想将图表与刻面结合起来;这在我的实际例子中是不合适的。）

已邀请:

1 个回复

谷起

原始解决方案

 #   install.packages("ggExtra", repos="http://R-Forge.R-project.org")
 #   library(ggExtra)
 #   align.plots(p1, p2)

编辑（2013年3月22日）：由于ggExtra不再存在（并且ggplot2的许多内部已经改变），最好使用gtable包提供的合并函数（rbind，cbind），

gl = lapply(list(p1,p2), ggplotGrob)     
library(gtable)
g = do.call(rbind, c(gl, size="first"))
g$widths = do.call(unit.pmax, lapply(gl, "[[", "widths"))

grid.newpage()
grid.draw(g)

要回复问题请先登录或注册

指定ggplot2面板宽度

1 个回复

发起人

r_grid

问题状态

指定ggplot2面板宽度

与内容相关的链接

1 个回复

发起人

r_grid

问题状态