Google Research Grant recipients.

google-research.R

rm(list=ls())
library(ggplot2)

df <- read.csv("~/RStats/data/ResearchGrants2013.csv", stringsAsFactors=F, strip.white=T)
df <- df[,-6] #get rid of the trailing blank
dim(df)

#quick check
unique(df$Research.Category)
table(df$Research.Category)

#take care of cases where multiple univs collaborate. Give all of them credit
u2 <- df$University.2[df$University.2!= ""]
u3 <- df$University.3[df$University.3!= ""]
univs.list <- c(df$University.1, u2, u3)

#quick check
unique(univs.list)
length(univs.list)
table(univs.list)

### Univs plot

univs <- data.frame(table(univs.list))
#univs <- univs[order(-univs[,2]), ] #sort by reverse of frequency

u <- ggplot(univs) + geom_bar(aes(x=reorder(univs.list, Freq), y =Freq, fill=factor(Freq)), stat="identity") + coord_flip()
u <- u + scale_fill_manual(limits=c("5","3","2","1"),
  values=c("green", "yellow", "red", "blue"))
u <- u + ylab("Number of Reserach Grants Awarded")
u <- u + theme(legend.position="none", plot.background = element_blank() ,axis.title.y=element_blank()
                , axis.text.y = element_text(face="bold", colour="#000000", size=10)
                )
u <- u + labs(title="Distribution of Google Reserach Grants 2013, by University")

u


### areas plot

area <- data.frame(table(df$Research.Category))
area$y.offset <- c(2,2,3,2,2, 2,3,2,3,2, 1,2,1,2,  1,2,1,2,1)
num.colors <- length(unique(area$Freq))
wx_range<-colorRampPalette(c(rgb(0,0.5,1), rgb(1,0.35,0) ))

cols <- rep("white", 19)
# manual adjustment of colors for a couple of areas
cols[1] <- "black"
cols[7] <- "black"

a <- NULL
a <- ggplot(area) + geom_bar(aes(x=reorder(Var1, Freq), y =Freq, fill=factor(Freq)), stat="identity") + coord_flip()
a <- a + geom_text(aes(x=reorder(Var1, Freq), y =y.offset, label=Var1), color=cols)
a <- a + scale_fill_manual(values=wx_range(num.colors))
a <- a + ylab("Number of Reserach Grants Awarded")
a <- a + theme(legend.position="none", plot.background = element_blank() ,axis.title.y=element_blank()
               , axis.text.y = element_text(face="bold", colour="#000000", size=10)
)
a <- a + labs(title="Distribution of Google Reserach Grants 2013, by Research Area")
a

grants.csv