Deutsch: Entwicklung von Abschiebungen im Kontext von sinkenden Asylbewerberzahlen und sinkender Anerkennungsquote
jahr <- seq(1901,2006)
asyl <- data.frame(jahr)
rownames(asyl) <- jahr
asyl[c(75,80,85,90:106),"asylberechtigte"] <- c(2928,12783,11224,6518,11597,9189,16396,25578,18100,14389,8443,5883,4114,3128,5716,2379,1534,960,411,251)
comment(asyl$asylberechtigte) <- "Sources: 1975,1980,1985,1990-2002: Bundesamt für die Anerkennung ausländischer Flüchtlinge, Nürnberg / ab 1994 nur Erstanträge / cited after: Statistisches Bundesamt (2006) Datenreport 2006"
asyl[90:106,"abschiebungen"] <- c(10850,13668,19821,47070,53043,36455,31761,38205,38479,32929,35444,27902,29036,26487,23334,17773,13894)
comment(asyl$abschiebungen) <- "Number of persons deportet from Germany - - - Sources: 1990-2004: Bundespolizei; cite after: Bundesamt-fur-Migration:2005
Migrationsbericht des Bundesamtes für Migration und Flüchtlinge im Auftrag der Bundesregierung (Migrationsbericht 2006)"
asyl[90:106,"asylsuchende"] <- c(193063,256112,438191,322599,127210,127937,116367,104353,98644,95113,78564,88278,71124,50563,35607,28914,21029)
comment(asyl$asylsuchende) <- "Sources: Bundesamt für Migration 2007: Migrationsbericht 2006"
jahre <- 1990:2006
plot(jahre,asyl$abschiebungen[90:106],ylim=c(0,125000),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:106],lty=1,type="b",pch=16,lwd=1,col='grey')
lines(jahre,asyl$asylberechtigte[90:106],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:2006,c(asyl$asylberechtigte[99:106]+7000),as.character(asyl$asylberechtigte[99:106]),pos=1,cex=0.7,col="green")
text(1995,50000,labels="Abschiebungen",pos=4,cex=1,col="red")
text(1990:2006,c(asyl$abschiebungen[90:106]+9400),as.character(asyl$abschiebungen[90:106]),pos=1,cex=0.7,col="red")
text(1998,120000,labels="Asylantragsteller (Erstanträge)",pos=4,cex=1,col='grey')
text(1990:2006,c(asyl$asylsuchende[90:106]+9400),as.character(asyl$asylsuchende[90:106]),pos=1,cex=0.7,col="grey")
text(1998,15000,labels="Asylberechtigt nach Art.16/ 16a GG",pos=4,cex=1,col="lightgreen")