Intro Thoughts

Status Quo

library(tidyverse)

Experiment

library(ggplot2)
p <- ggplot() + theme(plot.background = element_rect(color = "red"))

library(patchwork)
(p + p) / (p + p) / (p + p) / (p + p) / (p + p)

ggsave("physical.png", width = 7, height = 10)

# pretty close!

Closing remarks, Other Relevant Work, Caveats