knitr::opts_chunk$set(echo = TRUE)

Load community plots

load("./plots/regrxnplot_even.RData")
load("./plots/anovaplot_even.Rdata")

load("./plots/regrxnplot_pois_spprich.RData")
load("./plots/anovaplot_pois_spprich.RData")

load("./plots/regrxnplot_pois_div.RData")
load("./plots/anovaplot_pois_div.RData")
regrxnplot_pois_spprich <- regrxnplot_pois_spprich +   
        theme(axis.title.x=element_blank(),
        axis.text.x=element_blank(),
        axis.ticks.x=element_blank())

anovaplot_pois_spprich <- anovaplot_pois_spprich +   
        theme(axis.title.x=element_blank(),
        axis.text.x=element_blank(),
        axis.ticks.x=element_blank())

regrxnplot_pois_div <- regrxnplot_pois_div +   
        theme(axis.title.x=element_blank(),
        axis.text.x=element_blank(),
        axis.ticks.x=element_blank())

anovaplot_pois_spprich <- anovaplot_pois_spprich +   
        theme(axis.title.x=element_blank(),
        axis.text.x=element_blank(),
        axis.ticks.x=element_blank())
cowplot::plot_grid(regrxnplot_pois_spprich,
                   anovaplot_pois_spprich,

                   regrxnplot_pois_div,
                   anovaplot_pois_spprich,

                   regrxnplot_even,
                   anovaplot_even,
                   nrow = 3,
                   rel_widths = c(8,1))


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