library(patchwork)

# Figure 2
p2.1 <- core_methods(human_stool) %>%
  core_plots(legend_title = "HMP Taxa Count") +
  theme(axis.title.x=element_blank(),
        axis.text.x=element_blank(),
        axis.ticks.x=element_blank())

p2.2 <- core_methods(arabidopsis) %>%
  core_plots(high= "#1B301E", 
             low = "#E1E4E1", 
             legend_title = "Arabidopsis Taxa Count")

figure2 <- p2.1 / p2.2 + patchwork::plot_annotation(tag_levels = "A")

ggsave("inst/figures/figure2.tiff", figure2, width = 15)