Error when last plot should span whole width (single column) with nested plots above.

[romanhaa]

Hi,

Basically, what I'm trying to do is one of the examples shown in the main readme of this repo, however in a different order. The example is:

library(ggplot2)
library(patchwork)

p1 <- ggplot(mtcars) + geom_point(aes(mpg, disp))
p2 <- ggplot(mtcars) + geom_boxplot(aes(gear, disp, group = gear))
p3 <- ggplot(mtcars) + geom_smooth(aes(disp, qsec))
p4 <- ggplot(mtcars) + geom_bar(aes(carb))

p4 +
{
  p1 +
  {
    p2 + p3 + plot_layout(ncol = 1)
  }
} +
plot_layout(ncol = 1)

In my case, I need the p4 to be at the bottom, the rest would be the same (or at least similar enough). I tried as shown below but it returns all plots in a single column (overwriting the previous layout):

{
  p1 +
  {
    p2 + p3 + plot_layout(ncol = 1)
  }
} +
p4 + plot_layout(ncol = 1)

Am I missing something obvious?

Thanks,
Roman

[llrs]

If I understood well what you mean, you are trying to have one plot on the top, one on the bottom and two on the middle on the same row/space?

If so you can use this:

{
    p1 +
        {
            p2 + p3 + plot_layout(nrow = 1)
        }
} +
    p4 +plot_layout(ncol = 1)

The trick is to tell the inner plots to merge them in a single row.

[romanhaa]

Actually, I'm just trying to move the top panel (p4) to the bottom and the rest be the same (p1 next to p2 and p3 in the same row). No panel at the top which spans the whole width.

{ p1 + { p2 + p3 + plot_layout(nrow = 1) } + plot_layout(nrow = 1) } + p4 + plot_layout(ncol = 1)
# Error in wrap_dims(length(x$plots), nrow = x$layout$nrow, ncol = x$layout$ncol) : 
#   nrow * ncol >= n is not TRUE

I probably just don't get the syntax right.

[llrs]

Oh, then you need the / to place a plot below others

{p1 + { p2 + p3} }/ p4

[romanhaa]

Right, that's how the layout is supposed to be. But then I also needed to use different widths for the two columns in the top row 😅 But with your help I made it work! Thanks a lot!