Replace ggpubr::ggarrange with cowplot::plot_grid

insightsengineering · Apr 26, 2024 · 2237106 · 2237106
1 parent 4f1bc69
commit 2237106
Show file tree

Hide file tree

Showing 3 changed files with 7 additions and 7 deletions.
diff --git a/book/graphs/other/brg01.qmd b/book/graphs/other/brg01.qmd
@@ -270,8 +270,8 @@ tbl <- ggplot(sd_l, aes(x = ACTARM, y = stat_lbl, label = value)) +
   theme_bw() +
   tbl_theme
 
-plot <- ggpubr::ggarrange(graph, tbl,
-  heights = c(4, 1),
+plot <- cowplot::plot_grid(graph, tbl,
+  rel_heights = c(4, 1),
   ncol = 1, nrow = 2, align = "v"
 )
 plot

diff --git a/book/graphs/other/bwg01.qmd b/book/graphs/other/bwg01.qmd
@@ -329,8 +329,8 @@ tbl_1 <- ggplot(adlb_long, aes(x = ARMCD, y = type_lbl, label = stat), vjust = 1
   labs(caption = "The whiskers extend to the minimum and maximum values.") +
   theme_bp
 
-plot <- ggpubr::ggarrange(bp_annos(bp_9, oc), tbl_1,
-  heights = c(4, 2),
+plot <- cowplot::plot_grid(bp_annos(bp_9, oc), tbl_1,
+  rel_heights = c(4, 2),
   ncol = 1, nrow = 2, align = "v"
 )
 plot
@@ -349,8 +349,8 @@ tbl_2 <- adlb_long %>%
   labs(caption = "The whiskers extend to the minimum and maximum values.") +
   theme_bp
 
-plot <- ggpubr::ggarrange(bp_annos(bp_9, oc), tbl_2,
-  heights = c(6, 1),
+plot <- cowplot::plot_grid(bp_annos(bp_9, oc), tbl_2,
+  rel_heights = c(6, 1),
   ncol = 1, nrow = 2, align = "v"
 )
 plot

diff --git a/package/DESCRIPTION b/package/DESCRIPTION
@@ -13,12 +13,12 @@ Depends:
 Suggests:
     binom,
     broom,
+    cowplot,
     DescTools,
     dplyr,
     forcats,
     formatters,
     ggplot2,
-    ggpubr,
     ggrepel,
     grid,
     knitr,