Вопрос по gridextra, facet, ggplot2, r, grob – Как использовать пустое пространство, созданное facet_wrap?

9

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

Ваш Ответ

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 фасеты

Благодарю. Именно то, что я ищу. tonytonov

Похожие вопросы