diff --git a/data/processed/cluster_assignment_6_labels.csv b/data/processed/cluster_assignment_6_labels.csv new file mode 100644 index 0000000..bdd64d7 --- /dev/null +++ b/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" diff --git a/ppt/content.R b/ppt/content.R index 1bdf165..a1ace93 100644 --- a/ppt/content.R +++ b/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)