tbl623 <- read.csv("getMailProviderByHour.2011623.csv")
tbl623$Hour <- strptime(tbl623$Hour,"%Y%m%d%H")
myplot <- ggplot(data=tbl623,aes(x=as.POSIXct(Hour),y=NumMentions,colour=Provider)) + geom_line() +geom_point()+theme_bw(base_size=8) + xlab("23June2011") + ylim(0, 25) + opts(title ="GSTB Mail Providers 23June2011")
ggsave(myplot,filename="23June2011-MailProviderMentionsByHour.png",scale=1.5)