Pfthb

Is there a way to make the chart area sizes equal in two plots?
When using these two charts in a presentation, it would be nice if
the rectangles just would split and "stay in place".

I was not able to do this by using plot.margin when creating a presentation in slidy.

Here is some code demonstrating the problem.

I would like the bottom borders of the grey chart area to be aligned.

## ------------------------------------------------------------------------
library(tidyverse)
library(ggmosaic)
library(gridExtra)

## ------------------------------------------------------------------------
pruef <- tibble::tribble(
 ~Geschlecht, ~Studium, ~Test, ~n,
 "m", "MINT", "pos", 165L,
 "w", "MINT", "pos", 60L,
 "m", "HUM", "pos", 30L,
 "w", "HUM", "pos", 105L,
 "m", "MINT", "neg", 135L,
 "w", "MINT", "neg", 40L,
 "m", "HUM", "neg", 70L,
 "w", "HUM", "neg", 195L
 )

## ------------------------------------------------------------------------
pruef %>%
 ggplot() +
 geom_mosaic(aes(
 x = product(Test),
 weight = n,
 fill = Test
 ), divider = "vspine") +
 guides(fill = guide_legend(reverse = TRUE)) +
 labs(x = "", y = "") +
 theme(axis.text.x = element_blank(),
 axis.ticks.x = element_blank()) -> p1


## ------------------------------------------------------------------------
pruef %>%
 ggplot() +
 geom_mosaic(aes(x=product(Studium,Geschlecht),weight=n,fill=Test),divider=ddecker()) +
 guides(fill=guide_legend(reverse=TRUE)) +
 labs(x="",y="") +
 theme(axis.ticks.x = element_blank(),
 axis.text.x=element_text(angle=90)) ->p2

## ------------------------------------------------------------------------
grid.arrange(p1,p2,nrow=1)

Use cowplot:

library(cowplot)
plot_grid(p1, p2, align = "h")

If you want the duplicate legend removed, you will need to nest your plot_grid() in another plot_grid()(a bit hacky if your plots or code change a lot).

Alternatively, trade stability for comfort and try egg:

library(egg)
ggarrange(p1 + theme(legend.position = "none"), p2, nrow = 1)