r - 在 ggplot 中对齐和排列图表

Question

我在 ggplot 中有两个图，在我想对齐的轴上具有相似的范围。

使用：

library(grid)
grid.newpage()
grid.draw(rbind(ggplotGrob(g1), ggplotGrob(g2), size = "last"))

在哪里size='last'确保网格与 x 对齐，我得到这样的布局：

对于我要描绘的简单行，顶部图表的垂直范围过大。

我想要一个更符合以下内容的图像：

或者，g1 图表在 g2 图表的轴下方对齐。（一般来说，假设我希望能够选择其中一个，或者甚至将 g1 覆盖在 g2 之上。

（我的原始模型是一个单独的图表，其中 g1 组件简单地设置为 g2 图表中 y=0 的层；但是，图表太杂乱，无法使用该布局阅读，所以我想我应该移动原始的 y=0元素到一个单独的面板（即g1）。

最小的例子：

size=50
df1=data.frame(x=seq(1,size),y=sample(-100:100,size,rep=TRUE))
df2=data.frame(x=seq(1,size),r=replicate(size,paste(sample(c(letters, LETTERS),3),collapse='')))
g1=ggplot(df1)+geom_point(aes(x=x,y=y))
g2=ggplot(df2)+geom_text(aes(x=x,y=0,label=r),angle=45,size=2)
library(grid) 
grid.newpage()
grid.draw(rbind(ggplotGrob(g1), ggplotGrob(g2), size = "last"))

我希望标签条（g2）相对于散点图整齐定位。g2 条带是原始图表的一部分，作为 at 的一个geom_text()元素，y=0但图表在此处过于杂乱，标签也放在那里。

Answer 1

您只需要编辑 gtable 的高度，

library(ggplot2)
library(grid)
g1 <- g2 <- ggplotGrob(qplot(1,1))

g <- rbind(g1,g2,size="last")
id <- g$layout$t[g$layout$name == "panel"]
g$heights[id] <- lapply(c(1,4), "unit", "null")
grid.newpage()
grid.draw(g)

编辑：根据更具体的说明，我建议采用不同的策略：仅将第一个面板添加到第二个情节的 gtable 中，

p1 <- ggplot(df1)+geom_point(aes(x=x,y=y))
p2 <- ggplot(df2)+geom_text(aes(x=x,y=0,label=r),angle=45,size=2)
snug <- theme_bw() + theme(plot.margin=unit(c(0.5,0.5,0,0),"line"))

library(gtable)
g1=gtable_filter(ggplotGrob(p1 + snug), pattern = "panel", trim = TRUE, fixed=TRUE)
g2=ggplotGrob(p2 + snug)

g <- g2
g <- gtable_add_rows(g, unit(0.2, "null"), 0)
g <- gtable_add_grob(g, g1, 1, 4)
grid.newpage()
grid.draw(g)