covariate_02 |
@@ -634,19 +634,20 @@
Make a quick plot using a custom created function
+ filter(str_detect(numerator,"outcome")) %>%
+ ggplot_prevalence_ii(
+ denominator_level = denominator_level,
+ numerator = numerator,
+ proportion = prop,
+ proportion_upp = prop_upp,
+ proportion_low = prop_low) +
+ theme(axis.text.x = element_text(angle = 0, vjust = 0, hjust=0)) +
+ # coord_flip() +
+ facet_wrap(denominator~.,scales = "free") +
+ # facet_grid(denominator~.,scales = "free_y") +
+ colorspace::scale_color_discrete_qualitative() +
+ labs(title = "Prevalence of numerators across denominators",
+ y = "Prevalence",x = "")
diff --git a/docs/articles/howto-reprex_files/figure-html/unnamed-chunk-12-1.png b/docs/articles/howto-reprex_files/figure-html/unnamed-chunk-12-1.png
index a8ab97d..f993687 100644
Binary files a/docs/articles/howto-reprex_files/figure-html/unnamed-chunk-12-1.png and b/docs/articles/howto-reprex_files/figure-html/unnamed-chunk-12-1.png differ
diff --git a/vignettes/howto-reprex.Rmd b/vignettes/howto-reprex.Rmd
index d476654..587aebc 100644
--- a/vignettes/howto-reprex.Rmd
+++ b/vignettes/howto-reprex.Rmd
@@ -443,6 +443,7 @@ outcome_01_adj_tbl %>%
```{r}
outcome_01_adj_tbl %>%
+ filter(str_detect(numerator,"outcome")) %>%
ggplot_prevalence_ii(
denominator_level = denominator_level,
numerator = numerator,
@@ -450,8 +451,8 @@ outcome_01_adj_tbl %>%
proportion_upp = prop_upp,
proportion_low = prop_low) +
theme(axis.text.x = element_text(angle = 0, vjust = 0, hjust=0)) +
- coord_flip() +
- facet_wrap(denominator~.,scales = "free_y") +
+ # coord_flip() +
+ facet_wrap(denominator~.,scales = "free") +
# facet_grid(denominator~.,scales = "free_y") +
colorspace::scale_color_discrete_qualitative() +
labs(title = "Prevalence of numerators across denominators",