diff --git a/docs/articles/howto-reprex.html b/docs/articles/howto-reprex.html index 1a45b0c..34f4776 100644 --- a/docs/articles/howto-reprex.html +++ b/docs/articles/howto-reprex.html @@ -455,7 +455,7 @@

} toc() -#> 241 sec elapsed +#> 262.36 sec elapsed outcome_01_adj <- out %>% mutate(rowname=as.numeric(rowname)) %>% @@ -532,7 +532,7 @@

positive 75.9 (65.3 - 84.6) 78.9 ( 67.5 - 87) -83.140 (65.87 - 95.5) +83.089 (65.81 - 95.6) covariate_01 @@ -541,7 +541,7 @@

positive 25.0 ( 8.7 - 49.1) 14.8 ( 3.8 - 44) -0.423 ( 0.27 - 29.8) +0.438 ( 0.29 - 29.9) covariate_01 @@ -550,7 +550,7 @@

positive 65.2 (42.7 - 83.6) 44.8 ( 16.0 - 78) -31.450 ( 0.41 - 81.1) +31.531 ( 0.40 - 81.1) covariate_01 @@ -577,7 +577,7 @@

positive 93.3 (85.9 - 97.5) 96.7 ( 88.2 - 99) -99.903 (97.00 - 100.0) +99.901 (97.00 - 100.0) covariate_02 @@ -634,19 +634,20 @@

  • Make a quick plot using a custom created function
  • outcome_01_adj_tbl %>%
    -  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_y") +
    -  # facet_grid(denominator~.,scales = "free_y") +
    -  colorspace::scale_color_discrete_qualitative() +
    -  labs(title = "Prevalence of numerators across denominators",
    -       y = "Prevalence",x = "")
    + 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",