asareport.R

library(ggplot2)
library(grid)

## data from http://www.asanet.org/documents/research/pdfs/2013_ASA_Job_Bank_Analysis.pdf

df <- read.csv("../data/asa2013report.csv", header = TRUE)

## exclude categories with high volume in jobs but no grads
df <- df[df$GradCount > 0,]

df$JobDiff <- df$JobCount - df$GradCount 

## reorder for graph
df$Spec <- factor(df$Spec, levels = df$Spec[with(df, order(JobDiff))])

p <- ggplot(df, aes(Spec, JobDiff, fill = JobDiff))
p <- p + geom_bar(stat="identity") + coord_flip() + scale_fill_gradient2()
p <- p + theme_bw() + theme(
	legend.position = "none",
	axis.text.x     = element_text(size = 6),# angle = 45),# vjust = 0.5),
	axis.text.y     = element_text(size = 6),
	axis.title.x    = element_blank(),
	axis.title.y    = element_blank())