Fix heard of RAP graph and add RAP champ graph (#72)

* Fix heard of RAP graph and add RAP champ graph * Copy changes to template
best-practice-and-impact · Jan 3, 2024 · 0d11003 · 0d11003
1 parent ce67c3f
commit 0d11003
Show file tree

Hide file tree

Showing 2 changed files with 14 additions and 4 deletions.
diff --git a/quarto/main/summary.qmd b/quarto/main/summary.qmd
@@ -276,11 +276,16 @@ Please [contact the analysis standards and pipelines team](mailto:[email protected]
 
 ```{r}
 
-plot <- CARS::plot_freqs(tables$rap_knowledge, n = samples$not_RAP_champ, break_q_names_col = "value", max_lines = 3, xlab = "Knowledge", font_size = 14, orientation = "h")
-table <- CARS::df_to_table(tables$rap_knowledge, n = samples$not_RAP_champ, column_headers = c("Knowledge", "Percent"))
+plot <- CARS::plot_freqs(tables$rap_knowledge, n = samples$code_at_work, xlab = "Heard of RAP?", font_size = 14, orientation = "v")
+table <- CARS::df_to_table(tables$rap_knowledge, n = samples$code_at_work, column_headers = c("Knowledge", "Percent"))
 
 CARS::wrap_outputs("rap-knowledge", plot, table)
 
+plot <- CARS::plot_freqs(tables$rap_champ_status, n = samples$heard_of_RAP, break_q_names_col = "value", max_lines = 2, xlab = "Heard of RAP champions?", font_size = 14, orientation = "h")
+table <- CARS::df_to_table(tables$rap_champ_status, n = samples$heard_of_RAP, column_headers = c("Knowledge", "Percent"))
+
+CARS::wrap_outputs("rap-champ-status", plot, table)
+
 ```
 
 ### Most respondents have heard of the RAP strategy

diff --git a/quarto/templates/summary.qmd b/quarto/templates/summary.qmd
@@ -261,11 +261,16 @@ Respondents who have neither access nor knowledge have been removed.
 
 ```{r}
 
-plot <- CARS::plot_freqs(tables$rap_knowledge, n = samples$not_RAP_champ, break_q_names_col = "value", max_lines = 3, xlab = "Knowledge", font_size = 14, orientation = "h")
-table <- CARS::df_to_table(tables$rap_knowledge, n = samples$not_RAP_champ, column_headers = c("Knowledge", "Percent"))
+plot <- CARS::plot_freqs(tables$rap_knowledge, n = samples$code_at_work, xlab = "Heard of RAP?", font_size = 14, orientation = "v")
+table <- CARS::df_to_table(tables$rap_knowledge, n = samples$code_at_work, column_headers = c("Knowledge", "Percent"))
 
 CARS::wrap_outputs("rap-knowledge", plot, table)
 
+plot <- CARS::plot_freqs(tables$rap_champ_status, n = samples$heard_of_RAP, break_q_names_col = "value", max_lines = 2, xlab = "Heard of RAP champions?", font_size = 14, orientation = "h")
+table <- CARS::df_to_table(tables$rap_champ_status, n = samples$heard_of_RAP, column_headers = c("Knowledge", "Percent"))
+
+CARS::wrap_outputs("rap-champ-status", plot, table)
+
 ```
 
 ### Knowledge of RAP strategy