From 0d110035eb81ad8edf28342b984907754ae0df55 Mon Sep 17 00:00:00 2001
From: Luke Davies <117165341+ldavies99@users.noreply.github.com>
Date: Wed, 3 Jan 2024 13:26:44 +0000
Subject: [PATCH] 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
---
 quarto/main/summary.qmd      | 9 +++++++--
 quarto/templates/summary.qmd | 9 +++++++--
 2 files changed, 14 insertions(+), 4 deletions(-)

diff --git a/quarto/main/summary.qmd b/quarto/main/summary.qmd
index 7894172..95c1e17 100644
--- a/quarto/main/summary.qmd
+++ b/quarto/main/summary.qmd
@@ -276,11 +276,16 @@ Please [contact the analysis standards and pipelines team](mailto:asap@ons.gov.u
 
 ```{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
index 281be2f..37de0de 100644
--- 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