Сохранять пропорцию графиков с использованием grid.arrange
Я пытаюсь расположить несколько графиков, используя grid.arrange.
Он выполняет задание по книге и при вызове:
p1 <- ggplot(subset(mtcars, cyl = 4), aes(wt, mpg, colour = cyl)) + geom_point()
p2 <- ggplot(subset(mtcars, cyl = 8), aes(wt, mpg, colour = cyl)) + geom_point()
grid.arrange(p1, p2, ncol = 2)
Я получаю две красивые графики, симметричные по размеру:
![enter image description here]()
Мои графики относятся к различным параметрам, но они имеют одинаковое цветовое кодирование для групп. Поэтому я хотел бы удалить легенду из всех, кроме одного, и найти для нее хорошее место.
Однако, когда я пытаюсь:
p3 <- ggplot(subset(mtcars, cyl = 8), aes(wt, mpg, colour = cyl)) + geom_point() + guides(colour=FALSE)
grid.arrange(p3, p2, ncol = 2)
Сюжет без легенды получает (правильно) больше:
![enter image description here]()
Я бы хотел, чтобы размер (как длина оси х) оставался неизменным на графиках.
Я знаю, что я мог бы использовать огранку здесь, но мне также нужно объединить различные графики, которые (я думаю) будет трудно реализовать с использованием граней.
Можно ли это сделать с помощью grid.arrange? Любые другие решения, которые могут помочь здесь?
Ответы
Ответ 1
Не так элегантно просто, как решение @Josh, но вы можете сделать это с помощью grid.arrange, который позволяет вам сохранить или указать соотношение сторон графиков, но вам нужно сделать tableGrob для вашей легенды. Я ответил на similar вопрос здесь, где я получил удобный код для создания tableGrob из легенды ggplot2:
## Make a tableGrob of your legend
tmp <- ggplot_gtable(ggplot_build(p2))
leg <- which(sapply(tmp$grobs, function(x) x$name) == "guide-box")
legend <- tmp$grobs[[leg]]
# Plot objects using widths and height and respect to fix aspect ratios
# We make a grid layout with 3 columns, one each for the plots and one for the legend
grid.newpage()
pushViewport( viewport( layout = grid.layout( 1 , 3 , widths = unit( c( 0.4 , 0.4 , 0.2 ) , "npc" ) ,heights = unit( c( 0.45 , 0.45 , 0.45 ) , "npc" ) , respect = matrix(rep(1,3),1) ) ) )
print( p1 + theme(legend.position="none") , vp = viewport( layout.pos.row = 1 , layout.pos.col = 1 ) )
print( p2 + theme(legend.position="none") , vp = viewport( layout.pos.row = 1, layout.pos.col = 2 ) )
upViewport(0)
vp3 <- viewport( width = unit(0.2,"npc") , x = 0.9 , y = 0.5)
pushViewport(vp3)
grid.draw( legend )
popViewport()
![enter image description here]()
Ответ 2
Попробуйте это, используя cbind.gtable:
grid.draw(cbind(ggplotGrob(p3), ggplotGrob(p2), size="last"))
![enter image description here]()
