使用grid保留圖的比例.arrange

Question

我試圖使用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) 

我得到兩個漂亮的曲線，對稱的大小：

我的圖表是指不同的參數，但他們共享同組顏色編碼。所以我想刪除除了一個之外的所有圖例，併爲它找到一個不錯的地方。

然而，當我嘗試：

p3 <- ggplot(subset(mtcars, cyl = 8), aes(wt, mpg, colour = cyl)) + geom_point() + guides(colour=FALSE) 

grid.arrange(p3, p2, ncol = 2) 

沒有傳說中的情節得到（正確地）更大：

我想保持一定的尺寸（如x的長度軸）保持相同的圖形。

我知道我可以在這裏使用小面，但我還需要說（我認爲）各個圖形組合將很難使用方面來實現..

是否有可能與grid.arrange做？任何其他解決方案可以幫助這裏？

Answer 1

幾乎沒有一樣淡雅的@Josh的解決方案，但你可以用grid.arrange它允許您保留或做指定圖的縱橫比，但您需要爲圖例製作tableGrob。我回答一個問題呈三角here這是我得到了方便的代碼從GGPLOT2傳奇製作tableGrob：

## 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() 

Answer 2

試試這個，它採用cbind.gtable：

grid.draw(cbind(ggplotGrob(p3), ggplotGrob(p2), size="last"))