patchwork_cowplot_alignment_comparison.R

library(tidyverse)

data <- tibble(x = rnorm(50),
               y1 = rnorm(50),
               y2 = rnorm(50)+50,
               y3 = rnorm(50) + 500)

p1 <- data |> 
  ggplot(aes(x = x)) +
  geom_point(aes(y = y1)) +
  labs(y = "short title")

p2 <- data |> 
  ggplot(aes(x = x)) +
  geom_point(aes(y = y2)) +
  labs(y = "short title")

p3 <- data |> 
  ggplot(aes(x = x)) +
  geom_point(aes(y = y3)) +
  labs(y = "very long\ntitle with\ntwo linebreaks")


arrangement1 <- cowplot::plot_grid(p1,p2,p3, nrow = 1)

library(patchwork)

arrangement2 <- p1 + p2 + p3 + plot_layout(nrow = 1)

cowplot::plot_grid(arrangement1, arrangement2, ncol = 1)