У меня есть граненый сюжет, который образует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))