Österreichs Bevölkerung in Vierteln (https://twitter.com/matschnetzer/status/1057538490605469696)

popquarter.r

library(tidyverse)
library(msmaps)
library(sf)

# Load data
pop <- read_csv2("population.csv") %>% filter(iso<901) %>% select(iso,pop)
quarter <- pop %>% summarise(sum(pop)/4) %>% as.numeric()
quarter <- quarter*c(0:4)

# Load Geodata
geodat <- st_read("bezirke_999_geo.json", quiet=TRUE, stringsAsFactors=FALSE) %>%
  mutate(
    center = map(geometry, st_centroid),
    centercoord = map(center, st_coordinates),
    ccordx = map_dbl(centercoord, 1),
    ccordy = map_dbl(centercoord, 2)
  ) %>%
  mutate(iso = as.numeric(iso))

# Sort from west to east (ccordx) and put Vienna first
tmp <- left_join(geodat,pop) %>% arrange(desc(ccordx)) %>% arrange(desc(iso == 900)) %>% as_tibble() %>% dplyr::select(iso,pop)

# Sum up population figures and create 4 groups
df <- tmp %>% mutate(cspop = cumsum(pop)) %>% mutate(gruppe = cut(cspop, breaks=quarter))

plotDistrictAT(dataset=df,fillvar="gruppe",citylabs = T,colpal=msc_palette[1:4],
            tit="Verteilung der Bevölkerung Österreichs",subtit="Die eingefärbten Regionen enthalten je ein Viertel der Bevölkerung (2018)",
            captit="Daten: Statistik Austria. Grafik: @matschnetzer",
            savfile="popquarter.png",
            legpos="none")

population.csv

Bundesland;iso;name;pop
Burgenland;101;Eisenstadt(Stadt);14.476
Burgenland;102;Rust(Stadt);1.921
Burgenland;103;Eisenstadt-Umgebung;42.569
Burgenland;104;Güssing;25.906
Burgenland;105;Jennersdorf;17.112
Burgenland;106;Mattersburg;39.893
Burgenland;107;Neusiedl am See;58.981
Burgenland;108;Oberpullendorf;37.661
Burgenland;109;Oberwart;54.156
Kärnten;201;Klagenfurt Stadt;100.369
Kärnten;202;Villach Stadt;61.879
Kärnten;210;Feldkirchen;29.967
Kärnten;203;Hermagor;18.174
Kärnten;204;Klagenfurt Land;59.586
Kärnten;205;Sankt Veit an der Glan;54.923
Kärnten;206;Spittal an der Drau;76.248
Kärnten;207;Villach Land;64.745
Kärnten;208;Völkermarkt;42.027
Kärnten;209;Wolfsberg;52.980
Niederösterreich;301;Krems an der Donau(Stadt);24.610
Niederösterreich;302;Sankt Pölten(Stadt);54.649
Niederösterreich;303;Waidhofen an der Ybbs(Stadt);11.333
Niederösterreich;304;Wiener Neustadt(Stadt);44.820
Niederösterreich;305;Amstetten;115.676
Niederösterreich;306;Baden;145.863
Niederösterreich;307;Bruck an der Leitha;100.447
Niederösterreich;308;Gänserndorf;102.512
Niederösterreich;309;Gmünd;37.024
Niederösterreich;310;Hollabrunn;50.705
Niederösterreich;311;Horn;31.275
Niederösterreich;312;Korneuburg;90.162
Niederösterreich;313;Krems(Land);56.738
Niederösterreich;314;Lilienfeld;25.846
Niederösterreich;315;Melk;77.585
Niederösterreich;316;Mistelbach;75.500
Niederösterreich;317;Mödling;118.644
Niederösterreich;318;Neunkirchen;86.363
Niederösterreich;319;Sankt Pölten(Land);130.607
Niederösterreich;320;Scheibbs;41.456
Niederösterreich;321;Tulln;102.715
Niederösterreich;322;Waidhofen an der Thaya;26.043
Niederösterreich;323;Wiener Neustadt(Land);77.624
Niederösterreich;325;Zwettl;42.471
Oberösterreich;401;Linz(Stadt);204.846
Oberösterreich;402;Steyr(Stadt);38.331
Oberösterreich;403;Wels(Stadt);61.233
Oberösterreich;404;Braunau am Inn;103.325
Oberösterreich;405;Eferding;32.950
Oberösterreich;406;Freistadt;66.271
Oberösterreich;407;Gmunden;101.256
Oberösterreich;408;Grieskirchen;64.681
Oberösterreich;409;Kirchdorf an der Krems;56.780
Oberösterreich;410;Linz-Land;148.544
Oberösterreich;411;Perg;68.112
Oberösterreich;412;Ried im Innkreis;60.788
Oberösterreich;413;Rohrbach;56.459
Oberösterreich;414;Schärding;57.253
Oberösterreich;415;Steyr-Land;60.334
Oberösterreich;416;Urfahr-Umgebung;84.999
Oberösterreich;417;Vöcklabruck;135.316
Oberösterreich;418;Wels-Land;72.098
Salzburg;501;Salzburg(Stadt);153.377
Salzburg;502;Hallein;60.164
Salzburg;503;Salzburg-Umgebung;151.256
Salzburg;504;Sankt Johann im Pongau;80.181
Salzburg;505;Tamsweg;20.344
Salzburg;506;Zell am See;87.257
Steiermark;601;Graz(Stadt);286.292
Steiermark;621;Bruck-Mürzzuschlag;99.437
Steiermark;603;Deutschlandsberg;60.734
Steiermark;606;Graz-Umgebung;152.944
Steiermark;622;Hartberg-Fürstenfeld;90.452
Steiermark;610;Leibnitz;82.036
Steiermark;611;Leoben;60.451
Steiermark;612;Liezen;80.082
Steiermark;614;Murau;27.919
Steiermark;620;Murtal;72.471
Steiermark;623;Südoststeiermark;85.991
Steiermark;616;Voitsberg;51.330
Steiermark;617;Weiz;90.075
Tirol;701;Innsbruck-Stadt;132.493
Tirol;702;Imst;59.562
Tirol;703;Innsbruck-Land;177.804
Tirol;704;Kitzbühel;63.692
Tirol;705;Kufstein;108.492
Tirol;706;Landeck;44.387
Tirol;707;Lienz;48.833
Tirol;708;Reutte;32.532
Tirol;709;Schwaz;83.345
Vorarlberg;801;Bludenz;63.490
Vorarlberg;802;Bregenz;133.781
Vorarlberg;803;Dornbirn;88.416
Vorarlberg;804;Feldkirch;106.054
Wien (Stadt);900;Wien(Stadt);1.888.776
Wien;901;Wien  1.,Innere Stadt;16.450
Wien;902;Wien  2.,Leopoldstadt;105.574
Wien;903;Wien  3.,Landstraße;90.712
Wien;904;Wien  4.,Wieden;33.319
Wien;905;Wien  5.,Margareten;55.640
Wien;906;Wien  6.,Mariahilf;32.069
Wien;907;Wien  7.,Neubau;32.467
Wien;908;Wien  8.,Josefstadt;25.662
Wien;909;Wien  9.,Alsergrund;42.547
Wien;910;Wien 10.,Favoriten;201.882
Wien;911;Wien 11.,Simmering;101.420
Wien;912;Wien 12.,Meidling;97.624
Wien;913;Wien 13.,Hietzing;54.265
Wien;914;Wien 14.,Penzing;92.752
Wien;915;Wien 15.,Rudolfsheim-Fünfhaus;79.029
Wien;916;Wien 16.,Ottakring;104.627
Wien;917;Wien 17.,Hernals;57.546
Wien;918;Wien 18.,Währing;51.647
Wien;919;Wien 19.,Döbling;72.650
Wien;920;Wien 20.,Brigittenau;87.239
Wien;921;Wien 21.,Floridsdorf;162.779
Wien;922;Wien 22.,Donaustadt;187.007
Wien;923;Wien 23.,Liesing;103.869