change slide4 image orientation

ppt/content.R

@@ -302,24 +302,25 @@ clusters_geo <- clusters |>
 fig_county <- clusters_geo |>
   count(county, cluster_label) |>
   mutate(
+    # south at bottom → north at top: keep county_order as factor levels
     county        = factor(county, levels = county_order),
     cluster_label = factor(cluster_label, levels = cluster_labels)
   ) |>
-  ggplot(aes(county, n, fill = cluster_label)) +
+  ggplot(aes(x = n, y = county, fill = cluster_label)) +
   geom_col(position = "fill") +
   scale_fill_manual(values = cluster_palette |> set_names(cluster_labels),
                     name = NULL) +
-  scale_y_continuous(labels = scales::percent_format(), expand = c(0, 0)) +
+  scale_x_continuous(labels = scales::percent_format(), expand = c(0, 0)) +
-  labs(x = NULL, y = "Share of municipalities") +
+  labs(y = NULL, x = "Share of municipalities") +
   theme(
-    axis.text.x     = element_text(angle = 45, hjust = 1, size = 11),
+    axis.text.y     = element_text(size = 11),
     legend.position = "bottom",
     legend.text     = element_text(size = 10)
   ) +
-  guides(fill = guide_legend(nrow = 2))
+  guides(fill = guide_legend(nrow = 3))
 
 ggsave("ppt/figures/slide4_county.png", fig_county,
-       width = 12, height = 6.5, dpi = 150)
+       width = 8, height = 9, dpi = 150)
 message("Saved: ppt/figures/slide4_county.png")
 
 message("\nAll figures written to ppt/figures/. Ready to paste into the slide deck.")