In brouwern/DRmencia: Data and code to replicate analyses for Latta, Brouwer, et al. 2018. PeerJ.

knitr::opts_chunk$set(echo = TRUE)

Libraries

library(ggplot2)
library(cowplot)

Load plots

load(file = "gg_flying_insects_regression.RData")
load(file = "gg_flying_insects_anova.RData")
load(file = "gg_litter_insects_regression.RData")
load(file = "gg_litter_insects_anova.RData")

Tweak axes labels

gg.out.fly.reg2 <- gg.out.fly.reg2 +xlab("") +
  theme(axis.text.x=element_blank()) +
  ggtitle("")

gg.anova.fly2 <- gg.anova.fly2 +xlab("") +
  theme(axis.text.x=element_blank()) +
  ggtitle("")

gg.litter.regress2 <- gg.litter.regress2 + ggtitle("")
gg.anova.litter <-  gg.anova.litter + ggtitle("")

cowplot::plot_grid(gg.out.fly.reg2,
                   gg.anova.fly2,
                   gg.litter.regress2,
                   gg.anova.litter,
                   rel_widths = c(8,1),
                   labels = c("a","","b",""))

brouwern/DRmencia documentation built on May 6, 2019, 12:24 p.m.