Update plotSequenceRatios.R

OHDSI · Nov 27, 2024 · 437ee07 · 437ee07
1 parent a41dd3f
commit 437ee07
Showing 1 changed file with 4 additions and 0 deletions.
diff --git a/R/plotSequenceRatios.R b/R/plotSequenceRatios.R
@@ -99,6 +99,8 @@ plotSequenceRatios <- function(result,
       ggplot2::labs(title = plotTitle) +
       ggplot2::coord_flip() +
       ggplot2::theme_bw() +
+      ggplot2::geom_hline(yintercept = 1, linetype = 2) +
+      ggplot2::scale_shape_manual(values = rep(19, 5)) +
       ggplot2::scale_colour_manual(values = custom_colors) +
       ggplot2::theme(panel.border = ggplot2::element_blank(),
                      axis.line = ggplot2::element_line(),
@@ -127,6 +129,8 @@ plotSequenceRatios <- function(result,
       ggplot2::labs(title = plotTitle) +
       ggplot2::coord_flip() +
       ggplot2::theme_bw() +
+      ggplot2::geom_hline(yintercept = 1, linetype = 2) +
+      ggplot2::scale_shape_manual(values = rep(19, 5)) +
       ggplot2::scale_colour_manual(values = custom_colors) +
       ggplot2::theme(panel.border = ggplot2::element_blank(),
                      axis.line = ggplot2::element_line(),