Composing multiple plots in a single page

suppressPackageStartupMessages({
    library(tidyverse)
    library(cowplot)
    library(patchwork)
    theme_set(theme_cowplot())
})
options(repr.plot.width=16,repr.plot.height=10)

Composing multiple plots in a single page#

p1 <- ggplot(mtcars) + geom_point(aes(mpg, disp)) + ggtitle('Plot 1')
p2 <- ggplot(mtcars) + geom_boxplot(aes(gear, disp, group = gear)) + ggtitle('Plot 2')

# from cowplot
plot_grid(p1,p2)
../../_images/15567e2ab32b5f3f0af1ec65f62d8fa27b7b964daec2e12646972eef41a3a2f8.png 
# with patchwork
(p1 / p2) | gridExtra::tableGrob(mtcars[1:10, c('mpg', 'disp')])
../../_images/1f1df3236ed0d7fdb37f97b631de162fbcd43fd34e29d7ce2a07bdf19bb4cefe.png

Inset plots and tables#

library(ggpp)

p <- ggplot(mpg, aes(factor(cyl), hwy)) +
  stat_summary(geom = "col", fun = mean, width = 2/3) 

ggplot(mpg, aes(displ, hwy, colour = factor(cyl))) +
  annotate("plot", x = 7, y = 44, label = p) +
  geom_point(size=3)
../../_images/39f694bfe90e2567e0d09ef16f0dee7a2712a154921ea26f63b7c0bb05eb7bd8.png 
stb <- summarise(mpg, hwy = median(hwy), cty = median(cty), .by=cyl)

ggplot(mpg, aes(displ, hwy)) +
  geom_point(size=3) +
  annotate("table", x = 7, y = 44, label = stb, size=8)
../../_images/583ce11b6c12e2c4130b246fefb102f773d30ccdda50f55343199b250530ad44.png

Plot zoom#

library(ggforce)

ggplot(iris, aes(Petal.Length, Petal.Width, colour = Species)) +
  geom_point(size=3) +
  facet_zoom(x = Species == "versicolor")
../../_images/38517f5f6b48837f92d45f9fc7c0d5b3d51bf74e8f0fe8fe4eb458b9897156c0.png
Contents