diff --git a/ppt/Ruralitic-Hig-20260526-eng.pptx b/ppt/Ruralitic-Hig-20260526-eng.pptx index 95ba00c..c560b55 100644 Binary files a/ppt/Ruralitic-Hig-20260526-eng.pptx and b/ppt/Ruralitic-Hig-20260526-eng.pptx differ diff --git a/ppt/content.R b/ppt/content.R index e95116a..bd18925 100644 --- a/ppt/content.R +++ b/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)) + - labs(x = NULL, y = "Share of municipalities") + + scale_x_continuous(labels = scales::percent_format(), expand = c(0, 0)) + + 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.") diff --git a/ppt/figures/slide2_biplot.png b/ppt/figures/slide2_biplot.png index ab5938d..9236ece 100644 Binary files a/ppt/figures/slide2_biplot.png and b/ppt/figures/slide2_biplot.png differ diff --git a/ppt/figures/slide3_clusters.png b/ppt/figures/slide3_clusters.png index cb06437..afa7025 100644 Binary files a/ppt/figures/slide3_clusters.png and b/ppt/figures/slide3_clusters.png differ diff --git a/ppt/figures/slide4_county.png b/ppt/figures/slide4_county.png index 09b8759..2eb5bc8 100644 Binary files a/ppt/figures/slide4_county.png and b/ppt/figures/slide4_county.png differ