From e42e719f907c05959a09fcbf1291658b00440bda Mon Sep 17 00:00:00 2001 From: sdgamboa Date: Wed, 29 May 2024 12:41:09 -0400 Subject: [PATCH] update the figure of V35 by combining both panels a and b into a single figure --- DESCRIPTION | 2 +- vignettes/articles/HMP_2012_16S_gingival_V35.Rmd | 15 +++++++++++++-- 2 files changed, 14 insertions(+), 3 deletions(-) diff --git a/DESCRIPTION b/DESCRIPTION index 9920084..67b4d81 100644 --- a/DESCRIPTION +++ b/DESCRIPTION @@ -1,6 +1,6 @@ Package: MicrobiomeBenchmarkDataAnalyses Title: Benchmarking analyses with the MicrobiomeBenchmarkData package -Version: 0.99.5 +Version: 0.99.6 Authors@R: person("Samuel David", "Gamboa-Tuz", , "Samuel.Gamboa.Tuz@gmail.com", role = c("aut", "cre"), comment = c(ORCID = "0000-0002-6863-7943")) diff --git a/vignettes/articles/HMP_2012_16S_gingival_V35.Rmd b/vignettes/articles/HMP_2012_16S_gingival_V35.Rmd index c18956a..c197a55 100644 --- a/vignettes/articles/HMP_2012_16S_gingival_V35.Rmd +++ b/vignettes/articles/HMP_2012_16S_gingival_V35.Rmd @@ -227,7 +227,13 @@ enrich_plot <- plot_enrichment( p <- plot_enrichment_2( enrich_plot, dir = c(up = 'Sup Plq', down = 'Sub Plq') -) +) + + theme( + axis.title = element_text(size = 17), + axis.text = element_text(size = 15), + legend.text = element_text(size = 13), + strip.text = element_text(size = 17) + ) p ``` @@ -268,7 +274,12 @@ positive_plots <- plot_positives(positives) |> strip.text = element_text(size = 17) ) }) -grid.arrange(grobs = positive_plots, ncol = 3) +k <- grid.arrange(grobs = positive_plots, ncol = 3) +``` + + +```{r, fig.width=15, fig.height=15, warning=FALSE} +ggarrange(p, k, ncol = 1, labels = c("a)", "b)"), heights = c(8, 10)) ``` # Session Info