Geschlechtsspezifische Lohnunterschiede nach Bezirken in Österreich, 2016 (https://twitter.com/matschnetzer/status/971761410974846976)

gender-pay-gap-AT

library(maptools)
library(ggplot2)
library(readr)
library(dplyr)

# Download SHP file from http://data.statistik.gv.at/web/meta.jsp?dataset=OGDEXT_POLBEZ_1
# load map
map=readShapeSpatial("shp2018/STATISTIK_AUSTRIA_POLBEZ_20180101",verbose=TRUE)
class(map)
names(map@data)
coords <- fortify(map, region="ID")

# Hardcopy data from http://bit.ly/2u1WpcS, p. 50
# CSV attached
# load data
gpg <- read_csv2("polbezirke.csv")
names(gpg) <- c("bldid","bld","id","bez","wienid","gpg")
class(gpg$id) <- "character"

# merge data
df <- left_join(coords,gpg,by="id")

# plot data
p <- ggplot(df, aes(long,lat), environment=environment()) + geom_polygon(aes(group=id, fill=gpg)) + scale_fill_gradient(low="olivedrab3",high="red3")
p <- p + labs(title="Gender Pay Gap") + theme(axis.title=element_blank(), axis.text=element_blank(), legend.title=element_blank(), panel.background=element_blank(), axis.ticks=element_blank(),panel.grid.minor = element_blank())
p <- p + geom_polygon(data=coords, aes(x=long,y=lat,group=group), alpha=0.6,colour="black",size=0.1, fill=NA)
ggsave(filename = "gpg.png", p,dpi=300,width=7,height=4)

polbezirke.csv

Bundesland kennziffer;Bundesland;Kennziffer pol. Bezirk;Politischer Bezirk;Politischer Bez. Code;GPG
1;Burgenland;101;Eisenstadt(Stadt);101;17,2
1;Burgenland;102;Rust(Stadt);102;17,1
1;Burgenland;103;Eisenstadt-Umgebung;103;19,9
1;Burgenland;104;Güssing;104;17
1;Burgenland;105;Jennersdorf;105;20,6
1;Burgenland;106;Mattersburg;106;20,3
1;Burgenland;107;Neusiedl am See;107;20,3
1;Burgenland;108;Oberpullendorf;108;19,2
1;Burgenland;109;Oberwart;109;21,2
2;Kärnten;201;Klagenfurt Stadt;201;8,3
2;Kärnten;202;Villach Stadt;202;23,3
2;Kärnten;203;Hermagor;203;21,6
2;Kärnten;204;Klagenfurt Land;204;16,1
2;Kärnten;205;Sankt Veit an der Glan;205;18,7
2;Kärnten;206;Spittal an der Drau;206;31,5
2;Kärnten;207;Villach Land;207;25,6
2;Kärnten;208;Völkermarkt;208;18,7
2;Kärnten;209;Wolfsberg;209;23,1
2;Kärnten;210;Feldkirchen;210;20,3
3;Niederösterreich;301;Krems an der Donau(Stadt);301;17
3;Niederösterreich;302;Sankt Pölten(Stadt);302;15,1
3;Niederösterreich;303;Waidhofen an der Ybbs(Stadt);303;19,3
3;Niederösterreich;304;Wiener Neustadt(Stadt);304;15,6
3;Niederösterreich;305;Amstetten;305;29
3;Niederösterreich;306;Baden;306;19,1
3;Niederösterreich;307;Bruck an der Leitha;307;22,7
3;Niederösterreich;308;Gänserndorf;308;18,6
3;Niederösterreich;309;Gmünd;309;21,3
3;Niederösterreich;310;Hollabrunn;310;12,4
3;Niederösterreich;311;Horn;311;11,3
3;Niederösterreich;312;Korneuburg;312;17,7
3;Niederösterreich;313;Krems(Land);313;18,8
3;Niederösterreich;314;Lilienfeld;314;23,2
3;Niederösterreich;315;Melk;315;18,6
3;Niederösterreich;316;Mistelbach;316;28
3;Niederösterreich;317;Mödling;317;24,7
3;Niederösterreich;318;Neunkirchen;318;17,1
3;Niederösterreich;319;Sankt Pölten(Land);319;19,5
3;Niederösterreich;320;Scheibbs;320;23,6
3;Niederösterreich;321;Tulln;321;17,2
3;Niederösterreich;322;Waidhofen an der Thaya;322;15,9
3;Niederösterreich;323;Wiener Neustadt(Land);323;18,8
3;Niederösterreich;325;Zwettl;325;13,8
4;Oberösterreich;401;Linz(Stadt);401;16
4;Oberösterreich;402;Steyr(Stadt);402;28,8
4;Oberösterreich;403;Wels(Stadt);403;18,2
4;Oberösterreich;404;Braunau am Inn;404;25,5
4;Oberösterreich;405;Eferding;405;28,6
4;Oberösterreich;406;Freistadt;406;35,8
4;Oberösterreich;407;Gmunden;407;26,7
4;Oberösterreich;408;Grieskirchen;408;29,2
4;Oberösterreich;409;Kirchdorf an der Krems;409;27
4;Oberösterreich;410;Linz-Land;410;27,7
4;Oberösterreich;411;Perg;411;34,3
4;Oberösterreich;412;Ried im Innkreis;412;25,9
4;Oberösterreich;413;Rohrbach;413;29,8
4;Oberösterreich;414;Schärding;414;30,1
4;Oberösterreich;415;Steyr-Land;415;36,3
4;Oberösterreich;416;Urfahr-Umgebung;416;29,2
4;Oberösterreich;417;Vöcklabruck;417;29,9
4;Oberösterreich;418;Wels-Land;418;29,1
5;Salzburg;501;Salzburg(Stadt);501;11
5;Salzburg;502;Hallein;502;28
5;Salzburg;503;Salzburg-Umgebung;503;25,1
5;Salzburg;504;Sankt Johann im Pongau;504;31,4
5;Salzburg;505;Tamsweg;505;29,7
5;Salzburg;506;Zell am See;506;30,9
6;Steiermark;601;Graz(Stadt);601;14,6
6;Steiermark;603;Deutschlandsberg;603;25
6;Steiermark;606;Graz-Umgebung;606;26,4
6;Steiermark;610;Leibnitz;610;22,1
6;Steiermark;611;Leoben;611;32,6
6;Steiermark;612;Liezen;612;23,6
6;Steiermark;614;Murau;614;23,8
6;Steiermark;616;Voitsberg;616;17,4
6;Steiermark;617;Weiz;617;30,7
6;Steiermark;620;Murtal;620;26,6
6;Steiermark;621;Bruck-Mürzzuschlag;621;33,5
6;Steiermark;622;Hartberg-Fürstenfeld;622;28,2
6;Steiermark;623;Südoststeiermark;623;23,6
7;Tirol;701;Innsbruck-Stadt;701;10,2
7;Tirol;702;Imst;702;30,3
7;Tirol;703;Innsbruck-Land;703;26,7
7;Tirol;704;Kitzbühel;704;27,9
7;Tirol;705;Kufstein;705;24,3
7;Tirol;706;Landeck;706;29,3
7;Tirol;707;Lienz;707;24,6
7;Tirol;708;Reutte;708;32,2
7;Tirol;709;Schwaz;709;32,5
8;Vorarlberg;801;Bludenz;801;35,8
8;Vorarlberg;802;Bregenz;802;35,3
8;Vorarlberg;803;Dornbirn;803;32,8
8;Vorarlberg;804;Feldkirch;804;31,4
9;Wien;900;Wien(Stadt);900;7
9;Wien;900;Wien  1.,Innere Stadt;901;28,9
9;Wien;900;Wien  2.,Leopoldstadt;902;7,6
9;Wien;900;Wien  3.,Landstraße;903;9,9
9;Wien;900;Wien  4.,Wieden;904;14,9
9;Wien;900;Wien  5.,Margareten;905;4,5
9;Wien;900;Wien  6.,Mariahilf;906;14,2
9;Wien;900;Wien  7.,Neubau;907;14,1
9;Wien;900;Wien  8.,Josefstadt;908;14
9;Wien;900;Wien  9.,Alsergrund;909;13,7
9;Wien;900;Wien 10.,Favoriten;910;5,9
9;Wien;900;Wien 11.,Simmering;911;10,2
9;Wien;900;Wien 12.,Meidling;912;4,9
9;Wien;900;Wien 13.,Hietzing;913;23,9
9;Wien;900;Wien 14.,Penzing;914;8,5
9;Wien;900;Wien 15.,Rudolfsheim-Fünfhaus;915;3,1
9;Wien;900;Wien 16.,Ottakring;916;1,9
9;Wien;900;Wien 17.,Hernals;917;2,9
9;Wien;900;Wien 18.,Währing;918;12,9
9;Wien;900;Wien 19.,Döbling;919;15,8
9;Wien;900;Wien 20.,Brigittenau;920;2,6
9;Wien;900;Wien 21.,Floridsdorf;921;9,6
9;Wien;900;Wien 22.,Donaustadt;922;12,8
9;Wien;900;Wien 23.,Liesing;923;12