Vergleich von Einkommensanteilen mit Balkendiagramm (Quintile)

lorenzkurven_balken_05


lorenzkurven_balken_05.pdf


pdf_datei<-"lorenzkurven_balken_05.pdf" cairo_pdf(bg="grey98", pdf_datei,width=12,height=9) par(omi=c(0.5,0.5,1.1,0.5),mai=c(0,2,0,0.5),family="Lato Light",las=1) library(fBasics) # Daten einlesen und Grafik vorbereiten datendatei<-"daten/einkommen_fuenf_klassen.xlsx" daten<-read.xls(datendatei,head=T,skip=1,dec=".") layout(matrix(c(1,2),ncol=1),heights=c(80,20)) # Grafik erstellen par(mai=c(0,1.75,1,0)) bp1<-barplot(as.matrix(daten),ylim=c(0,6),width=c(0.5),axes=F, horiz=T,col=c("grey",seqPalette(5,"OrRd")[2:5]),border=par("bg"), names.arg=gsub("."," ",names(daten),fixed=T),cex.names=1.55) # weitere Elemente mtext(seq(0,100,by=20),at=seq(0,100,by=20),1,line=0,cex=1.15) arrows(0,-0.03,0,7.30,lwd=1.5,length=0,xpd=T,col="grey") text(100-(daten[5,]/2),bp1,cex=1.1,labels=paste(round(daten[5,], digits=0),"%",sep=" "),col="white",family="Lato Black",xpd=T) # Grafik erstellen par(mai=c(0.55,1.75,0,0)) bp2<-barplot(as.matrix(rep(20,5)),ylim=c(0,0.5),width=c(0.20), horiz=T,col=seqPalette(5,"Greys"),border=par("bg"), names.arg=c("Gleichverteilung"),axes=F,cex.names=1.55) # weitere Elemente arrows(0,-0.01,0,0.35,lwd=1.5,length=0,xpd=T,col="grey") text(c(10,30,50,70,90),bp2, labels=c("20 %","20 %","20 %","20 %","20 %"), col=c("black","black","white","white","white"),xpd=T) # Betitelung title(main="Einkommensverteilung auf fünf Klassen in verschiedenen Ländern",line=3,adj=0,cex.main=2.25,family="Lato Black",outer=T) umbruch<-strsplit( strwrap("In Mexiko verfügen die reichsten 20 % der Einkommensempfänger über 64 % des Gesamteinkommens, in Norwegen sind es 40 %. Deutschland liegt im internationalen Vergleich in der oberen Hälfte.",width=110),"\n") for(i in seq(along=DD_umbruch)) { mtext(umbruch[[i]],line=(1.8-i)*1.5,adj=0,side=3,cex=1.25,outer=T) } mtext("Quelle: World Income Inequality Database V2.0c May 2008",side=1,adj=1,cex=0.95,font=3,outer=T) dev.off()





einkommen_fuenf_klassen.xlsx