10

我有一个形成n x m网格的多面图。按照设计，最后一个（右下角）单元格总是空的，所以我想通过添加另一个 ggplot 对象来利用额外的空间。我目前的解决方案依赖于低级viewport方法，这不是很优雅，需要对位置和大小进行一些硬编码。

相反，我假设空白空间可以通过其他方式到达，可能是gridExtra?

这是n=m=2. 请注意，边缘没有正确对齐，因此需要一些额外的工作来手动调整视口的参数，这很痛苦，尤其是在(n, m)之后更改时。

library(ggplot2)
library(grid)
p <- qplot(displ, hwy, data = mpg[mpg$cyl != 5, ]) + 
       facet_wrap(~ cyl, nrow=2)
q <- qplot(date, unemploy, data = economics, geom = "line") + 
       labs(x = NULL, y = NULL)
p
print(q, vp=viewport(0.75, 0.275, 0.45, 0.45))

在此处输入图像描述

4

1 回答 1

10

您可以gtable像这样使用访问“空单元格”

library(gtable)
pg <- ggplotGrob(p)
qg <- ggplotGrob(q)

pl <- gtable_filter(pg, 'panel', trim=F)$layout
pg <- gtable_add_grob(pg, qg, t=max(pl$t), l=max(pl$l))

grid.newpage()
grid.draw(pg)

n x m编辑：构面的通用放置

于 2014-03-17T10:26:13.223 回答