cluster labels csv

data/processed/cluster_assignment_6_labels.csv

@@ -0,0 +1,291 @@
+"","municipality","cluster_labels"
+"1","Pajala","Remote & peripheral"
+"2","Vansbro","Remote & peripheral"
+"3","Norsjö","Remote & peripheral"
+"4","Årjäng","Remote & peripheral"
+"5","Strömsund","Remote & peripheral"
+"6","Övertorneå","Remote & peripheral"
+"7","Ovanåker","Central industrial towns"
+"8","Torsby","Remote & peripheral"
+"9","Överkalix","Remote & peripheral"
+"10","Uppvidinge","Central industrial towns"
+"11","Dorotea","Remote & peripheral"
+"12","Åsele","Remote & peripheral"
+"13","Sorsele","Remote & peripheral"
+"14","Ragunda","Remote & peripheral"
+"15","Malå","Central industrial towns"
+"16","Bjurholm","Peri-rural commuter belt"
+"17","Gällivare","Remote & peripheral"
+"18","Vindeln","Central industrial towns"
+"19","Bengtsfors","Central industrial towns"
+"20","Vilhelmina","Remote & peripheral"
+"21","Eda","Central industrial towns"
+"22","Hultsfred","Central industrial towns"
+"23","Jokkmokk","Remote & peripheral"
+"24","Älvdalen","Remote & peripheral"
+"25","Vetlanda","Central industrial towns"
+"26","Älvsbyn","Remote & peripheral"
+"27","Hylte","Central industrial towns"
+"28","Ånge","Remote & peripheral"
+"29","Högsby","Peri-rural commuter belt"
+"30","Lycksele","Remote & peripheral"
+"31","Gislaved","Central industrial towns"
+"32","Sävsjö","Central industrial towns"
+"33","Robertsfors","Peri-rural commuter belt"
+"34","Örnsköldsvik","Remote & peripheral"
+"35","Ydre","Peri-rural commuter belt"
+"36","Vimmerby","Central industrial towns"
+"37","Kramfors","Remote & peripheral"
+"38","Arjeplog","Remote & peripheral"
+"39","Tingsryd","Central industrial towns"
+"40","Ljusdal","Remote & peripheral"
+"41","Hagfors","Central industrial towns"
+"42","Gnosjö","Central industrial towns"
+"43","Emmaboda","Central industrial towns"
+"44","Tranemo","Central industrial towns"
+"45","Storuman","Remote & peripheral"
+"46","Sollefteå","Remote & peripheral"
+"47","Arvidsjaur","Remote & peripheral"
+"48","Nordanstig","Peri-rural commuter belt"
+"49","Markaryd","Central industrial towns"
+"50","Gullspång","Central industrial towns"
+"51","Kalix","Remote & peripheral"
+"52","Sunne","Remote & peripheral"
+"53","Bräcke","Peri-rural commuter belt"
+"54","Berg","Remote & peripheral"
+"55","Ockelbo","Peri-rural commuter belt"
+"56","Dals-Ed","Central industrial towns"
+"57","Ödeshög","Peri-rural commuter belt"
+"58","Ljungby","Central industrial towns"
+"59","Nordmaling","Peri-rural commuter belt"
+"60","Hällefors","Central industrial towns"
+"61","Mellerud","Peri-rural commuter belt"
+"62","Valdemarsvik","Peri-rural commuter belt"
+"63","Piteå","Remote & peripheral"
+"64","Kiruna","Remote & peripheral"
+"65","Härjedalen","Remote & peripheral"
+"66","Kinda","Peri-rural commuter belt"
+"67","Laxå","Central industrial towns"
+"68","Vara","Central industrial towns"
+"69","Torsås","Peri-rural commuter belt"
+"70","Arvika","Remote & peripheral"
+"71","Mönsterås","Central industrial towns"
+"72","Säffle","Central industrial towns"
+"73","Färgelanda","Peri-rural commuter belt"
+"74","Essunga","Peri-rural commuter belt"
+"75","Askersund","Central industrial towns"
+"76","Olofström","Central industrial towns"
+"77","Lindesberg","Central industrial towns"
+"78","Filipstad","Central industrial towns"
+"79","Skinnskatteberg","Central industrial towns"
+"80","Bollnäs","Remote & peripheral"
+"81","Västervik","Remote & peripheral"
+"82","Haparanda","Remote & peripheral"
+"83","Munkfors","Central industrial towns"
+"84","Vaggeryd","Central industrial towns"
+"85","Ljusnarsberg","Central industrial towns"
+"86","Herrljunga","Central industrial towns"
+"87","Oskarshamn","Central industrial towns"
+"88","Svenljunga","Peri-rural commuter belt"
+"89","Vingåker","Peri-rural commuter belt"
+"90","Mora","Central industrial towns"
+"91","Hudiksvall","Remote & peripheral"
+"92","Tanum","Central industrial towns"
+"93","Smedjebacken","Peri-rural commuter belt"
+"94","Skellefteå","Remote & peripheral"
+"95","Falköping","Central industrial towns"
+"96","Värnamo","Central industrial towns"
+"97","Söderhamn","Remote & peripheral"
+"98","Laholm","Peri-rural commuter belt"
+"99","Östra Göinge","Peri-rural commuter belt"
+"100","Töreboda","Central industrial towns"
+"101","Hofors","Central industrial towns"
+"102","Storfors","Peri-rural commuter belt"
+"103","Tranås","Central industrial towns"
+"104","Åmål","Central industrial towns"
+"105","Malung-Sälen","Remote & peripheral"
+"106","Gotland","Remote & peripheral"
+"107","Nybro","Central industrial towns"
+"108","Flen","Central industrial towns"
+"109","Borgholm","Central industrial towns"
+"110","Tidaholm","Central industrial towns"
+"111","Ulricehamn","Central industrial towns"
+"112","Ludvika","Central industrial towns"
+"113","Ronneby","Central industrial towns"
+"114","Aneby","Peri-rural commuter belt"
+"115","Munkedal","Peri-rural commuter belt"
+"116","Örkelljunga","Peri-rural commuter belt"
+"117","Alvesta","Peri-rural commuter belt"
+"118","Gagnef","Peri-rural commuter belt"
+"119","Lessebo","Peri-rural commuter belt"
+"120","Grums","Peri-rural commuter belt"
+"121","Eksjö","Central industrial towns"
+"122","Leksand","Central industrial towns"
+"123","Strömstad","Remote & peripheral"
+"124","Nässjö","Central industrial towns"
+"125","Hjo","Central industrial towns"
+"126","Boxholm","Peri-rural commuter belt"
+"127","Hedemora","Central industrial towns"
+"128","Degerfors","Peri-rural commuter belt"
+"129","Katrineholm","Central industrial towns"
+"130","Rättvik","Central industrial towns"
+"131","Östhammar","Central industrial towns"
+"132","Orsa","Central industrial towns"
+"133","Motala","Central industrial towns"
+"134","Mark","Central industrial towns"
+"135","Orust","Peri-rural commuter belt"
+"136","Sölvesborg","Peri-rural commuter belt"
+"137","Tierp","Central industrial towns"
+"138","Finspång","Central industrial towns"
+"139","Lysekil","Central industrial towns"
+"140","Grästorp","Peri-rural commuter belt"
+"141","Simrishamn","Central industrial towns"
+"142","Avesta","Central industrial towns"
+"143","Sotenäs","Central industrial towns"
+"144","Mullsjö","Peri-rural commuter belt"
+"145","Nora","Central industrial towns"
+"146","Kungsör","Peri-rural commuter belt"
+"147","Hörby","Peri-rural commuter belt"
+"148","Åtvidaberg","Central industrial towns"
+"149","Heby","Peri-rural commuter belt"
+"150","Säter","Peri-rural commuter belt"
+"151","Falkenberg","Central industrial towns"
+"152","Hässleholm","Central industrial towns"
+"153","Vårgårda","Peri-rural commuter belt"
+"154","Karlsborg","Central industrial towns"
+"155","Götene","Peri-rural commuter belt"
+"156","Tomelilla","Peri-rural commuter belt"
+"157","Krokom","Peri-rural commuter belt"
+"158","Sandviken","Central industrial towns"
+"159","Sjöbo","Peri-rural commuter belt"
+"160","Osby","Peri-rural commuter belt"
+"161","Kristianstad","Regional service centres"
+"162","Sala","Central industrial towns"
+"163","Halmstad","Regional service centres"
+"164","Karlshamn","Central industrial towns"
+"165","Bromölla","Peri-rural commuter belt"
+"166","Tibro","Peri-rural commuter belt"
+"167","Boden","Regional service centres"
+"168","Karlskrona","Regional service centres"
+"169","Norberg","Peri-rural commuter belt"
+"170","Varberg","Regional service centres"
+"171","Lekeberg","Peri-rural commuter belt"
+"172","Lilla Edet","Peri-rural commuter belt"
+"173","Köping","Central industrial towns"
+"174","Hallsberg","Peri-rural commuter belt"
+"175","Älvkarleby","Peri-rural commuter belt"
+"176","Eskilstuna","Regional service centres"
+"177","Mörbylånga","Peri-rural commuter belt"
+"178","Forshaga","Peri-rural commuter belt"
+"179","Lidköping","Peri-rural commuter belt"
+"180","Svalöv","Peri-rural commuter belt"
+"181","Öckerö","Peri-rural commuter belt"
+"182","Vännäs","Peri-rural commuter belt"
+"183","Perstorp","Peri-rural commuter belt"
+"184","Tjörn","Peri-rural commuter belt"
+"185","Kristinehamn","Peri-rural commuter belt"
+"186","Söderköping","Peri-rural commuter belt"
+"187","Falun","Regional service centres"
+"188","Arboga","Peri-rural commuter belt"
+"189","Klippan","Peri-rural commuter belt"
+"190","Kil","Peri-rural commuter belt"
+"191","Vadstena","Peri-rural commuter belt"
+"192","Surahammar","Peri-rural commuter belt"
+"193","Hallstahammar","Peri-rural commuter belt"
+"194","Jönköping","Regional service centres"
+"195","Mjölby","Peri-rural commuter belt"
+"196","Älmhult","Peri-rural commuter belt"
+"197","Gnesta","Peri-rural commuter belt"
+"198","Mariestad","Peri-rural commuter belt"
+"199","Åre","Regional service centres"
+"200","Bjuv","Peri-rural commuter belt"
+"201","Härnösand","Regional service centres"
+"202","Karlskoga","Regional service centres"
+"203","Borås","Regional service centres"
+"204","Norrtälje","Regional service centres"
+"205","Åstorp","Peri-rural commuter belt"
+"206","Skurup","Peri-rural commuter belt"
+"207","Skara","Peri-rural commuter belt"
+"208","Norrköping","Regional service centres"
+"209","Habo","Peri-rural commuter belt"
+"210","Växjö","Regional service centres"
+"211","Båstad","Peri-rural commuter belt"
+"212","Fagersta","Regional service centres"
+"213","Höör","Peri-rural commuter belt"
+"214","Gävle","Regional service centres"
+"215","Borlänge","Regional service centres"
+"216","Skövde","Regional service centres"
+"217","Örebro","Regional service centres"
+"218","Kumla","Peri-rural commuter belt"
+"219","Höganäs","Peri-rural commuter belt"
+"220","Ängelholm","Peri-rural commuter belt"
+"221","Luleå","Regional service centres"
+"222","Nyköping","Regional service centres"
+"223","Uddevalla","Peri-rural commuter belt"
+"224","Kalmar","Regional service centres"
+"225","Trosa","Peri-rural commuter belt"
+"226","Umeå","Regional service centres"
+"227","Strängnäs","Peri-rural commuter belt"
+"228","Trelleborg","Peri-rural commuter belt"
+"229","Enköping","Peri-rural commuter belt"
+"230","Vänersborg","Peri-rural commuter belt"
+"231","Oxelösund","Regional service centres"
+"232","Bollebygd","Peri-rural commuter belt"
+"233","Alingsås","Peri-rural commuter belt"
+"234","Sundsvall","Regional service centres"
+"235","Stenungsund","Peri-rural commuter belt"
+"236","Östersund","Regional service centres"
+"237","Nykvarn","Affluent suburbs & university satellites"
+"238","Eslöv","Peri-rural commuter belt"
+"239","Ystad","Peri-rural commuter belt"
+"240","Västerås","Regional service centres"
+"241","Trollhättan","Regional service centres"
+"242","Timrå","Peri-rural commuter belt"
+"243","Kungsbacka","Affluent suburbs & university satellites"
+"244","Södertälje","Regional service centres"
+"245","Landskrona","Regional service centres"
+"246","Nynäshamn","Peri-rural commuter belt"
+"247","Karlstad","Regional service centres"
+"248","Linköping","Regional service centres"
+"249","Håbo","Affluent suburbs & university satellites"
+"250","Ale","Affluent suburbs & university satellites"
+"251","Helsingborg","Regional service centres"
+"252","Kungälv","Peri-rural commuter belt"
+"253","Lerum","Affluent suburbs & university satellites"
+"254","Ekerö","Affluent suburbs & university satellites"
+"255","Svedala","Affluent suburbs & university satellites"
+"256","Kävlinge","Affluent suburbs & university satellites"
+"257","Vellinge","Affluent suburbs & university satellites"
+"258","Härryda","Affluent suburbs & university satellites"
+"259","Österåker","Affluent suburbs & university satellites"
+"260","Göteborg","Regional service centres"
+"261","Staffanstorp","Affluent suburbs & university satellites"
+"262","Burlöv","Affluent suburbs & university satellites"
+"263","Hammarö","Affluent suburbs & university satellites"
+"264","Botkyrka","Affluent suburbs & university satellites"
+"265","Värmdö","Affluent suburbs & university satellites"
+"266","Uppsala","Regional service centres"
+"267","Sigtuna","Affluent suburbs & university satellites"
+"268","Upplands-Bro","Affluent suburbs & university satellites"
+"269","Malmö","Regional service centres"
+"270","Haninge","Affluent suburbs & university satellites"
+"271","Partille","Affluent suburbs & university satellites"
+"272","Salem","Affluent suburbs & university satellites"
+"273","Knivsta","Affluent suburbs & university satellites"
+"274","Vallentuna","Affluent suburbs & university satellites"
+"275","Tyresö","Affluent suburbs & university satellites"
+"276","Huddinge","Affluent suburbs & university satellites"
+"277","Mölndal","Affluent suburbs & university satellites"
+"278","Upplands Väsby","Affluent suburbs & university satellites"
+"279","Lomma","Affluent suburbs & university satellites"
+"280","Lund","Affluent suburbs & university satellites"
+"281","Vaxholm","Affluent suburbs & university satellites"
+"282","Järfälla","Affluent suburbs & university satellites"
+"283","Stockholm","Inner Stockholm core"
+"284","Sollentuna","Inner Stockholm core"
+"285","Lidingö","Inner Stockholm core"
+"286","Nacka","Inner Stockholm core"
+"287","Täby","Inner Stockholm core"
+"288","Danderyd","Inner Stockholm core"
+"289","Sundbyberg","Inner Stockholm core"
+"290","Solna","Inner Stockholm core"

ppt/content.R

@@ -278,3 +278,14 @@ fig_county_abs <- ggplot(county_pop,
 ggsave("ppt/figures/slide4_county_abs.png", fig_county_abs,
        width = 9, height = 9, dpi = 150)
 message("Saved: ppt/figures/slide4_county_abs.png")
+
+# Clusters detail
+cl_lb <- as.data.frame(cluster_labels) |> 
+  rowid_to_column("c6")
+
+cl <- read.csv("data/processed/cluster_assignment_6.csv") |> 
+  arrange(-2) |> 
+  left_join(
+    cl_lb
+  ) |> 
+  select(-c6)