Merge pull request #287 from OHDSI/plot_temporal_symmetry_updated

Update plotSequenceRatios.R
OHDSI · Nov 27, 2024 · 14887fb · 14887fb
2 parents fbde3d5 + 437ee07
commit 14887fb
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(),