Duy trì tỷ lệ biểu đồ sử dụng lưới.arrange

Question

Tôi đang cố sắp xếp nhiều lô bằng cách sử dụng grid.arrange. Nó hiện công việc của cuốn sách, và khi gọi:

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) 

tôi nhận được hai lô đẹp, đối xứng có kích thước:

đồ thị của tôi tham khảo các thông số khác nhau nhưng họ chia sẻ cùng mã hóa màu cho các nhóm. Vì vậy, tôi muốn loại bỏ các huyền thoại từ tất cả nhưng một và tìm thấy một nơi tốt đẹp cho nó.

Tuy nhiên khi tôi cố gắng:

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

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

Cốt truyện mà không có huyền thoại được (chính xác) lớn hơn:

Tôi muốn giữ cho kích thước (như độ dài của x trục) để giữ nguyên trên các đồ thị.

Tôi biết tôi có thể sử dụng faceting ở đây, nhưng tôi cũng sẽ cần phải kết hợp đồ thị khác nhau mà (tôi nghĩ) sẽ khó có thể thực hiện bằng khía cạnh ..

Có thể làm điều đó với grid.arrange ? Bất kỳ giải pháp nào khác có thể trợ giúp ở đây?

Answer 1

Không gần như thanh lịch đơn giản như giải pháp @Josh 's, nhưng bạn có thể làm điều này với grid.arrange cho phép bạn duy trì hoặc xác định tỉ lệ khung hình của các ô, nhưng bạn cần tạo một số tableGrob cho chú giải của mình. Tôi trả lời một câu hỏi simillar here được nơi tôi đã nhận mã tiện dụng để thực hiện một tableGrob từ một huyền thoại 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() 

Answer 2

Hãy thử điều này, trong đó sử dụng cbind.gtable:

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