Zachowaj proporcje wykresów za pomocą siatki.arrange

Question

Próbuję rozmieścić wiele działek przy użyciu grid.arrange. Czyni pracę przez książki, a kiedy dzwoni:

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) 

mam dwa ładne działki, symetryczne w rozmiarze:

moich wykresach odnoszą się do różnych parametrów, ale oni mają tych kodowanie tego samego koloru dla grup. Chciałbym usunąć legendę ze wszystkich oprócz jednego i znaleźć dla niej miłe miejsce.

Jednak gdy próbuję:

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

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

Działka bez legendy dostaje (prawidłowo) większy:

Chciałbym utrzymać rozmiar (jako długość x oś), aby pozostać taka sama na wykresach.

Jestem świadomy, że przydałby szlifowaniem tutaj, ale również trzeba połączyć różne wykresy, że (chyba) będzie trudne do realizacji z wykorzystaniem aspektów ..

Czy można zrobić to z grid.arrange ? Jakieś inne rozwiązania, które mogłyby tutaj pomóc?

Answer 1

Nie tak elegancko proste rozwiązanie @Josh „s, ale można to zrobić z grid.arrange który pozwala zachować lub określ współczynnik kształtu wykresów, ale musisz wprowadzić tableGrob dla swojej legendy. I odpowiedział na zblizonym pytanie here który gdzie mam kod przydatny do wytwarzania tableGrob z legendą 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

Spróbuj tego, który wykorzystuje cbind.gtable:

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