library(reshape2) loadMentions <- function () { raw_mentions <<- read.csv("~/DailyReports/2014-11/2014 11 Mentions By Day By Network.csv") names(raw_mentions) <- c("Date", "Network", "Mentions") mentions <<- dcast(raw_mentions, Date ~ Network) mentions <<- mentions[,c("Date","Al Jazeera", "CNN", "Fox News", "HLN", "MSNBC")] }