Quick snag (#44)

some minor formatting changes to chart titles
Public-Health-Scotland · Mar 25, 2024 · e3942dd · e3942dd
2 parents 4fff1f8 + 48aba74
commit e3942dd
Show file tree

Hide file tree

Showing 2 changed files with 2 additions and 2 deletions.
diff --git a/Demographics/1. Demographics - Population.R b/Demographics/1. Demographics - Population.R
@@ -162,7 +162,7 @@ pop_pyramid <- ggplot(
   theme_profiles() + # guides(fill = FALSE)
   labs(
     y = "Population", x = "Age Group",
-    title = paste0(str_wrap(`LOCALITY`, 50), " population pyramid", pop_max_year)
+    title = paste0(str_wrap(`LOCALITY`, 50), " population pyramid ", pop_max_year)
   )
 
 

diff --git a/Households/Households Code.R b/Households/Households Code.R
@@ -123,7 +123,7 @@ houses_ts <- ggplot(house_dat1, aes(x = year, y = total_dwellings, group = 1)) +
   scale_y_continuous(labels = scales::comma, limits = c(0, 1.1 * max(house_dat1$total_dwellings))) +
   labs(
     x = "Year", y = "Number of Dwellings",
-    title = paste0("Number of Dwellings by Year in ", str_wrap(`LOCALITY`, 40), max_year_housing),
+    title = paste0("Number of Dwellings by Year in ", str_wrap(`LOCALITY`, 40)," ", max_year_housing),
     caption = "Source: Council Tax billing system (via NRS)"
   ) +
   theme(plot.title = element_text(size = 12))