Merge pull request #864 from facebookexperimental/missing_chart_legends

Fix #850 & #838
facebookexperimental · Nov 20, 2023 · 982cb7a · 982cb7a
2 parents a5f7c9a + 1bbb3cb
commit 982cb7a
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/R/R/plots.R b/R/R/plots.R
@@ -591,11 +591,11 @@ robyn_onepagers <- function(
       onepagerCaption <- sprintf("Robyn v%s [R-%s.%s]", ver, rver$major, rver$minor)
       get_height <- length(unique(plotMediaShareLoopLine$rn)) / 5
       pg <- (p2 + p5) / (p1 + p8) / (p3 + p7) / (p4 + p6) +
-        patchwork::plot_layout(heights = c(get_height, get_height, get_height, 1), guides = "collect") +
+        patchwork::plot_layout(heights = c(get_height, get_height, get_height, 1)) +
         # pg <- wrap_plots(p2, p5, p1, p8, p3, p7, p4, p6, ncol = 2) +
         plot_annotation(
           title = onepagerTitle, subtitle = errors,
-          theme = theme_lares(background = "white", legend = "none"),
+          theme = theme_lares(background = "white"),
           caption = onepagerCaption
         )
       all_plots[[sid]] <- pg