Gender Wage Gap in Australia

wagegap_plot

The plot is generated as a part of Makeover Monday. The data comprises of close to 1000 observations. The original story was published here. The plot is inspired from New York Times post on Gender Wage gap in USA. The data for the post is available on MakeoverMonday.

The plot was generated using R and inkscape was used to add labels and text. I have also calculated a column called ratio, which consist of female to male ratio. A few edits were made to the data. The basic code used to generate the plot is as follows:

library(xlsx)
library(dplyr)
gap = read.xlsx("australia_gendergap1.xlsx", sheetIndex = 2)[,-6:-7]
gap= arrange(gap,ratio)
gap = mutate(gap,male= gap$Male/1000, female= gap$Female/1000)
par(las=1,bg=c("lightgrey"),mfrow=c(1,1))
plot(gap$male,gap$female,type="n",xlim=c(0,600), ylim=c(0,600),pch=19,col= "#C84F65",bty="n",xlab="",ylab="")
points(gap$male,gap$female,xlim=c(0,600), ylim=c(0,600),pch=19,cex=0.4,col= "#C84F65",bty="n",xlab="",ylab="")
abline(coef=c(0,1), lwd=2)
abline(coef=c(0,0.7),lwd=0.5)
grid(col=c("gray"))

 

Leave a Reply

Fill in your details below or click an icon to log in:

WordPress.com Logo

You are commenting using your WordPress.com account. Log Out / Change )

Twitter picture

You are commenting using your Twitter account. Log Out / Change )

Facebook photo

You are commenting using your Facebook account. Log Out / Change )

Google+ photo

You are commenting using your Google+ account. Log Out / Change )

Connecting to %s