updates to report figure

reports/coverage/mabs_and_antivirals_coverage_report.Rmd

@@ -889,7 +889,7 @@ include_graphics(fs::path(output_dir_rmd, "figures", "figure_proportion_stp_deci
 
 <br>
 
-```{r, treatment type count plot, echo=FALSE, message=FALSE, warning=FALSE, results='asis', fig.width=10, out.width = '100%', fig.cap = "**Figure 6 Total number of patients who received an antiviral or nMAB for treating COVID-19 since 11th December 2021, stratified by treatment type based on the last treatment code recorded ** Shorter lines for Paxlovid and casirivimab reflect availability and guidance.", fig.topcaption=TRUE}
+```{r, treatment type count plot, echo=FALSE, message=FALSE, warning=FALSE, results='asis', fig.width=10, out.width = '100%', fig.cap = "**Figure 6 Total number of patients who received an antiviral or nMAB for treating COVID-19 since 11th December 2021, stratified by treatment type based on the most recent recorded treatment code recorded ** Shorter lines for Paxlovid and casirivimab reflect availability and guidance.", fig.topcaption=TRUE}
 
 treatment_codes_data <- 
   read_csv(here::here(input_dir_os, "table_last_treatment_codes_redacted.csv")) %>%
@@ -917,13 +917,13 @@ treatment_codes_plot <- treatment_codes_data %>%
   scale_x_date(date_breaks = "2 week", date_labels =  "%d %b %Y") +
   scale_y_continuous(limits = c(0, 200), labels = comma) +
   labs(
-    x = "Last treatment date",
+    x = "Most recent treatment date",
     y = "Number of patients receiving treatment by most recent treatment date",
     colour = "Treatment type",) +
   theme(
-    axis.text = element_text(size = 15),
+    axis.text = element_text(size = 12),
     axis.text.x = element_text(angle = 60, hjust = 1),
-    axis.title = element_text(size = 20),
+    axis.title = element_text(size = 12),
     legend.text = element_text(size = 12),
     legend.title=element_text(size=12, face = "bold"),
     legend.position = c(0.1,0.75),