Vergleich Einkommens-Gini Deutschland und Österreich

gini_DE_AT

library(tidyverse)
library(eurostat)
library(ggthemes)

eurostat <- get_eurostat("ilc_di12",filters=list(geo=c("AT","DE")),type="code",time_format="num") 
eurostat$time <- as.factor(eurostat$time)
eurostat %>% filter(time %in% 2005:2016) %>% 
  ggplot(aes(x=time,y=values,group=geo,colour=factor(geo,labels=c("Österreich","Deutschland")))) + 
  geom_line(size=1.2) + geom_point(size=1.2) + xlab(" ") +
  ylab("Gini-Koeffizient") + labs(color = " ") + theme_fivethirtyeight() +
  ggsave("ginideat.pdf")