svg("R\u00FCckf\u00FChrungen aus der Schweiz.svg", width = 15, height = 9)
jahr <- seq(1901, 2022)
asyl <- data.frame(jahr)
rownames(asyl) <- jahr
################################################################################
# Asylsuchende
asyl[94:122,"asylgesuche"] <- c(16872,18067,19418,25507,42979,47513,19750,21854,26987,21759,15061,10795,11173,10844,16606,16005,15567,22551,28631,21465,23765,39523,27207,18088,15255,14269,11041,14928,24511)
comment(asyl$asylgesuche) <- "Sources: 1994-2009 Staatssekretariat für Migration SEM - Statistikdienst, Archiv ab 1994: https://www.sem.admin.ch/sem/de/home/publiservice/statistik/asylstatistik/archiv.html 7-20 Tabellen; 2010- Staatssekretariat für Migration SEM - Statistikdienst, 'Asylstatistik, Übersicht Jahre (XLSX, 29 kB, 01.06.2023)' https://www.sem.admin.ch/dam/sem/de/data/publiservice/statistik/asylstatistik/uebersichten/asyl-jahre-total-d.xlsx.download.xlsx/asyl-jahre-total-d.xlsx"
################################################################################
asyl[c(94:122),"asylgewaehrungen"] <- c(2951,2595,2232,2572,2039,2060,2080,2227,1720,1610,1529,1467,1827,1537,2261,2622,3449,3711,2507,3167,6199,6377,5985,6360,6358,5551,5409,5369,4816)
comment(asyl$asylgewaehrungen) <- "Sources: 1994-2009 Staatssekretariat für Migration SEM - Statistikdienst, Archiv ab 1994: https://www.sem.admin.ch/sem/de/home/publiservice/statistik/asylstatistik/archiv.html 7-20 Tabellen; 2010- Staatssekretariat für Migration SEM - Statistikdienst, 'Asylstatistik, Übersicht Jahre (XLSX, 29 kB, 01.06.2023)' https://www.sem.admin.ch/dam/sem/de/data/publiservice/statistik/asylstatistik/uebersichten/asyl-jahre-total-d.xlsx.download.xlsx/asyl-jahre-total-d.xlsx"
################################################################################
# Rückführungen Heimatstaat+Drittstaat+Dublinstaat
asyl[94:122,"rueckfuehrungen"] <- c((1814+295+0),(1168+211+0),(1042+305+0),(1756+555+0),(3536+815+0),(2368+753+0),(5084+491+0),(2960+478+0),(5464+677+0),(5043+843+0),(4902+744+0),(4338+568+0),(3706+586+0),(3312+619+0),(3294+256+0),(3341+332+1898),(2846+271+2979),(3042+140+3395),(3457+176+4404),(3520+165+4067),(3671+235+2415),(3913+224+2274),(3520+259+2760),(3346+227+2041),(3029+237+1560),(2769+216+1521),(1346+172+715),(1505+150+1127),(1680+140+1314))
comment(asyl$rueckfuehrungen) <- "Sources: 1994-2009 Staatssekretariat für Migration SEM - Statistikdienst, Archiv ab 1994: https://www.sem.admin.ch/sem/de/home/publiservice/statistik/asylstatistik/archiv.html 7-30 Tabellen; 2010- Staatssekretariat für Migration SEM - Statistikdienst, 'Asylstatistik, Übersicht Jahre (XLSX, 29 kB, 01.06.2023)' https://www.sem.admin.ch/dam/sem/de/data/publiservice/statistik/asylstatistik/uebersichten/asyl-jahre-total-d.xlsx.download.xlsx/asyl-jahre-total-d.xlsx"
################################################################################
jahre <- 1994:2022
plot(jahre,asyl$rueckfuehrungen[94:122],ylim=c(0,50000),bty="l",yaxs="i",type="b",xlab=" ",ylab=" ",pch=16,lab=c(10,10,1),col="red",sub="R\u00FCckf\u00FChrungen aus der Schweiz",lwd=2)
lines(jahre,asyl$asylgesuche[94:122],lty=1,type="b",pch=16,lwd=1,col='grey')
lines(jahre,asyl$asylgewaehrungen[94:122],lty=1,type="b",pch=16,col="lightgreen",lwd=1)
lines(jahre,asyl$rueckfuehrungen[94:122],lty=1,type="b",pch=16,col="red",lwd=2)
text(1995,7000,labels="Asylgew\u00E4hrungen",pos=4,cex=1,col="lightgreen")
text(1994:1997,c(asyl$asylgewaehrungen[94:97]+2000),as.character(asyl$asylgewaehrungen[94:97]),pos=1,cex=0.7,col="green")
text(1998:2004,1500,as.character(asyl$asylgewaehrungen[98:104]),pos=1,cex=0.7,col="green")
text(2005:2007,c(asyl$asylgewaehrungen[105:107]+2000),as.character(asyl$asylgewaehrungen[105:107]),pos=1,cex=0.7,col="green")
text(2008:2008,c(asyl$asylgewaehrungen[108:108]-500),as.character(asyl$asylgewaehrungen[108:108]),pos=1,cex=0.7,col="green")
text(2009:2013,c(asyl$asylgewaehrungen[109:113]+2000),as.character(asyl$asylgewaehrungen[109:113]),pos=1,cex=0.7,col="green")
text(2014:2016,c(asyl$asylgewaehrungen[114:116]-1000),as.character(asyl$asylgewaehrungen[114:116]),pos=1,cex=0.7,col="green")
text(2017:2022,c(asyl$asylgewaehrungen[117:122]+2000),as.character(asyl$asylgewaehrungen[117:122]),pos=1,cex=0.7,col="green")
################################################################################
text(2000,9000,labels="R\u00FCckf\u00FChrungen",pos=4,cex=1,col="red")
text(1994:1997,1500,as.character(asyl$rueckfuehrungen[94:97]),pos=1,cex=0.7,col="red")
text(1998:2016,c(asyl$rueckfuehrungen[98:116]+2000),as.character(asyl$rueckfuehrungen[98:116]),pos=1,cex=0.7,col="red")
text(2017:2019,c(asyl$rueckfuehrungen[117:119]-500),as.character(asyl$rueckfuehrungen[117:119]),pos=1,cex=0.7,col="red")
text(2020:2022,c(asyl$rueckfuehrungen[120:122]+2000),as.character(asyl$rueckfuehrungen[120:122]),pos=1,cex=0.7,col="red")
################################################################################
text(1998,15000,labels="Total neue Asylgesuche",pos=4,cex=1,col='grey')
text(1994:2022,c(asyl$asylgesuche[94:122]-1000),as.character(asyl$asylgesuche[94:122]),pos=1,cex=0.7,col="grey")
#text(1998:1999,30000,as.character(asyl$asylgesuche[98:99]),pos=1,cex=0.7,col="grey")