In rabutler-usbr/crssplot: Create Standard CRSS Plots

knitr::opts_chunk$set(echo = FALSE, fig.width = 16, fig.height=6)
library(ggplot2)
library(patchwork)
library(crssplot)
figs <- readRDS(params$figs_file)
figs <- figs[[params$pg_name]]
side_by_side <- function(p1, p2) {
  (p1 | p2) +
    plot_layout(guides = "collect")
}

add_space <- function(p1) {
  (plot_spacer() | p1 | plot_spacer()) +
  plot_layout(widths = c(.15, .7, .15))
}

{{pub_section}}

{{slide_title}} {{slide_subtitle}}

# [[1]] removes the logos from the plots since those are included on the slides
side_by_side(figs$powell_cloud[[1]], figs$mead_cloud[[1]])

{{slide_title}} {{slide_subtitle}}

side_by_side(figs$p3525, gg_move_y_axis(figs$p3490))

{{slide_title}} {{slide_subtitle}}

side_by_side(figs$shortage, gg_move_y_axis(figs$surplus))

{{slide_title}} {{slide_subtitle}}

side_by_side(figs$m1025, gg_move_y_axis(figs$m1000))

{{slide_title}} {{slide_subtitle}}

add_space(figs$powell_heat[[1]])

{{slide_title}} {{slide_subtitle}}

add_space(figs$mead_heat[[1]])

rabutler-usbr/crssplot documentation built on Feb. 6, 2022, 3:33 p.m.