In muc-fluechtlingsrat/r-eurostat-refugees: Download and Visualise Eurostat Asylum Data (Applications and Decisions)

knitr::opts_chunk$set(echo = TRUE, warning=FALSE, message=FALSE)

Plots und Analysen zum Hauptartikel

Hauptartikel ist "Aylsentscheidungen in Europa, Fokus Afghanistan". Dies gehört zu den ergänzenden Analysen. Dritte Ergänzung

Dieser Vergleich ist nicht allzu hilfreich, weil Asylsuchende mit verschiedenen Gründen und aus verschiedenen Ländern Anträge in verschiedenen europäischen Ländern stellen.

library(knitr)
library(dplyr)
migr_asydcfsta=readRDS(file="/tmp/migr_asydcfsta_20180812.rds")

TOTAL - alle Herkunftsländer

cutoff=1000
CODE="TOTAL"
COUNTRY="Total"
major_geo_total_total=filter(migr_asydcfsta, values > cutoff, time == "2017-01-01", decision == "TOTAL", sex == "T", age == "TOTAL", citizen == CODE, geo != "EU28") %>% 
  select(geo,values) 

Die Anzahl Entscheidungen pro Antragsland

Dies sind die europäischen Länder, in denen im Jahr 2017 mehr als cutoff Entscheidungen über Asylanträge von syrischen Staatsangehörigen getroffen wurden:

library(knitr)
# Die ersten paar Spalten
kable(major_geo_total_total[(-major_geo_total_total$values),], caption = paste("Länder mit mehr als ", cutoff, " Entscheidungen zu Asylanträgen aus ", COUNTRY ))
major_geo_total_total <- filter(major_geo_total_total, geo != "TOTAL")

Anzahl der Entscheidungen in Ländern mit weniger als r cutoff Entscheidungen - die werden im Folgenden vernachlässigt:

    other_geo_total_total=filter(migr_asydcfsta, values <= cutoff, time == "2017-01-01", decision == "TOTAL", sex == "T", age == "TOTAL", citizen == CODE, geo != "EU28", geo != "TOTAL") %>%  arrange(desc(values))
dec_others_total_total <- sum(other_geo_total_total$values)
dec_others_total_total

Eine Visualisierung der Gesamtanzahl von Entscheidungen zu COUNTRY im Jahr 2017:

library(ggplot2)
# some technical workarounds for adding the row with the others (XX),
# and for sorting
major_geo_total_total$geo <- as.character(major_geo_total_total$geo)
all_geo_total_total <- rbind(major_geo_total_total, c("XX",dec_others_total_total))
all_geo_total_total$values <- as.numeric(all_geo_total_total$values) 
all_geo_total_total$geo <- factor(all_geo_total_total$geo, levels = arrange(all_geo_total_total, values)$geo)
# The real thing
geo_dec_pie_total <- ggplot(all_geo_total_total, aes(x="", y=values, fill=geo)) + geom_col(colour = "black") + coord_polar("y", start=0) + scale_fill_grey(start = 0.4, end = 0.9) + ggtitle (paste("Entscheidungen über Asyl, ",COUNTRY,", 2017"), subtitle = paste("EU-Länder; XX ist die Summe aller Länder mit > ", cutoff, " Entscheidungen")) + theme_bw() + theme(axis.title=element_blank()) 
geo_dec_pie_total

major_geo_total <-filter(migr_asydcfsta, geo %in% major_geo_total_total$geo, time >= "2017-01-01", sex == "T", age == "TOTAL", citizen == CODE, geo != "EU28", geo != "TOTAL") %>% 
  select(geo,decision,values) 
major_geo_total$geo <- factor(major_geo_total$geo, levels = arrange(filter(major_geo_total, decision == "TOTAL"), desc(values))$geo)
# bring decisions into correct order
major_geo_total$decision <- factor(major_geo_total$decision, levels=c("REJECTED","TEMP_PROT","HUMSTAT","SUB_PROT","GENCONV","TOTAL_POS","TOTAL"))

dec_palette_grey=c("#000000","#C0C0C0","#D3D3D3","#E4E4E4","#E8E8E8","#C8C8C8","#808080")

dec_bar <- ggplot(filter(major_geo_total, decision != "TOTAL" & decision != "TOTAL_POS")) + geom_col(aes(x=geo, y=values, fill=decision)) 
dec_bar +  scale_fill_manual(values = dec_palette_grey) + theme_bw() + theme(legend.position="bottom") + ggtitle(paste("Entscheidungen über Asylanträge aus ",COUNTRY," 2017"), subtitle = "in absoluten Zahlen")

dec_bar_fill <- ggplot(filter(major_geo_total, decision != "TOTAL" & decision != "TOTAL_POS")) + geom_col(aes(x=geo, y=values, fill=decision), position="fill") + scale_fill_grey() + theme_bw() + theme(legend.position="bottom") + ggtitle(paste("Entscheidungen über Asylanträge aus ",COUNTRY," 2017"), subtitle = "in Prozent")
dec_bar_fill

muc-fluechtlingsrat/r-eurostat-refugees documentation built on May 23, 2019, 8:20 a.m.