svg("Abschiebungen.svg", width = 15, height = 9)
jahr <- seq(1901, 2022)
asyl <- data.frame(jahr)
################################################################################
rownames(asyl) <- jahr
asyl[c(90:122), "abschiebungen"] <- c(10850,13668,19821,47070,53043,36455,31761,38205,38479,32929,35444,27902,29036,26487,23334,17773,13894,9617,8394,7830,7558,7917,7651,10198,10884,20888,25375,23966,23617,22097,10800,11982,12945)
comment(asyl$abschiebungen) <- "Number of persons deported from Germany - - - Sources: 1990-2004 Bundespolizei; 2005-2007 Migrationsbericht 2013; 2008-2015 Migrationsbericht 2015; 2016-2021 Das Bundesamt in Zahlen 2022 - Modul Asyl; 2022 Bundestagsdrucksasche 20/5795"
asyl[c(75, 80, 85, 90:122), "asylberechtigte"] <- c(2928,12783,11224,6518,11597,9189,16396,25578,18100,14389,8443,5883,4114,3128,5716,2379,1534,960,411,251,304,233,452,643,652,740,919,2285,2029,2120,4359,2841,2192,1693,1226,1937)
comment(asyl$asylberechtigte) <- "Sources: 1975, 1980, 1985, 1990-2002 Bundesamt für die Anerkennung ausländischer Flüchtlinge, Nürnberg; 2003–2006 Statistisches Bundesamt; 2007–2010 Aktuelle Zahlen zu Asyl 2015 (S.9); 2011–2020 Bundesamt für Migration und Flüchtlinge: Broschüre ::Das Bundesamt in Zahlen 2020::,Entscheidungen und Entscheidungsquoten seit 2011 / ab 1994 nur Erstanträge; 2021-2022 Bundesamt für Migration und Flüchtlinge: Broschüre ::Das Bundesamt im Zahlen 2022 - Modul Asyl::, Entscheidungen und Entscheidungsquoten seit 2013 in Jahreszeiträumen (Erst- und Folgeanträge) (S.37)"
########################################
# Asylsuchende
asyl[53:122, "asylsuchende"] <- c(1906,2174,1926,16284,3112,2785,2267,2980,2722,2550,3238,4542,4337,4370,2992,5608,11664,8645,5388,5289,5595,9424,9627,11123,16410,33136,51493,107818,49391,37423,19737,35278,73832,99650,57379,103076,121315,193063, 256112, 438191, 322599, 127210, 127937, 116367, 104353, 98644, 95113, 78564, 88287, 71127, 50563, 35607, 28914, 21029, 19164, 22085, 27649, 41332, 45741, 64539, 109580, 173072,441899,722370,198317,161931,142509,102581,148233,217774)
comment(asyl$asylsuchende) <- "Source: Bundesamt für Migration und Flüchtlinge: Broschüre ::Das Bundesamt in Zahlen 2021 - Modul Asyl::, Entwicklung der Asylantragszahlen seit 1953 (S.9). Bis 1994 Erst- und Folgeanträge. Ab 1995 Erstanträge."
########################################
jahre <- 1990:2022
plot(jahre, asyl$abschiebungen[90:122], ylim = c(0, 185000), bty = "l", yaxs = "i", type = "b", xlab = " ", ylab = " ", pch = 16, lab = c(10, 10, 1), col = "red", sub = "Abschiebungen aus Deutschland", lwd = 2)
lines(jahre, asyl$asylsuchende[90:122], lty = 1, type = "b", pch = 16, lwd = 1, col = "grey")
lines(jahre, asyl$asylberechtigte[90:122], lty = 1, type = "b", pch = 16, col = "lightgreen", lwd = 1)
text(1990:1998, c(asyl$asylberechtigte[90:98] - 400), as.character(asyl$asylberechtigte[90:98]), pos = 1, cex = 0.7, col = "green")
text(1999:2022, c(asyl$asylberechtigte[99:122] + 7000), as.character(asyl$asylberechtigte[99:122]), pos = 1, cex = 0.7, col = "green")
text(1995, 50000, labels = "Abschiebungen", pos = 4, cex = 1, col = "red")
text(1990:2022, c(asyl$abschiebungen[90:122] + 9400), as.character(asyl$abschiebungen[90:122]), pos = 1, cex = 0.7, col = "red")
text(1998, 120000, labels = "Asylantragsteller (Ab 1995 nur Erstantr\u00E4ge)", pos = 4, cex = 1, col = "grey")
text(1990:2022, c(asyl$asylsuchende[90:1020] + 9400), as.character(asyl$asylsuchende[90:122]), pos = 1, cex = 0.7, col = "grey")
text(1998, 15000, labels = "Asylberechtigt nach Art.16/ 16a GG", pos = 4, cex = 1, col = "lightgreen")
text(c(1990,1992), 180000, as.character(asyl$asylsuchende[c(90,92)]), pos = 1, cex = 0.7, col = "grey")
text(c(1991,1993), 175000, as.character(asyl$asylsuchende[c(91,93)]), pos = 1, cex = 0.7, col = "grey")
text(c(2015,2017), 175000, as.character(asyl$asylsuchende[c(115,117)]), pos = 1, cex = 0.7, col = "grey")
text(2016, 180000, as.character(asyl$asylsuchende[116]), pos = 1, cex = 0.7, col = "grey")
text(2022, 180000, as.character(asyl$asylsuchende[122]), pos = 1, cex = 0.7, col = "grey")
dev.off()