Combining plots with patchwork when plot aspect ratio is 1

user_3212698 0
Viewed 903

I have ran into an issue with combining plots using patchwork when theme(aspect.ratio = 1). Provided are a a few examples:

library(tidyverse)
library(patchwork)

# Create the base plots
plotlist = list(
  fig1 = iris %>% 
    filter(Species == "setosa") %>% 
    ggplot(aes(x = Sepal.Length, y = Sepal.Width)) +
    geom_point(),
  
  fig2 = iris %>% 
    filter(Species == "versicolor") %>% 
    ggplot(aes(x = Sepal.Length, y = Sepal.Width)) +
    geom_point(),
  
  fig3 = iris %>% 
    filter(Species == "virginica") %>% 
    ggplot(aes(x = Sepal.Length, y = Sepal.Width)) +
    geom_point()
)

# Here patchwork combines the plots nicely
plotlist$fig1 / (plotlist$fig2 + plotlist$fig3)



# However, if we change the aspect.ratio to 1 things don't look so nice anymore
plotlist = lapply(plotlist, function(x) {
  x + theme(aspect.ratio = 1)
})

# Notice the large gap between plots. Instead, I would like the plots in the second row to be almost directly under the first row.
plotlist$fig1 / (plotlist$fig2 + plotlist$fig3)


# I tried setting the margins to zero, but that doesn't change anything
plotlist = lapply(plotlist, function(x) {
  x + theme(plot.margin = margin(0, 0, 0, 0, unit = "pt"))
})

plotlist$fig1 / (plotlist$fig2 + plotlist$fig3)

How can I improve the layout using patchwork? The plots in the second row should have half the width of the first row, like the first plot, but the aspect ratio should be 1 for all plots.

patchwork ggplot2 r
1 Answers

I have also struggled a lot with figures that have aspect ratios using patchwork.

First I give you the solution and below I give you a bit more explanation on why I think this code reproduces the correct figure.

Solution:

design <- "
  33
  12
    "
plotlist$fig2 + plotlist$fig3 + plotlist$fig1 + 
    plot_layout(
        design = design, 
        heights = unit(c(2,-1),c("null","null"))
  )

enter image description here

Extra Info:

One key insight that I had is that one can specify -1 NULL units in the height and width arguments which specifies that columns and rows with such a unit should adapt to the dimensions of figures with a fixed aspect ratio (I think...).

For example in the code below I give you an example where I have a figure with an aspect ratio of 1 that I want to preserve, but I want to be able to specify the widths of the other columns. Here I specified that the middle column should have 3cm width (at least when I took the screenshot) the right column should respect the aspect ratio of the figure (eg. -1 NULLunit) and the left column can fill the remaining space (eg. 1 NULL unit).

library(ggplot2)
library(patchwork)
p1 <- ggplot(mtcars) + geom_point(aes(mpg, disp))
p2 <- ggplot(mtcars) + geom_boxplot(aes(gear, disp, group = gear)) + theme(aspect.ratio = 1)
p1 + p1 + p2 + plot_layout(widths = unit(c(1,3,-1), c("null","cm","null")))

enter image description here

But I can not blame you for not knowing this since this seems to be not documented anywhere. I myself also do not understand it completely and I just stumbled upon this fact by looking in the test folder of the patchwork package.

Thus to produce your figure, I specify that the last row should respect the aspect ratio of the figures while specifying that the first row should be twice the height.

Be careful:

Note that the design was picked carefully, as for some reason the following design does not seem to work:

design <- "
  11
  23
    "
plotlist$fig1 + plotlist$fig2 + plotlist$fig3

This to me seems a bug and I will report this as an issue to the developer.

user_104151290
Related